Zählen Sie die Anzahl der Ziffern in einer Zelle mit VBA

Bekomme ich ein spreadsheet, aber manchmal nicht gib mir all die Ziffern, die ich benötigen, wenn läuft mein makro. Also versuche ich einen Weg zu finden, zu zählen, wie viele Ziffern in einer Zelle, und verwenden Sie dann msgbox, mir zu sagen, fügen Sie eine Ziffer in die Zelle. 

If Len(A2) <> 7 Then
MsgBox ("Add # to the end ")
Exit Sub
End If

Ich wurde auch gefragt, ob es einen Weg gibt, zu verwenden eine input-box hinzufügen, um die Nummer an das Ende des Wertes in excel. Wie wenn man die zahlen 123456, ich kann 7 in das Eingabefeld ein und es ändert sich der Wert der Zelle um 1234567

  • warum Len(A2) nicht passt?
  • Ich denke, es ist, weil er in VBA, und es sollte Len([A2]) oder Len(Range("A2"))
  • ja, ist es, die Ziffern oder Zeichen?
InformationsquelleAutor user3271518 | 2014-02-11
  1. 0

    Diese Arbeit sollte für die Charaktere, Aber wenn Sie andere Zeichen in der Zelle neben zahlen es zählt alles:

    If Len([A2]) <> 7 Then
    [A2] = [A2].Value & InputBox("Add # to the end ")
End If
    • Recht auf das Geld, bro! Ich konnte nicht überall finden, die zeigte, dass ich gebraucht [] um eine Zelle, und ich habe eigentlich nie verwendet, bevor ich es würde nie kommen mit diesem
    • Sie können lernen, über das, was die [] tun In Diesem MSDN-Link
    • Danke für den link!
    InformationsquelleAutor user2140261
Schreibe einen Kommentar