我正在使用Excel,我希望根据单元格地址(ex A3)获取表格的名称,此单元格不会移动.我将如何在Excel的VBA中说明这一点?
我的计划是将代码从我的维护选项卡上的一个表的行复制数据验证到我工作簿的每个选项卡上的单个表(减去我的"TOC"和"数据"选项卡).每个选项卡都是"模板"工作表的副本(减去"TOC","数据"和"模板(维护)"工作表).工作表"data","TEMPLATE"和"TEMPLATE(Maint.)"可能隐藏也可能不隐藏.
我在"Copy_Data_Validations"子代码中的代码如下:
Dim TotalSheets As Integer
Dim p As Integer
Dim iAnswer As VbMsgBoxResult
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
'
' Move sheet "TOC" to the begining of the workbook.
'
Sheets("TOC").Move Before:=Sheets(1)
'
' Move sheet "data" to be the second sheet in the workbook.
'
Sheets("data").Move Before:=Sheets(2)
iAnswer = MsgBox("You are about to copy data validations!", vbOKCancel + vbExclamation _
+ vbDefaultButton2 + vbMsgBoxSetForeground, "Copying Data Valadations")
For TotalSheets = 1 …Run Code Online (Sandbox Code Playgroud)