更新VBA中从组合框中选择的项的关联值

Question

我有一个包含两列的excel表(A列包含姓名，B列包含号码电话)。我已经创建了一个包含姓名列表的组合框，我想从这个组合框中选择一个姓名，然后更新其对应的电话号码。我试过这个代码，但它不工作。

Sub UpdateNumber()
Dim Ans As String, Index As Integer
Ans = InputBox("What is " & NameForm.ComboBox1.Value & " 's new phone number?")
If Ans <> "" Then 
Index = NameForm.ComboBox1.ListIndex
Sheets("Names").Range("A" & Index).Offset(0, 1).Value = Ans

End If
End Sub

有人能帮我一下吗?

Answer 1

尝试下面的代码

Sub UpdateNumber(Optional boxShow As Boolean = True)
Dim Ans As String, Index As Integer
If boxShow = false Then exit sub
Ans = InputBox("What is " & NameForm.ComboBox1.Value & " 's new phone number?")
If Ans <> "" Then 
Index = NameForm.ComboBox1.ListIndex
Sheets("Names").Range("A" & Index).Offset(0, 1).Value = Ans

End If
End Sub
sub btn_onclick()
boxShow True   'no msgbox
boxShow False  'with msgbox
boxShow 'no msgbx
end sub

发现