VBA根据其他文本框是否为空来更改文本框中的值

Question

在此处尝试一些代码，以寻求帮助。我试图根据另一个文本框是否具有值来找出更新文本框值的正确语法。

故障

• Textbox1名称= arisk_box
• Textbox2名称= Adjust_box3
• Textbox3名称= rr_box

这是我到目前为止所拥有的：

Private Sub arisk_box_Change()
If arisk_box.Text <> "" And adjust_box3.Text = "" Then
    rr_box.Value = arisk_box.Value
 ElseIf arisk_box.Text <> "" And adjust_box3.Text <> "" Then
    rr_box.Value = adjust_box3.Value
 End If
 End Sub

   *If arisk_box has a *VALUE* and adjust_box3 *DOES NOT* then rr_box = the value from arisk_box
  Elseif arisk_box AND adjust_box3 both have a *VALUE* then rr_box = the value from adjust_box3

Answer 1

使用2个单独的宏的最简单方法，每个文本框更改事件都使用一个。但是它可能无法如您所愿地顺利运行。我相信有人会采用更先进的方法。

Private Sub adjust_box3_Change()
    If arisk_box <> "" And adjust_box3 = "" Then rr_box = arisk_box
End Sub

Private Sub arisk_box_Change()
    If arisk_box <> "" And adjust_box3 <> "" Then rr_box = adjust_box3
End Sub