Ανάλυση Ονομάζει τον τρόπο VBA

Αυτή η ρουτίνα είναι χρήσιμη για την ανάλυση ονομάτων με ένα μόνο διάστημα, όπως ο Harvey Wallbanger ή ο Tom Collins. Ο παρακάτω πίνακας δείχνει το αποτέλεσμα της εκτέλεσης του κώδικα σε ονόματα με περισσότερα από ένα κενά:

Αυτή δεν είναι μια καλή προσπάθεια ανάλυσης. Τα πήγε καλά για την ανάλυση των Harvey Wallbanger και Tom Collins, αλλά όχι τόσο καλά για τα άλλα ονόματα.

Εδώ είναι μια πιο ανεπτυγμένη τεχνική που επιστρέφει καλύτερα αποτελέσματα. Λάβετε υπόψη ότι η ανάλυση ονομάτων δεν είναι τέλεια, αλλά το να το κάνετε με αυτόν τον τρόπο κάνει καλύτερη δουλειά.

Η τεχνική είναι να μετρήσετε πόσα κενά υπάρχουν στο πλήρες όνομα και στη συνέχεια να χωρίσετε το όνομα σε ένα από τα κενά. Ειδικότερα, εάν υπάρχουν τρία ή περισσότερα κενά, χρησιμοποιήστε το διάστημα δύο μέσα από τα δεξιά ως χώρο διακοπής. Διαφορετικά, χρησιμοποιήστε τον δεξιότερο χώρο ως χώρο θραύσης.

Αυτή η διαδικασία εκτελείται σε μια υπορουτίνα VBA που καλεί μια συνάρτηση ενώ κάνει βρόχο στα ονόματα. Ο αριθμός των διαστημάτων καθορίζεται νωρίς στον κύριο βρόχο και η συνάρτηση επιστρέφει τη θέση όπου βρίσκεται το διάστημα διακοπής.

Sub parse_names()
  Εξασθενίστε το όνομα ως συμβολοσειρά
  Dim διαστήματα ως ακέραιος αριθμός
  Κάντε μέχρι το ActiveCell = "
    thename = ActiveCell.Value
    κενά = 0
    Για δοκιμή = 1 To Len (το όνομα)
      If Mid(thename, test, 1) = " " Τότε
      διαστήματα = κενά + 1
    Τέλος εαν
  Επόμενο
  Αν κενά >= 3 Τότε
    break_space_position = space_position(" ", thename, κενά - 1)
  Αλλού
    break_space_position = space_position(" ", thename, spaces)
  Τέλος εαν
  Αν κενά > 0 Τότε
    ActiveCell.Offset(0, 1) = Left(thename, break_space_position - 1)
    ActiveCell.Offset(0, 2) = Mid(thename, break_space_position + 1)
  Αλλού
    Αυτό ισχύει όταν το πλήρες όνομα είναι απλώς ένα μόνο όνομα χωρίς κενά
    ActiveCell.Offset(0, 1) = το όνομα
  Τέλος εαν
  ActiveCell.Offset(1, 0).Ενεργοποίηση
  Βρόχος
End Sub
Συνάρτηση space_position(what_to_look_for As String, what_to_look_in As String, space_count As Integer) Ως ακέραιος
  Dim loop_counter Ως ακέραιος αριθμός
    space_position = 0
    Για loop_counter = 1 To space_count
      space_position = InStr(loop_counter + space_position, what_to_look_in, what_to_look_for)
      Αν space_position = 0 Τότε βγείτε για
    Επόμενο
Λειτουργία τερματισμού