Excel隐藏文字区域

我想要做的是，当我点击一个特定的Excel文本区域，它会立即隐藏它。

我试过这个=>

Sub ZoneTexte2_Cliquer() ActiveSheet.Shapes("ZoneTexte2").Visible = False End Sub 

但是我不太了解VBA脚本中的东西。

Answer 1

如果您使用“Assign Macro”菜单项为形状分配了macros，那么您的代码几乎是正确的。

尝试ActiveSheet.Shapes(Application.Caller).Visible = False

可以将其用作所有形状点击事件的通用处理程序，假设您先将其分配给所有形状。

如果您想直接使用它们的名称，则可能需要使用以下内容来获取正确的名称以备后用。

msgbox Prompt:=ActiveSheet.Shapes(Application.Caller).Name

如果在macros中单击带有该代码的形状，它将显示一个包含其专有名称的消息框，对于文本区域形状，通常是“文本框N”（空格和大写字母很重要）

Answer 2

一些vba …

 Public OrigColumn As Integer Public OrigRow As Integer Public OrigValue As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count = 1 Then If OrigColumn = 0 And OrigRow = 0 And OrigValue = "" Then ' first time usage, there is no history selection... Else ' show the original value when enter out the cell Cells(OrigRow, OrigColumn).Value = OrigValue End If OrigColumn = Target.Column OrigRow = Target.Row OrigValue = Target.Value Target.Value = Null End If End Sub