Analiza e emrave të mënyrës VBA

A ju është dhënë ndonjëherë një fletë pune në Excel me emra, në të cilën emrat e plotë janë të gjithë në një qelizë? Detyra juaj është të ndani emrat në emër, mbiemër - një proces i njohur si analizë. Mund të provoni të përdorni një formulë dhe/ose funksion për të ndihmuar, ose mund të përdorni kodin e Visual Basic për Aplikacione (VBA).

Një qasje e zakonshme është gjetja e hapësirës midis emrit dhe mbiemrit, dhe voila! – e dini ku mbaron emri dhe ku fillon mbiemri.

Përveç nëse keni emra që janë më kompleks në strukturë, si Dr. William Healer ose Zak H. Sneezer III.

Këtu është një rutinë tipike VBA që shikon çdo emër, karakter për karakter, derisa të gjejë një hapësirë. Pastaj vendos çdo gjë që është në të majtë të hapësirës në një kolonë dhe çfarëdo që është në të djathtë të hapësirës në kolonën pas.

Vepro deri në ActiveCell = "
thename = ActiveCell.Vlera
Për kërkim = 1 Për Len (emri)
 Nëse Mid(emri, në kërkim, 1) = " " Atëherë
    ActiveCell.Offset(0, 1) = Majtas (emri, në kërkim - 1)
    ActiveCell.Offset(0, 2) = Mesi (emri, duke kërkuar + 1)
    Dil Për
 Fundi Nëse
Tjetra
ActiveCell.Offset(1, 0).Aktivizo
Lak

Kjo rutinë është e dobishme për analizimin e emrave me vetëm një hapësirë, si për shembull Harvey Wallbanger ose Tom Collins. Tabela e mëposhtme tregon rezultatin e ekzekutimit të kodit në emrat me më shumë se një hapësirë:

Dr William Healer	Dr.	Uilliam Shëruesi
Zak H. Sneezer III	Zak	H. Sneezer III

Kjo nuk është një përpjekje e mirë analizimi. Doli mirë për analizimin e Harvey Wallbanger dhe Tom Collins, por jo aq mirë për emrat e tjerë.

Këtu është një teknikë më e zhvilluar që jep rezultate më të mira. Mbani në mend se analizimi i emrave nuk është i përsosur, por ta bësh këtë në këtë mënyrë bën një punë më të mirë.

Teknika është të numërosh sa hapësira ka në emrin e plotë dhe më pas të ndash emrin në njërën nga hapësirat. Në veçanti, nëse ka tre ose më shumë hapësira, përdorni hapësirën dy në nga e djathta si hapësirë e thyerjes; përndryshe, përdorni hapësirën më të djathtë si hapësirën e thyerjes.

Ky proces ekzekutohet në një nënprogram VBA që thërret një funksion ndërsa kalon nëpër emrat. Numri i hapësirave përcaktohet herët në ciklin kryesor dhe funksioni kthen pozicionin ku është hapësira e thyerjes.

Nën parse_names()
  Zbeh emrin si varg
  Hapësirat e zbehta si numër i plotë
  Bëni deri në ActiveCell = "
    thename = ActiveCell.Vlera
    hapësira = 0
    Për test = 1 To Len (emri)
      Nëse Mid(emri, testi, 1) = " " Atëherë
      hapësira = hapësira + 1
    Fundi Nëse
  Tjetra
  Nëse hapësira >= 3 Atëherë
    break_space_position = space_position(" ", emri, hapësira - 1)
  Përndryshe
    break_space_position = space_position(" ", emri, hapësira)
  Fundi Nëse
  Nëse hapësirat > 0 Pastaj
    ActiveCell.Offset(0, 1) = Majtas (emri, pozicioni_break_space - 1)
    ActiveCell.Offset(0, 2) = Mesi (emri, pozicioni_break_hapësirës + 1)
  Përndryshe
    ' kjo është kur emri i plotë është vetëm një emër i vetëm pa hapësira
    ActiveCell.Offset(0, 1) = emri
  Fundi Nëse
  ActiveCell.Offset(1, 0).Aktivizo
  Lak
Fundi Nën
Funksioni space_position(what_to_look_for As String, what_to_look_in As String, space_count as Integer) Si Integer
  Dim loop_counter Si numër i plotë
    hapësirë_pozicioni = 0
    Për loop_counter = 1 Në hapësirë_count
      space_position = InStr(loop_counter + space_position, what_to_look_in, what_to_look_for)
      Nëse space_position = 0, atëherë Dilni Për
    Tjetra
Funksioni i Fundit

Tabela e mëposhtme tregon se si duket rezultati tani:

Dr William Healer	Dr William	Shërues
Zak H. Sneezer III	Zak H.	Teshtima III

Parimi i emrit është po aq art sa proces teknik. Në këtë shembull të dytë, të gjithë emrat dhe mbiemrat janë në kolonat e duhura. Nëse do të prezantohej një emër i ri i gjatë me pesë ose më shumë hapësira, rutina mund të gabonte analizën dhe kodi VBA do të kishte nevojë për më shumë testime të kushtëzuara. Por ky shembull tani është në rrugën e duhur si një rutinë e analizës së emrit me fuqi industriale.

Si të shkruani shënime në OneNote 2013 në Android

Mësoni si të shkruani shënime në OneNote 2013 në Android me krijimin, hapjen dhe regjistrimin e shënimeve. Aplikoni strategji efektive për menaxhimin e shënimeve tuaja.

Formatimi i numrave në një varg teksti në Excel

Mësoni si të formatoni numrat në një varg teksti në Excel për të përfshirë informacione të sakta dhe tërheqëse për raportet tuaja.

Si të fshini qelizat dhe të dhënat në Excel 2010

Në Excel 2010, fshini të dhënat apo formatin e qelizave lehtësisht me disa metoda të thjeshta. Mësoni si të menaxhoni përmbajtjen e qelizave me opsione të ndryshme.

Formatimi i elementeve të grafikut të Excel 2007

Zhvilloni aftësitë tuaja në formatimin e elementeve të grafikut në Excel 2007 përmes metodave të thjeshta dhe efikase.

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Mësoni se si të rreshtoni dhe justifikoni tekstin në Word 2010 me opsione të ndryshme rreshtimi dhe justifikimi për të përmirësuar formatimin e dokumenteve tuaja.

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Mësoni si të krijoni makro në Excel 2019 për të automatizuar komandat dhe thjeshtuar detyrat tuaja.

Si të përdorni vizoren për të vendosur skeda në Word 2016

Mënyra vizuale dhe e shpejtë për të vendosur një ndalesë skedash në Word 2016 është përdorimi i vizores. Zbulo disa këshilla dhe truke për përdorimin e skedave në këtë program.

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Mësoni si të formula boshtet X dhe Y në Excel 2007, duke përfshirë mundësitë e ndryshimit të formatimeve për grafikët e ndryshëm.

Statistika të thjeshta në analizën e të dhënave në Excel

Eksploroni se si Excel mund t

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Mësoni se si të përdorni veçorinë Find and Replace të Excel 2007 për të gjetur dhe zëvendësuar të dhëna në mënyrë efikase. Kjo udhëzues është e përshtatshme për të gjithë përdoruesit që dëshirojnë të rrisin produktivitetin e tyre.