Excel隐藏文本区域

Question

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

我想这=>

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

但我不知道在VBA脚本太多的东西。

Answer 1

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

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

哪些可以用作所有形状点击事件的通用处理器，假设你首先分配给所有你的形状。

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

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

如果你的形状点击与宏的代码，它会显示一个消息框，包含了适当的名称，文字区域形状，通常是“文本框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