根据下拉菜单选择内容自动弹出添加批注对话框

jjq919

单位最近每天都要进行核酸检测情况反馈，包括：已测，未出结果；已测，阴性；已测，阳性；未测。已经做成下拉菜单让大家选择，但是今天上级主管又要求，如果未测，必须说明原因。不知道该如何实现？当有人选择未测，自动弹出添加批注窗口，填写原因说明。

wpqterry

我尝试了用VBA编写一个函数实现这个功能

1. Public Function 添加备注(rng As Range)
   
2.     Dim msg As String
   
3.     If rng.Value = "未测" Then
   
4.         msg = InputBox("请备注未测原因")
   
5.         添加备注 = msg
   
6.     Else
   
7.         添加备注 = ""
   
8.     End If
   
9. End Function

复制代码