单元格值是否可以触发用户表单?

时间:2016-06-01 22:21:41

标签: excel excel-vba vba

我正在Excel中为牙科诊所创建一个小型结算系统(只要提及它,以防有人提出任何有关我所面临问题的酷想法的提示/技巧/建议)。我有一个小模板用于在其中一个单元格中创建发票我有一个数据验证用于选择患者,我想知道在列表中所选择的名称是否是"新患者"用户窗口可以弹出输入新的患者信息吗?

1 个答案:

答案 0 :(得分:1)

例如:将其放在工作表模块中并根据需要调整引用

Private Sub Worksheet_Change(ByVal Target As Range)

    Const NEW_PAT As String = "New Patient"
    Const RNG_NEW_PAT As String = "B3"
    Dim c As Range
    Set c = Target.Cells(1) 'in case multiple cells changed...

    If c.Address = Me.Range(RNG_NEW_PAT).Address Then
        If c.Value = NEW_PAT Then
            'show userform
        End If
    End If


End Sub