使用VBA计算单元格中的位数

Question

我收到了一个电子表格，但有时他们在运行我的宏时不会给我所需的所有数字。所以我试图找到一种方法来计算单元格中有多少位数，然后使用msgbox告诉我向单元格添加一个数字。

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

我还想知道是否有办法使用输入框将数字添加到excel中值的末尾。就像数字是123456一样，我可以将7放入输入框，并将单元格值更改为1234567

Answer 1

这应该适用于角色，但如果除了数字之外其他角色都在单元格中，它会计算所有内容：

If Len([A2]) <> 7 Then
    [A2] = [A2].Value & InputBox("Add # to the end ")
End If