Excel隐藏文本区

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

我试过这个=>

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

---

但是我对VBA脚本不太了解。

如果您使用形状的“Assign macro”菜单项指定了宏，那么您的代码几乎是正确的

尝试

ActiveSheet.Shapes（Application.Caller）.Visible=False

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

如果您想直接使用他们的名字，您可能需要使用以下命令来获取他们的正确名字，以便以后使用

msgbox提示符：=ActiveSheet.Shapes（Application.Caller）.Name

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

某些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

---

这和问题有什么关系？这是一种在单元格中隐藏值的方法，我以为Meds是在寻找隐藏值，但它是关于形状的。