【VBA】実行時エラー 13 型が一致しません。の対処法

VBA

2021.02.102021.12.05

この記事は約2分で読めます。

記事内に広告が含まれています。

今回はExcel VBAを実行した際に発生した「実行時エラー 13 型が一致しません。」の対象方について解説していきます。

うめ

VBAを触っている人は一度は見たことのあるエラーではないでしょうか？

VBAに慣れていない場合は何が悪いのかわからないかもしれませんが、確認の仕方も含めての説明していきますので参考にしてください。

【初心者向け】作成したVBAをボタンで実行する方法

前回はマクロをコピペして動かす方法を解説しましたが、今回は「ボタン」を押してマクロを実行する方法を解説していきます。

Excel VBA 脱初心者のための集中講座

created by Rinker

マイナビ出版

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

エラーの理由
対処法
まとめ

エラーの理由

それでは「エラー13」を起こしてましょう。

Sub Sample1()

Dim A As String
Dim B As Long

A = "入力1"
B = "入力2"

MsgBox ("設定したのは【" & A & "】と【" & B & "】です！")

End Sub

Sub Sample1()

Dim A As String

Dim B As Long

A = "入力1"

B = "入力2"

MsgBox ("設定したのは【" & A & "】と【" & B & "】です！")

End Sub

結論から言うとこのエラーは変数Bに設定している値の型が間違っているのが原因です。

Smaple1のコードでは「Long型」として定義している変数Bに対して文字列を指定しているため、エラーが発生しています。

ちなみに設定した変数の型は「ローカルウィンドウ」でも確認できます。

対処法

それでは4行目の変数Bを「String型」に修正して実行しましょう！

Sub Sample2()

Dim A As String
Dim B As String

A = "入力1"
B = "入力2"

MsgBox ("設定したのは【" & A & "】と【" & B & "】です！")

End Sub

Sub Sample2()

Dim A As String

Dim B As String

A = "入力1"

B = "入力2"

MsgBox ("設定したのは【" & A & "】と【" & B & "】です！")

End Sub

今度はエラーなしでメッセージボックスが表示されます。

まとめ

VBAでエラー13が発生したら「変数の型を合わせる」ことを覚えておきましょう！

「実行時エラー 13 型が一致しません。」の対処法を解説しました。

コードが長くなると変数が確認しづらくなるため、変数の型はローカルウインドウで確認するのがオススメです。