Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: Zoeken van woorden via Excel

  1. #1
    Vraag is niet opgelost

    Zoeken van woorden via Excel

    Hallo

    Voor mijn masterproef dien ik in een groot Excel document te zoeken naar bepaalde info uit krantenartikelen. Hiervoor wil ik naar bepaalde woorden zoeken in het Excel bestand. Ik heb dit geprobeerd via 'zoeken en selecteren' en vervolgens twee pogingen gedaan. In eerste instantie heb ik gewoon gezocht naar woorden, maar het probleem was dat ik niet het woord zelf vond, maar enkel het artikel waar het woord in stond. Vervolgens heb ik geprobeerd het woord te vervangen om het op die manier terug te vinden, bv. vliegtuig vervangen door vliegtuig maar dan in het vet. Ook wanneer ik dit doe wordt het hele artikel in het vet gezet en niet dat ene woord.

    Mijn vraag is nu of het mogelijk is om echt op 1 specifiek woord te kunnen zoeken in Excel.

    Wie mij kan helpen zou ik echt eeuwig dankbaar zijn

    Groetjessss

  2. #2
    Mega Honourable Senior Member AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Misschien kan dat wel.

    Zonder voorbeeldje wordt het echter gokken hoe.
    -- een (excel) voorbeeldbestandje zegt meer dan 1000 woorden --

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Al met Vba gewerkt in je opleiding?
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    Mega Honourable Senior Member
    Geregistreerd
    13 juni 2016
    Ik zal het wel niet begrijpen. Als ik op D2 en D7 Appel heb staan dan worden beide vlekkeloos gevonden.
    Op C12 en E12 vliegtuig gaat ook prima. Waar zoek je dan? Kijk onder > Opties >>
    Laatst aangepast door Senso : 2 mei 2021 om 21:54
    Desktop computer; Windows 10 Pro 64-bits; Versie 21H1; Build 19043.1052;
    WFEP 120.2212.2020.0; Intel(R) Core(TM) i7 CPU 950 @ 3.07 Ghz; RAM 12,0 GB;
    Intel SSD 180 GB; Office 2007 Home and Students; Windows Live Mail

  5. #5
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Daarom is het dus van belang om te weten wat met "artikel" wordt bedoeld.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Zoals ik het begrijp is het een krantenknipsel met hele zinnen.
    Daarin moet het gezochte woord worden gevonden.

    Dus zoiets als:

    Code:
    Sub hsv()Dim c As Range, j As Long, x, cv As Object
    Set c = Blad1.UsedRange.Cells
    With CreateObject("VBscript.Regexp")
     .Global = True
     .ignorecase = True
     '.Pattern = Application.InputBox("typ je zoekwoord", "zoekfunctie") 'in een woord van een tekst zoeken
     .Pattern = Space(1) & Replace(Replace(Replace(Application.InputBox("typ je zoekwoord", "zoekfunctie"), ",", Space(1)), ".", Space(1)), "?", Space(1)) 'voor het exacte woord in een tekst zoeken
       For Each x In c
         Set cv = .Execute(Space(1) & x.Text)
           For j = 0 To cv.Count - 1
            With c.Characters(cv(j).firstindex + 1, Len(cv(j))-1).Font
              .Bold = True
              .Size = 16
            End With
           Next j
       Next x
    End With
    End Sub
    Laatst aangepast door HSV : 3 mei 2021 om 20:00 Reden: uitgebreider met ? , . aan het eind van een woord.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren