ExcelVBA Subに対して「定数式が必要です」というエラーが発生しました。

Question

前提・実現したいこと

全くの初心者です。
Mac版のExcalVBAでアニメーションを制作しようとしたところ、
Subに「定数式が必要です」というコンパイルエラーが発生しました。
拙いコードですが、見ていただければ幸いです。

発生している問題・エラーメッセージ

subはマクロの名称と認識していたため、この場合の定数式とは何のことか、具体的に何をすれば良いのか、見当もつきません。

該当のソースコード

'実行速度を遅める
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

**Sub anime4()****問題のエラーが発生したところです。**

'Sheet1を定義
Dim sh1 As Worksheet
Set sh1 = Sheet1

'Sheet1の７パターンのセル画（横１７×縦１２）を定義
Dim i As Integer
For i = 1 To 7
    Dim Pattern(i) As Range
    Set Pattern(i) = Range(sh1.Cells(1, 1 + 12 * (i - 1)), sh1.Cells(17, 12 * i))
Next

'Sheet2を定義
Dim sh2 As Worksheet
Set sh2 = Sheet2
 
'Sheet2のA1からQ12の領域を定義、その領域をクリアにする
Dim Area As Range
Set Area = Range(sh2.Cells(1, 1), sh2.Cells(17, 12))
Area.Clear

'パターン２と３は貼って消してを3回繰り返す
'パターン７は貼ったまま残す
'それ以外は貼って消す
'１→２→３→２→３→２→３→４→５→６→７
Dim j, k As Integer
j = 1

If k = 2 Then
    Do Until j = 3
        For k = 2 To 3
        Pattern(k).copy Destination = sh2.Cells(1, 1)
        Area.Clear
        j = j + 1
    Loop

If k = 7 Then
    Pattern(k).copy Destination = sh2.Cells(1, 1)

Else
    Pattern(k).copy Destination = sh2.Cells(1, 1)
    Area.Clear

Sleep 200

End If


End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

Mac版だからなのか、これまでにもExcelVBAが作動しないことが多々ありました。それらのマクロはWindowsでは正常に作動しました。

Answer 1

質問の内容について

まず、このエラーについてはMicrosoft Documentにもある通りです。
質問者様はSubの宣言の方法のエラーかと推測されたようですが、
問題は、上記リンクの2番目で、

プロシージャ内で動的な配列を宣言するには、ReDim を使用して配列を宣言し、変数を使用して要素の数を指定します。

の場所です。

ここで言う「定数式が必要」とは、嚙み砕いていうと、
「配列を定義する際の要素数は変数ではなく、定数である必要がある」という意味になります。

よって、問題個所は質問者様のコードの下記の部分です。

'Sheet1の７パターンのセル画（横１７×縦１２）を定義
Dim i As Integer
For i = 1 To 7
    Dim Pattern(i) As Range
    Set Pattern(i) = Range(sh1.Cells(1, 1 + 12 * (i - 1)), sh1.Cells(17, 12 * i))
Next

このうち Dim Pattern(i) で配列の要素数に変数を指定しているため、
エラーとなっているわけです。

デバッグモードでステップ実行すればこの場所でエラーとなるでしょう。

動的配列を宣言するには、例えば

'動的配列宣言の例
Dim arr() as Range
Dim i as Integer

i = Int(100 * Rnd)
Redim arr(i)

と、Redimにより要素数を指定する必要があります。
ですが、そもそもこのコードでは動的配列を使う理由もないので、
(配列要素は常に一定のため)

'Sheet1の７パターンのセル画（横１７×縦１２）を定義
Dim i As Integer
Dim Pattern(1 To 7) As Range
For i = 1 To 7
    Set Pattern(i) = sh1.Range(sh1.Cells(1, 1 + 12 * (i - 1)), sh1.Cells(17, 12 * i))
Next

とすればよいかと思います。

ここでの問題は2つあって、1つは、先述の通り動的配列の宣言の仕方が間違っていること、
もう一つは、同じ名前の配列が何度も宣言されること、です。

現状1つ目の配列を宣言する段階でエラーとなっているので、
後者の問題は表面化していませんが、存在しています。
そのため、上で修正したコードではDim Patternの位置をForループの外に出しています。

質問箇所とは関係ないこととして...

このコードがWindowsでは動いたということですから、
以降は見当違いな指摘かもしれません。

私の環境では、2番目、3番目はそもそもエラーを吐きます。
このコードが動くこと自体私の知識から外れているので、
あまりあてにしないでください...

1. 変数型指定の方法

'jはVariant、kがInteger
Dim j, k As Integer

'jもkもInteger
Dim j as Integer, k as Integer

2. おそらく、ここでもエラーになる

kに値が指定されるまえに参照されるため、エラーになるはずです。
そうでなくてもk=0で初期化した方がいいでしょう。

Dim j, k As Integer
j = 1

If k = 2 Then  

3. IfとEnd If、ForとNextの数が合わない

If k = 2 Then
...

以降のIfとEnd Ifの数が合わないので確認してください。
また、

For k = 2 To 3

のNextがないので確認してください。
ForとNextはセットです。

4. k=7になることがない

何か別のループを入れないと、
1つ目のIf k = 2 Thenを処理して、そのままEnd Ifに行って終了します。

Comments

[退会済みユーザー]

誤解を招くような補足をしてしまい、申し訳ありません。他のマクロはMacだと動かないのにWindowsだと動くことがあると言うことをお伝えしたかったのです…。このマクロがWindowsで動くかどうかはまだ確認しておりません。

ご丁寧に説明して頂きありがとうございます。不勉強でお恥ずかしいです。

回答者様のご指摘頂いた点を中心にマクロを見直してみます。
本当にありがとうございました。