Set1-B01

Excel VBA Base Book

2023.05.052023.11.11

Base Procedure Set 1

下記ボックス内をコピーし、標準モジュールに貼り付ける。
モジュール名を【B01_Tool】に変更する。

　モジュール名：B01_Tool

Option Explicit　

'====================================================
'    64bit : Sleep使用のおまじない
'    Sleep 1000　　　　　　　　　　　　'1秒
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
'====================================================

'*****************************************************
'    全シート再計算を走らせないようにするコード
'*****************************************************
Sub notCalcAll()
    Dim i As Long
    'Excel(アプリケーション)全体：計算を手動計算に設定
    Application.Calculation = xlCalculationManual                 '手動計算
    'Application.Calculation = xlCalculationAutomatic             '自動計算
    For i = 1 To ThisWorkbook.Worksheets.Count
        'ブックを閉じ、開くと全て "True"
        If Worksheets(i).Name = "Main" Then
            'シートごと：計算可能シート
            Worksheets(i).EnableCalculation = True
            'Worksheets(i).Calculate                              '計算実行
        Else
            'シートごと：計算停止シート
            Worksheets(i).EnableCalculation = False
        End If
    Next i

End Sub