Question

我创建了一个excel工作表，让我们称之为定价＆＃39;。在定价时，有一个命令按钮＆＃39;注释＆＃39;按下时a）隐藏＆＃39;定价＆＃39;和b）使可见并选择第二个名为＆＃39; -notes - ＆＃39;的工作表。然后，用户可以进行记录，然后通过按下命令按钮返回定价表。在-notes-表上。后退按钮需要a）隐藏-notes-表和b）制作可见和选择定价表。

一些定价＆＃39;的工作簿。将被复制到没有-notes-表，所以＆＃39;注意＆＃39;定价表上的按钮还需要A）检查是否有一张名为-notes-的表格，如果没有，则需要创建它，B）它需要创建＆＃39;回＆＃39;按钮和代码，所以当按下后退按钮时，将隐藏-notes-然后使其变得可见并选择定价＆＃39;。这是B，我遇到了麻烦。我可以创建按钮并将其命名为“后退”，但我不知道如何隐藏 - 注意 - 并使其可见并选择定价＆＃39;。

以下是检查-Notess-表的代码，如果没有，则创建它：

Public Sub notesButton_Click()  

Dim s As Worksheet
Dim sName As String
sName = ActiveSheet.Name
Dim result As Boolean
result = False  


For Each s In ThisWorkbook.Sheets
If s.Name = "-notes-" Then 
result = True
End If
Next  


If result = False Then
Sheets.Add.Name = "-notes-"
Worksheets(sName).Visible = xlSheetVeryHidden
Worksheets("-notes-").Buttons.Add(500, 1, 81, 39).Select
Selection.Name = "Back"
Selection.OnAction = "Back"
ActiveSheet.Shapes("Back").Select 
Selection.Characters.Text = "Back"
Worksheets("-notes-").Shapes("Back").OnAction = "!<wsclose>"
Else
Worksheets("-notes-").Visible = True
Worksheets("-notes-").Select
Worksheets(sName).Visible = xlSheetVeryHidden
End If

该行：

Worksheets("-notes-").Shapes("Back").OnAction = "!<wsclose>"

是个问题。我想点击按钮来运行这个子按钮：

Public Sub wsclose()
Worksheets(sName).Visible = True 
Worksheets(sName).Select
Worksheets("-notes-").Visible = xlSheetVeryHidden
End Sub

然而，当我点击后退按钮时，我收到以下消息：

＆＃39;无法运行宏＆＃34;续订Oricing Sheet v3.xls＆＃39;！wsclose＆＃39;。宏可能在此工作簿中不可用，或者所有宏都可能被禁用＆＃39;

命令按钮的代码

0 个答案: