Frage : Wie man Strecke vorwählt, zu hinzuzufügen?

dieses arbeitet, wenn ich aktive Zelle benutze, aber ich wünsche sie immer zum apend (etwas 9999 zum Anfang von alles in Spalte A: , wenn sein nicht blank.

Sub DoubleSlash ()
Dim str als String
Dim cel, wie Range
Set cel = Strecke („A: “) << nehmen Störung here
If cel = "" dann Sub
If, das gelassen wird (cel, 2) = „9999“ Then
cel = mittler (cel, 3, Len (cel) - 2)
Else
cel = „999“ u. cel
End If
cel. Versatz (1, 0). Activate
End Sub

Antwort : Wie man Strecke vorwählt, zu hinzuzufügen?

VorDoubleSlash ()
Schwaches str als Schnur
Schwacher cel als Strecke
Für jeden cel in der Strecke („A: “)
Wenn cel = "" dann Unterseeboot herausnehmen
    Wenn Sie verlassen werden (cel, 2) = „9999“ dann
        cel = mittler (cel, 3, Len (cel) - 2)
    Sonst
        cel = „999“ u. cel
    Beenden wenn
Folgender cel
Enden-Unterseeboot