2017-06-23 1 views
0

に変数answerとテキストボックスの方程式と、それは答えを示してい私は、セルの値と(V38)を乗算するために入ったときtextbox5から値を使用できるようにする別のテキストボックス

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 
+0

あなたが達成しようとしているものを、より具体的に、どのようなあなたが今までやりました。はい、表示されている場合は、エラーが発生していますか?あなたが誰かの質問に答えると想像してください、あなたが必要とする情報 – Skeptor

+0

Textbox7_changeイベントは無限ループを引き起こします.Go Textbox5_changeイベント –

答えて

0

ので、これは私が最終的にやったことであり、うまくいきます。

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

関連する問題