Question

vba问题点击单元格触发事件

要达到的效果：如果l1是空值，则弹窗提示并让输入。
问题：
下面的公式可以将输入的数字填充到L1，
但是，当我鼠标再随便一点其他的地方，刚刚L1中的数字，立马就消失了。不知道咋回事，求大佬指点一下，谢谢

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sr As String
If Range("l1") = "" Then
MsgBox "填充前，请输入发包方编码！"
sr = Application.InputBox("输入发包方编码", "EXCEL", "411000", , , , , 2)
End If
Range("l1") = "'" & sr
End Sub

Answer 1

把 这句挪到End if里面，不为空的时候就不会改写L1格子内容了
Range("l1") = "'" & sr
End If