-1
所以我一直在玩宏和按钮,我试图做一个按钮,点击它时,它会转到上一张(他们是名字第一天,第二天,3等),所以我认为这不应该太难!宏按钮切换到上一张
这里是我迄今为止得到的代码:当我点击这个它说“下标越界”的按钮,我得到一个错误
Sub Previous_Day()
Worksheets("Day " & (sheetNum - 1)).Visible = xlSheetVisible
Worksheets("Day " & (sheetNum - 1)).Activate
Worksheets("Day " & sheetNum).Visible = xlSheetHidden
sheetNum = sheetNum - 1
End Sub
,我不完全知道为什么,这正在发生的事情,我在全球范围界定“当前工作簿”模块中sheetNum
,我将证明下面的代码:
Public sheetNum As Integer
Private Sub Workbook_Open()
Dim thisSheet As Worksheet
Dim sh As Worksheet
Dim start As Worksheet
Dim shName As String
Dim lastSheet As String
'name of the sheet template
shName = "Food Diary Template.xltm"
lastSheet = "Food Diary Last Entry.xltm"
Set start = Worksheets(1)
With start
If .Range("A1") = "" Then
.Range("A1") = Date
ActiveSheet.Shapes("Button 5").Select
Selection.Delete
.Range("B4").Select
End If
End With
Worksheets(Sheets.Count).Activate
'#### I like to use variables for worksheets:
Set thisSheet = ThisWorkbook.ActiveSheet
'Insert sheet template
With thisSheet
If .Range("A1") < Date Then
ActiveSheet.Buttons.Add(436.5, 104.25, 58.5, 18.75).Select
Selection.OnAction = "nextDay_Click"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Button 1"
With Selection.Characters(start:=1, Length:=8).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Next Day"
With Selection.Characters(start:=1, Length:=8).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
.Range("B4").Select
Set sh = Sheets.Add(Type:="C:\Users\edawes\AppData\Roaming\Microsoft\Templates\" & lastSheet, _
after:=Sheets(Sheets.Count))
'#### Put today's date in the new sheet:
sh.Range("A1") = Date
sh.Name = "Day " & Worksheets.Count
'Worksheets(sh).Active
sh.Range("B4").Select
'#### Hide the old sheet
.Visible = xlSheetHidden
End If
End With
sheetNum = Sheets.Count
End Sub
,我想它,但它的sheetNum
那我不知道该位工作正常关于,我做对了吗?我希望它是打开文件时的总页数,然后按下按钮时(也有第二天的按钮,但是当我得到这个工作时,这将非常简单),它会更新sheetNum
变量,以便它可以跟踪和前一个按钮可以继续按下...
任何想法?
不能在'Sub Previous_Day()'中使用'sheetNum = ThisWorkbook.Sheets.Count'吗? – EvenPrime 2014-09-05 12:55:33
@Thinkingcap这似乎没有区别 – MrPhooky 2014-09-05 12:58:25
看看这个:http://www.vbaexpress.com/kb/getarticle.php?kb_id=536 – EvenPrime 2014-09-05 13:01:41