Sub ObjectvarExample() Dim WorkingRange As Range Set WorkingRange = Workbooks("Hour8").Worksheets("Sheet1").Range("A1:D12") WorkingRange.Font.Bold = True WorkingRange.Font.Italic = True WorkingRange.Font.Name = "ABC" End Sub 為何提示引索超出范圍﹖
Sub CountWorkSheets() Dim iCount As Integer Dim sMess As Integer iCount = Worksheets.Count If iCount <> 7 Then sMess = "The workbook is:" & iCount sMess = stessage & "It should contain 7 worksheets" MsgBox sMess End If End Sub