[已解决]代码数值的关联性VBA代码

网络人

Private Sub TextBox3_Change()
If e = False Then TextBox8.Value = "1.2"
End If
End Sub

Private Sub TextBox4_Change()
If b = False Then TextBox8.Value = "1.2"
End If
End Sub

Private Sub TextBox5_Change()
If c = False And TextBox5 = "400" Then
        TextBox8.Value = "1.15"
        Else
        TextBox8.Value = "1.2"
End If
End Sub
求助Private Sub TextBox5_Change()在运行时如果发现 TextBox8.Value = "1.2"的值就等1.2，否则就执行下面的代码
If c = False And TextBox5 = "400" Then
        TextBox8.Value = "1.15"
        Else
        TextBox8.Value = "1.2"
End If
End Sub的VBA代码求助

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-9-12 12:51

1. Private Sub TextBox5_Change()
   
2. If textbox8.Value = "1.2" Then
   
3.   textbox5 = "1.2"
   
4. Else
   
5.   If c = False And textbox5 = "400" Then
   
6.     textbox8.Value = "1.15"
   
7.   Else
   
8.     textbox8.Value = "1.2"
   
9.   End If
   
10. End If
    
11. End Sub

复制代码

跳转到最佳答案楼层

网络人

有高手知道怎么弄么

大灰狼1976

1. Private Sub TextBox5_Change()
   
2. If textbox8.Value = "1.2" Then
   
3.   textbox5 = "1.2"
   
4. Else
   
5.   If c = False And textbox5 = "400" Then
   
6.     textbox8.Value = "1.15"
   
7.   Else
   
8.     textbox8.Value = "1.2"
   
9.   End If
   
10. End If
    
11. End Sub

复制代码