Sub_Total = WorksheetFunction.Sum(Range(Cells(A, N), Cells(B, N)))
又は　WorksheetFunction.Sum(Range("A1:A1000"))
又は　Application.WorksheetFunction.Sum(Range("A1:A1000"))

Application.Wait (Now() + "0:00:00.1")
    指定時刻 = Now() + TimeValue("HH:MM:SS")  '現在時刻より何分後 (例) 3分後なら 00:03:00
    Application.Wait (指定時刻)               'この行でマクロ実行を指定時刻まで中断する

Dim SinStart As Single
Dim i As Single

SinStart = Timer
　　処理A
MsgBox "処理Aにかかった時間 : " & Timer - SinStart & "秒"

ABook = ActiveWorkbook.Name
ASheet = ActiveSheet.Name

Windows(ABook).Activate
Sheets(ASheet).Select

InputBook = Range("B1").Value
InputPath = Range("B2").Value
NeedPrint = Range("B7").Value

文字列として表示する方法
=SUM(A1:A5)と表示したい場合「'=SUM(A1:A5)」と頭に「'」(アポストロフィ)を付けて入力します。

計算式を確認したい場合や印刷したい場合、簡単に切り替える方法
ショートカットキー【Ctrl】+【Shift】+【@】　　(解除も同じです)

メニュー操作で行う方法
メニューバーの【ツール】→【オプション】を選択。
【表示】タブを選択。
『数式』をクリックしてチェックを入れます。

Range(Cells(DelStart, L), Cells(CurrentRow - 1, L)).Select
Cells(CurrentRow - 1, L).Activate
Application.CutCopyMode = False
Selection.ClearContents

Rows(K & ":" & K).Select
Selection.Delete Shift:=xlUp

Range("F1").Select
    ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-3]+RC[-1]"

[  ]内に変数を使う場合の注意
"=SUM(R[行top]C:R[-1]C)"ではエラー、正しくは "=SUM(R[" & 行top & "]C:R[-1]C)"

Range("F9").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"

Worksheetfunction.Sum(　Range("L2:L" & RowMax) )

Cells(CurrentRow, L).Select
ActiveCell.FormulaR1C1 = "=SUM(R[" & SigStart & "]C:R[-1]C)"

MsgBox Cells(1, I).Formula
式を文字列で返す、式が入っていないと、値を返す

[Shift]キーを押しながらアクティブセルを移動すると、移動した範囲が選択状態になる
[Ctrl]キーを押しながら[End]キーを押すと、そのシートで使用されている範囲の右下に
アクティブセルが移動する
アクティブセルを現在使用しているセルの左上(セルA1)に置いた状態で、
[Ctrl]＋[Shift]＋[End]キーを押すと、現在使用しているセル範囲が自動的に選択される。

CurrentRegion

Range(任意のセル, ActiveCell.SpecialCells(xlLastCell))

ActiveSheet.UsedRange
Sheets("Sheet1").UsedRange

Num_countup = Application.RoundDown(実数, 0)
Num_round = Round(実数, 0)
Num_countdown = RoundUP (実数, 0)

Function 指定前日(本日 As Date) As Date
指定前日 = 本日 - 1
End Function
--------------------------------------------
Sub 前日ファイル名()

Dim 本日 As Date

本日 = Date
前日 = 指定前日(本日)
MsgBox "本日=" & 本日 & vbCrLf & "前日=" & 前日

End Sub

Dim TBL(30, 5) As Variant

Erase TBL

Dim Data() As Variant

N = 0
For I = 2 To MaxRow
            ReDim Preserve Data(N) As Variant
                Data(N) = Cells(I).Value
            N = N + 1
Next I
Preserveがないと、配列拡張ごとに既存要素をクリアする

Dim Data() As Variant

N = 0
For I = 2 To MaxRow
            ReDim Preserve Data(19, N) As Variant
            For J = 0 To 19
                Data(J, N) = Cells(I, J + 1).Value
            Next J
            N = N + 1
Next I

ReDim Preserve　Data(N, 19) As Variantでは実行時にエラーになる。
１次元目を確定して、２次元目を拡張してゆく

Public Work() As Variant
Sub UserForm2_Test()

Dim N As Integer

        ReDim Preserve Work(9, 0) As Variant
        Work(0, 0) = "交付日付"
        xxxxxxxxxxx
        Work(9, 0) = "担当"
        
        N = 1
        ReDim Preserve Work(9, N) As Variant
        Work(0, N) = "2012年4月21日"                       '日付
        xxxxxxxxxxx
        Work(9, N) = "営業事務"                            '担当
        
        UserForm2.Show vbModeless
        
End Sub

2次元配列(I,J)を段階的にReDimする場合、I行、J列自由に再定義できるのではなく、
("インデックスが有効範囲にありません"エラーがでるので）I列を固定し、J列のみ再定義する

Option Explicit

' プロシージャを超えて参照する変数／定数は動作するプロシージャの前(外)で宣言する。
Public X                ' ←他モジュールからも参照可(変数)
Private Y               ' ←このモジュールからのみ参照可(変数)
Public Const A = "AAA"  ' ←他モジュールからも参照可(定数)
Private Const B = "BBB" ' ←このモジュールからのみ参照可(定数)

Sub TEST()
' プロシージャ固有の変数／定数はプロシージャ内で使用する手前で宣言する。
    Dim Y               ' ←値はプロシージャを抜けるとリセットされる、同一名は
                            モジュールレベルよりプロシージャレベルが優先
    Static Z            ' ←値はプロシージャを抜けても保持される
    Const C = "CCC"     ' ←プロシージャレベルでの定数、値を置き換えるとエラーになる

End Sub

Cells(4, 書出し列).Select
Selection.NumberFormatLocal = "#,##0_ "
If I Mod 2 = 1 Then
    Selection.NumberFormatLocal = "#,##0.0_ "
End If