[已解决]急急急TextBox与单元格同步更新问题？

kenliu75 · 发表于 2011-9-1 10:38

请大家帮帮忙谢谢

TextBox与单元格同步更新.rar (15.36 KB, 下载次数: 6)

无聊的疯子 · 发表于 2011-9-1 10:55

回复 kenliu75 的帖子

使用Sheet1的Change事件

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rn As Range
Dim X As Range
Set Rn = Sheet1.Range("B10:F14")
For Each X In Rn
If Target.Address = X.Address Then UserForm1.TextBox1.Value = Sheet1.Range("C2"): Exit For
Next
End Sub

复制代码

fjmxwrs · 发表于 2011-9-1 11:26

回复 kenliu75 的帖子

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 9 And Target.Row < 15 And Target.Column > 1 And Target.Column < 7 And Target.Count = 1 Then
Range("C2") = Application.Sum(Range("B10:F14"))
UserForm1.TextBox1.Value = Application.Sum(Range("B10:F14"))
End If
End Sub

复制代码

C2的公式也不要，直接在B10：F14区域输入数字，C2和textbox1同时得到结果。

TextBox与单元格同步更新.rar (17.51 KB, 下载次数: 20)

liuguansky · 发表于 2011-9-1 11:48

TextBox与单元格同步更新.rar (26.29 KB, 下载次数: 47)

		自动登录	找回密码
密码			注册