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

我正在Excel中为一个牙科诊所创build一个小型的计费系统(只要提到这个系统,以防有人提出任何有关冷静想法的提示/技巧/build议,而这些提示/提示/build议与我所面临的问题并不真正相关)。 我有一个小模板,用于在其中一个单元格中创build发票我有一个用于select患者的数据validation,我想知道如果在列表中select的名称是“New Patient”,UserForm可以popup以input新的患者信息?

例如:把它放在工作表模块中,并适当调整参考

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