VBA便利程序

/* 全部Sheet的A1選択 */
Sub A1選択()
    Dim s As Object
    Dim defaultSheet As Object
    Set defaultSheet = ActiveSheet
    For Each s In ActiveWorkbook.Sheets
        s.Activate
        ActiveSheet.Range("A1").Select
        ActiveWindow.Zoom = 100
    Next s
    defaultSheet.Activate
End Sub


/* 全部的Tab颜色变更 */
Sub SetTabColor()
    Dim s As Object
    Dim defaultSheet As Object
    Set defaultSheet = ActiveSheet
    For Each s In ActiveWorkbook.Sheets
        s.Activate
        ActiveSheet.Tab.ColorIndex = xlColorIndexNone　/*无色*/
    Next s
    defaultSheet.Activate
End Sub


/* ColorIndex颜色的值表示 */
Sub GetColorIndex()
    For i = 1 To 56
    Cells(i, 1) = i
    Cells(i, 1).Interior.ColorIndex = i
    Next
End Sub


/* 一括更新 */
Sub 指定单元格全部記入()
    Dim s As Object
    Dim defaultSheet As Object
    Set defaultSheet = ActiveSheet
    Dim version As String
    version = InputBox("Format：XXXX")
    If version = "" Then
    Else
     For Each s In ActiveWorkbook.Sheets
        s.Activate
        ActiveSheet.Range("AG4").Value = version
     Next s
     defaultSheet.Activate
    End If
End Sub