[已解决]求助VBA代码

安全网

求助当单元格的值写入TextBox5.Value 后，手动修改数据后的值不等于660，TextBox6.Value 写入的值就是1.2，否则写入的就是1的VBA 代码

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-22 23:24

你现在的问题点是不是要手工修改时才判断，而在VBA对TEXTBOX5控件赋值时不判断？
这个比较简单，只要用个公共变量就行了。
举个简单例子，在VBA对TEXTBOX1赋值时不处理，而手工修改TEXTBOX1数值＝30时会跳出消息框，代码如下：

1. Public b As Boolean
   
2. Private Sub CommandButton1_Click()
   
3. b = True
   
4. TextBox1 = 30
   
5. b = False
   
6. End Sub
   
7. 
   
8. Private Sub TextBox1_Change()
   
9. If b = False Then If TextBox1 = 30 Then MsgBox 1
   
10. End Sub

复制代码

跳转到最佳答案楼层

池盛龙

if

1. if   TextBox5.Value  <> 660 then
   
2. 
   
3. TextBox6.Value =1.2
   
4. else
   
5. TextBox6.Value =1
   
6. end if
   

复制代码

大灰狼1976

你现在的问题点是不是要手工修改时才判断，而在VBA对TEXTBOX5控件赋值时不判断？
这个比较简单，只要用个公共变量就行了。
举个简单例子，在VBA对TEXTBOX1赋值时不处理，而手工修改TEXTBOX1数值＝30时会跳出消息框，代码如下：

1. Public b As Boolean
   
2. Private Sub CommandButton1_Click()
   
3. b = True
   
4. TextBox1 = 30
   
5. b = False
   
6. End Sub
   
7. 
   
8. Private Sub TextBox1_Change()
   
9. If b = False Then If TextBox1 = 30 Then MsgBox 1
   
10. End Sub

复制代码

安全网

大灰狼1976 发表于 2017-4-22 23:24
你现在的问题点是不是要手工修改时才判断，而在VBA对TEXTBOX5控件赋值时不判断？
这个比较简单，只要用个 ...

设置怎么样的VBA代码可以同时判断TEXTBOX03/TEXTBOX04/TEXTBOX05三个控件是否手动修改过

大灰狼1976

如果是在手动修改时提醒倒是可以的，但是手动修改过（已经处于修改后状态）的判断没那么简单，
可能需要用到履历管理了，实现是肯定可以的。

安全网

大灰狼1976 发表于 2017-4-28 16:24
如果是在手动修改时提醒倒是可以的，但是手动修改过（已经处于修改后状态）的判断没那么简单，
可能需要用 ...

复杂吗？

大灰狼1976

这要看你的要求了，你要查看多久以前的修改履历。一两句说不清的。

安全网

大灰狼1976 发表于 2017-4-28 20:20
这要看你的要求了，你要查看多久以前的修改履历。一两句说不清的。

查看每个最好一次的修改，就是好这个等于660时，就判断其他的两个有没有修改过，没有修改就等于1修改了就等于1.2

安全网

有高手知道怎么弄么？