Razčlenjevanje poimenuje način VBA

Ta rutina je v pomoč pri razčlenjevanju imen z enim presledkom, na primer Harvey Wallbanger ali Tom Collins. Naslednja tabela prikazuje rezultat izvajanja kode za imena z več kot enim presledkom:

To ni dober poskus razčlenjevanja. Dobro se je obneslo pri razčlenjevanju Harveyja Wallbangerja in Toma Collinsa, vendar ne tako dobro za druga imena.

Tukaj je bolj razvita tehnika, ki daje boljše rezultate. Upoštevajte, da razčlenjevanje imen ni popolno, vendar je to bolje.

Tehnika je, da preštejemo, koliko presledkov je v polnem imenu, in nato razstavimo ime na enem od presledkov. Zlasti, če so trije ali več presledkov, uporabite presledek dva in z desne kot prelomni presledek; v nasprotnem primeru uporabite skrajni desni presledek kot prelomni prostor.

Ta postopek se izvaja v podprogramu VBA, ki pokliče funkcijo, medtem ko se vrti po imenih. Število presledkov se določi zgodaj v glavni zanki, funkcija pa vrne položaj, kjer je prekinitveni presledek.

Sub parse_names()
  Zatemnite ime kot niz
  Dim spaces As Integer
  Naredi do ActiveCell = "
    ime = ActiveCell.Value
    presledki = 0
    Za test = 1 To Len(ime)
      Če je Mid(ime, test, 1) = " " Potem
      presledki = presledki + 1
    Konec Če
  Naslednji
  Če je presledkov >= 3 Potem
    break_space_position = space_position(" ", ime, presledki - 1)
  Drugače
    break_space_position = space_position(" ", ime, presledki)
  Konec Če
  Če je presledkov > 0 Potem
    ActiveCell.Offset(0, 1) = levo (ime, položaj_presledka - 1)
    ActiveCell.Offset(0, 2) = Mid(ime, položaj_presledka + 1)
  Drugače
    ' to velja, če je polno ime samo eno ime brez presledkov
    ActiveCell.Offset(0, 1) = ime
  Konec Če
  ActiveCell.Offset(1, 0).Aktiviraj
  Zanka
Končni sub
Funkcija space_position(what_to_look_for As String, what_to_look_in kot niz, space_count kot celo število) Kot celo število
  Dim loop_counter kot celo število
    space_position = 0
    For loop_counter = 1 Na space_count
      space_position = InStr(loop_counter + space_position, what_to_iskati, kaj_iskati)
      Če je space_position = 0, potem Exit For
    Naslednji
Končna funkcija