Question

在excel中如何用VBA实现cells(4,4)=textbox1.text时分情况输入，最好用到textbox change事件来实现？？

当cells(4,4)为空时，直接将textbox1.text输入到cells(4,4)；当cells(4,4)不为空时，则cells(4,4)新值为旧值&“/”&新值？？最好用textbox change 事件来实现？？
当cells(4,4)为空时，直接将textbox1.text输入到cells(4,4)；当cells(4,4)不为空时，则cells(4,4)新值为cells(4,4)原有的旧值&“/”&textbox1.text输入到cells(4,4)时的值？？最好用textbox change 事件来实现？？我的最终问题是怎么避免每输入一次的变化，如输888会显示8/88/888，输入8374会显示8/83/837/8374,我想输完整888后再输8374显示888/8374，达到这样的效果，为此，如果change事件实在做不到的话？可否用其他诸如worksheet_change的事件如何实现呢？事件来做？？这点还请大神们不吝赐教

Answer 1

Private Sub TextBox1_Change()
    rng=cells(4,4).value
    If rng= "" Then
        rng = TextBox1.text
    Else
        if rng<>textbox1.text then rng = rnb & "/" & TextBox1.text
    End If
End Sub

如果输入的值与D4单元格相同,那么会保持单元格值不变!!!

追问

我的最终问题是怎么避免每输入一次的变化，如输888会显示8/88/888，输入8374会显示8/83/837/8374,我想输完整888后再输8374显示888/8374，达到这样的效果，为此，如果change事件实在做不到的话？可否用其他诸如可否结合worksheet_change的事件实现呢？这点还请大神不吝赐教

Answer 2

楼主的问题，在实际上决定于，如何界定每次输入结束？
如果只是靠键盘上数据的值，那么比如敲击了键盘“8”、“8”、“8”、“8”、“3”、“7”、“4”，如何让你自己或程序知道是输入的
“888”、“8374” 两个数值，而不是
“8888374”这一个数值？
如果楼主自己都无法界定，那么，程序又如何分辨？

Answer 3

可以做的哟！
change是内容改变事件，你只输入一个数字！

追问

愿闻其详，呵呵，请大神不吝赐教，

追答

每输入一个数字都会变的哟！
Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) Then
If Cells(4, 4) = "" Then

Cells(4, 4) = TextBox1.Value
Else
Cells(4, 4) = Cells(4, 4) / TextBox1.Value
End If
End If
End Sub

追问

我的最终问题是怎么避免每输入一次的变化，如输888会显示8/88/888，输入8374会显示8/83/837/8374,我想输完整888后再输8374显示888/8374，达到这样的效果，为此，如果change事件实在做不到的话？可否用其他诸如keydown的事件来做？？这点还请大神不吝赐教

追答

你的输入是固定字符长度的么，如果不是怎么知道你输入完成了
changeg事件可能不好做哟！

追问

可否结合worksheet_change事件实现呢？如果能具体应该如何做呢？

追答

不管哪种，你必须确定怎样来表示你输入结束了