MS Excel:在更改单元格值时动态显示长度

时间:2015-01-13 09:28:43

标签: excel excel-vba vba

cell A2中有一个字符串值,应在cell B2中显示其长度。当我更改cell A2中的字符串并按Enter键时,cell B2中的长度也将根据LEN函数更改。但我需要长度来展示动态"按F2键入单元格时。下面是我试过的Excel VBA

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("A2:A2")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

    Range("B2").Value = Len(Range(Target.Address))
    End If
End Sub

1 个答案:

答案 0 :(得分:0)

我不认为在键入单元格时这是可能的。我能想到的最接近的解决方案是创建一个ActiveX TextBox,然后在它改变时读取其值的长度:

Private Sub TextBox1_Change()
    Range("A1") = Len(TextBox1.Value)
End Sub