Vraag:
Software (bij voorkeur Excel-invoegtoepassing of vergelijkbaar) om een ​​groot aantal zinnen af ​​te korten op basis van een door de gebruiker ingestelde database
Brian Mustang
2014-06-16 07:29:10 UTC
view on stackexchange narkive permalink

We moeten een groot aantal rijen nemen, elk met een tekstzin. We moeten elke zin afkorten om een ​​tekenlengte van < 40 te hebben, omdat we de gegevens moeten kopiëren en plakken naar SAP met deze beperking (een optie voor lange tekst is beschikbaar in SAP, maar vereist handmatige invulling, wat we proberen te vermijden).

Ik vroeg me af of er een software / Excel-invoegtoepassing / macro is die zinnen afkort op basis van een database / woordenboek die is ingesteld door de gebruiker.

Bijv De inhoud van mijn database zou er als volgt uit kunnen zien:

  1. Karakter -> Char
  2. Beheer -> Beheer
  3. Tijd -> t
    4. ol>

    Op basis hiervan, wanneer ik het programma start, wordt de zin "Character Building and Time Management" "Char Building and t Mgnt".

Wanneer en hoe moet de tool omgaan met de gegevens? Voor zover ik uw beschrijving begrijp, laadt de tool een bestaand Excel-bestand, vervangt enkele strings op basis van een database en slaat het bestand vervolgens opnieuw op. Is dat correct?
Twee antwoorden:
WorkSmarter
2015-02-13 09:02:54 UTC
view on stackexchange narkive permalink

Dit kan heel gemakkelijk worden bereikt met Excel VBA. 

  Sub FindandReplace () Dim Rng As Range Dim InputRng As Range, ReplaceRng As Range xTitleId = "FindandReplace" Set InputRng = Application.Selection Set InputRng = Application.InputBox ("Bereik om te vervangen", xTitleId, InputRng.Address, Type: = 8) Stel ReplaceRng = Application.InputBox ("Opzoekbereik:", xTitleId, Type: = 8) Voor elke Rng in ReplaceRng. Kolommen (1) .Cellen InputRng.Replace what: = Rng.Value, vervanging: = Rng.Offset (0, 1) .Value NextEnd Sub

Stappen voor het installeren van de code.

  1. Houd ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen. (hieronder afgebeeld)
  2. Klik op Invoegen> Module
  3. Plak bovenstaande code in een nieuw geopend venster.

enter image description here

  1. Sla het bestand op als een * .xlsm extensie. Bijv. book1.xlsm
  2. Maak het celbereik dat zal worden gewijzigd.

enter image description here

  1. Maken het celbereik met de vervangende regels.

enter image description here

  1. Stappen voor het gebruik van de code uit Excel

    • In Excel: houd Alt + F8 ingedrukt
    • Selecteer "Zoeken en vervangen" in de lijst
    • Klik op "Uitvoeren"

enter image description here

  1. Markeer het bereik dat je wilt wijzigen
  2. Markeer de vervangingsregels.
  3. Eindresultaat (hieronder)

enter image description here

Davis Jebaraj
2015-05-14 23:19:05 UTC
view on stackexchange narkive permalink

Essential XlsIO maakt het mogelijk om Excel-bestanden programmatisch te lezen en te schrijven en heeft een API voor het vervangen van tekst.

Dit kan een optie voor u zijn als u bereid bent om de API te gebruiken en tekst te vervangen op basis van uw database / woordenboek.

Het volledige product is gratis beschikbaar via de gemeenschapslicentie programma als u daarvoor in aanmerking komt.

-Davis (Syncfusion)



ⓘ
Deze Q&A is automatisch vertaald vanuit de Engelse taal.De originele inhoud is beschikbaar op stackexchange, waarvoor we bedanken voor de cc by-sa 3.0-licentie waaronder het wordt gedistribueerd.
Loading...