[已解决]【按钮】-【CommandButton】点击判断 - （^_^）!!!

wxvba

按钮被点击判断.rar (14.04 KB, 下载次数: 17)

2017-8-27 22:49 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-8-28 07:48

搞个公用参数Dim p%
Private Sub CommandButton1_Click()
p = 1
Call 执行同一代码判断
End Sub
Private Sub CommandButton2_Click()
p = 2
Call 执行同一代码判断
End Sub


Sub 执行同一代码判断()
    If p = 1 Then
        ComboBox1.Value = "恭喜发财"
    ElseIf p = 2 Then
        ComboBox1.Value = "红包拿来"
    Else
        ComboBox1.Value = ""
    End If
End Sub

跳转到最佳答案楼层

苏子龙

搞个公用参数Dim p%
Private Sub CommandButton1_Click()
p = 1
Call 执行同一代码判断
End Sub
Private Sub CommandButton2_Click()
p = 2
Call 执行同一代码判断
End Sub


Sub 执行同一代码判断()
    If p = 1 Then
        ComboBox1.Value = "恭喜发财"
    ElseIf p = 2 Then
        ComboBox1.Value = "红包拿来"
    Else
        ComboBox1.Value = ""
    End If
End Sub

xingkongwubian

这个用不着判断啊，直接执行过程就行，附件已上