実行時エラー　型が一致しません　の該当箇所が分かりません。

投稿者 : 佐藤     投稿日時 : 2021/08/20(Fri) 12:12:10     OS : Windows 10     EXCEL : Excel 2016

---

皆様宜しくお願い致します。

以下のマクロを実行使用とするとエラーが出てしまいます。また、その際デバッグか終了かの処理の選択ポップアップが出ません。どうかご指摘の程宜しくお願い致します。
因みに、S7セルには=IF(AND(Q7="1",R7="1"),"○","")の式が入っています。

Sub AKA()

Dim i As Long
Dim dw As Long
Dim y As Long

i = 3
dw = "○"
y = 3

Do Until Cells(i, 7).Value = ""
    Cells(2, 10).Value = Cells(i, 7).Value
    i = i + 1

    Application.Wait Now() + TimeValue("00:00:01")
    DoEvents
    If Cells(7, 19).Value = dw Then
            Cells(y, 8).Value = Cells(2, 10).Value
        y = y + 1

    End If
    
Loop


End Sub

投稿者 : 佐藤     投稿日時 : 2021/08/20(Fri) 12:20:00

---

訂正致します。

×　→　Dim As dw Long
○　→　　　　　　String

これは試しにいろいろやってみた時に、元に戻すのを忘れていました。

投稿者 : ヘンリー     投稿日時 : 2021/08/20(Fri) 14:38:05

---

＞×　→　Dim As dw Long
＞○　→　　　　　　String

※Dim As dw Long
は間違えていますよね。

VBAを始めたばかりならば、しっかりコードを書く訓練の為にも、
この様に省略して書くのはお勧めしません。

×Dim dw As Long
〇Dim dw As String

という様に書く習慣をつけるで理解が深まる事もあるでしょう。


＞その際デバッグか終了かの処理の選択ポップアップが出ません。
それなら、そのような形で「実行時エラー　型が一致しません」
と出ているのでしょうか？


掲載されているコードに問題なさそうですが、
「型が一致しません」というエラーは、
変数への代入時、比較時に多く出る事があります。

数値型の変数に、文字列を代入しようとしたり、
文字列と数値型の変数を比較したりする場合が多いです。

投稿者 : 佐藤     投稿日時 : 2021/08/20(Fri) 15:29:11

---

ヘンリー様
早々のご返信並びに、アドヴァイスありがとうございます。

コードに問題が無さそうとのことだったので、新モジュール挿入からコード打ち直したら出来ました。

困ったときの初期化を失念していました。
ありがとうございました！