文本框方程的变量回答另一个文本框

我想进入与细胞（V38）的值乘时，能够从textbox5使用的值，并将它显示答案textbox7文本框方程的变量回答另一个文本框

Private Sub TextBox7_Change() 
Dim value As Integer 
If TextBox5.value > 0 Then 
    TextBox7.value = TextBox5.value * Sheet1(v38).value 
Else 
    Me.TextBox7.value = 0 
End If 
End Sub

来源

2017-06-23 Tim

更具体，你想什么，以实现和你做了什么至今。你是否有任何错误，如果是的话显示它们。想象一下，你正在回答某个人的问题，你需要什么信息 – Skeptor

Textbox7_change事件会触发一个无限循环..去Textbox5_change事件 –

所以这是我最终做到的，它运作良好。

Private Sub TextBox5_Change() 
 
On Error Resume Next 
 
Dim value As Integer 
 
On Error Resume Next 
 

 
If TextBox5.value > 0 Then 
 
TextBox7.value = Round(TextBox5.value * Range("v38"), 1) 
 
Else 
 
    Me.TextBox7.value = 0 
 
DoEvents 
 
End If 
 

 
End Sub

来源

2017-06-29 06:20:19 Tim

文本框方程的变量回答另一个文本框

回答

相关问题