Vraag : Hoe te om waaier aan toe te voegen te selecteren?

dit werk als ik Actieve cel gebruik, maar ik wil het altijd apend (iets 9999 aan het begin van alles in kolom A: Als zijn niet ()
Dim streptokok blank.

Sub DoubleSlash als String
Dim cel als Range
Set cel = Waaier („A: Een“) << fout here
If cel = "" gaat dan Verlaten Sub
If (cel, 2) weg = „9999“ Then
cel = Medio (cel, 3, Len (cel) - 2)
Else
cel = „999“ & cel
End If
cel. Compensatie (1, 0). Activate
End Sub

Antwoord : Hoe te om waaier aan toe te voegen te selecteren?

Sub DoubleSlash ()
Schemerige streptokok als Koord
Schemerige cel als Waaier
Voor Elke cel in Waaier („A: “)
Als cel = "" dan Sub weggaat
    Indien Weggegaan (cel, 2) = „9999“ toen
        cel = Medio (cel, 3, Len (cel) - 2)
    Anders
        cel = „999“ & cel
    Eind als
Volgende cel
Sub van het eind