【VBA】「プロシージャが大きすぎます」エラーの原因と解決方法

Sub ProcessData()

Dim ws As Worksheet
Dim i As Integer
Set ws = ThisWorkbook.Sheets("Sheet1")

' データ入力
For i = 1 To 10000

ws.Cells(i, 1).Value = "データ " & i

Next i

' 書式設定
ws.Range("A1:A10000").Font.Bold = True

' 合計計算
ws.Cells(10001, 1).Formula = "=SUM(A1:A10000)"

' メッセージ表示
MsgBox "処理完了！"

End Sub

Sub ProcessData()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

InputData ws
FormatCells ws
CalculateTotal ws
ShowCompletionMessage

End Sub

' データ入力処理
Sub InputData(ws As Worksheet)

Dim i As Integer
For i = 1 To 10000

ws.Cells(i, 1).Value = "データ " & i

Next i

End Sub

' 書式設定処理
Sub FormatCells(ws As Worksheet)

ws.Range("A1:A10000").Font.Bold = True

End Sub

' 合計計算処理
Sub CalculateTotal(ws As Worksheet)

ws.Cells(10001, 1).Formula = "=SUM(A1:A10000)"

End Sub

' メッセージ表示処理
Sub ShowCompletionMessage()

MsgBox "処理完了！"

End Sub

Sub ProcessData()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

Dim i As Integer
For i = 1 To 10000

ws.Cells(i, 1).Value = "データ " & i

Next i

End Sub

Sub ProcessData()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

FillData ws, 1, 10000

End Sub

Sub FillData(ws As Worksheet, startRow As Integer, endRow As Integer)

Dim i As Integer
For i = startRow To endRow

ws.Cells(i, 1).Value = "データ " & i

Next i

End Sub

Sub ProcessData(value As Integer)

If value = 1 Then

MsgBox "処理Aを実行"

ElseIf value = 2 Then

MsgBox "処理Bを実行"

ElseIf value = 3 Then

MsgBox "処理Cを実行"

Else

MsgBox "無効な値です"

End If

End Sub

Sub ProcessData(value As Integer)

Select Case value

Case 1: ExecuteA
Case 2: ExecuteB
Case 3: ExecuteC
Case Else: MsgBox "無効な値です"

End Select

End Sub

Sub ExecuteA()

MsgBox "処理Aを実行"

End Sub

Sub ExecuteB()

MsgBox "処理Bを実行"

End Sub

Sub ExecuteC()

MsgBox "処理Cを実行"

End Sub