第1个回答 2020-03-27
在B8(你图上好像是B8)设好文字和黄色背景,然后选择“工具”-----“宏”----“vb编辑器”或ALT+F11,
在VB编辑器中,先双击左边窗口的“sheet1(sheet1)“,然后将以下代码复制到右边,OK
-----------------
Private
Sub
Worksheet_BeforeDoubleClick(ByVal
Target
As
Range,
Cancel
As
Boolean)
If
Not
Intersect([B8],
Target)
Is
Nothing
Then
Selection.Clear
End
If
End
Sub
-----------------------