回答するために必要な確認事項
①このコードはどこに記述されていますか?(ワークシート関数?標準モジュール?ユーザーフォーム内?)
②このコードのそれぞれの行が、どのような動きを期待して記述されているのか、把握できていますか?
コーディングにおいてはここが出発点になります。
コードのそれぞれの行について、どんな動作を期待しているのかコメントをつけてみると整理しやすくなると思います。
③エラーの発生行は特定できていますか?
ExcelVBAerさんからの指摘にもありますが、不具合が発生したときのデバッグ作業ではエラー発生行の特定が出発点となります。
これはデバッグ実行してみればすぐに特定できるものと思います。
エラー発生行がわかれば、エラー原因もおのずと絞られてきます。
今回エラーの発生要因
今回発生しているエラーの原因として、以下が考えられます。
①存在しないオブジェクトを参照している
コード状に記載されているオブジェクト(ラジオボタンやラベルなど)はすべてシート上に存在しますか?
シート上に存在しないにオブジェクトに対してCaption設定など行えば、当然ですがこのエラーが発生します。
②オブジェクトの親が明示されていない
このコードをどこに作成したのか(確認事項①)にもよりますが、オブジェクトの親を明示せずにCaption設定している箇所が見られます。
例えばCheckBox6はUserForm1上のチェックボックスと明示されていますが、OptionButton1はどこに属するものか明示されていません。
このコードをワークシート関数として記述している場合、そのシート上にあるOptionButton1を参照しようとします。
標準モジュールに記述した場合はアクティブシートのOptionButton1を参照しようとします。
ユーザーフォームに記述していれば、そのフォーム上にあるOptionButton1を参照しようとします。
これが意図していない参照となっていると「オブジェクトがない」と言われる可能性もあります。
③オブジェクトの提供していないプロパティを利用しようとしている
どこに記述したコードかわからないためどんなオブジェクトを指しているのかもコードだけでは特定できませんが、オブジェクトが提供していないプロパティ(.Captionなど)を利用しようとした場合もこのエラーが発生します。
その他のエラー要素
掲載コードについて、明らかなエラーが1つあります。
この記述で変数を2つ宣言しています。
どちらも数値として扱いたい変数だと思いますが、String型で宣言してしまっています。
また、VBAではこのように1回のDim文を,
で区切ることで連続して宣言を行うことができますが、型指定が反映されるのは直前の変数に対してだけです。
つまり、今回の記述ではAs String
が効いているのはcount
だけで、i
は型指定なし(=Variant型)となります。
結果、i
はVariant型のため数値を扱えますが、count
はString型のため数値では扱えずcount = count + 1
で「型が一致しません」エラーが発生します。
※おそらく現在はそれ以前のコードで別のエラーが発生しているため表面化していないものと思います。
Dim i As Integer, count As Integer
また、
i = Application.RandBetween(A41, .count)
の記述はどのような値を取得しようとしているのでしょうか?
RandBetweenは最小値と最大値を指定して、その値の範囲の数値を返す関数です。
※ちなみに大小関係がおかしいとエラーが発生します。
この記述だと、A41セルの値を最小値とし、A42~A51の範囲のセルの個数(10個)が最大値となると思います。
期待する動作がわからないので何とも言えませんが、本当にこれが意図した範囲なのでしょうか。
推測ですが、値の範囲は42~51を期待しているのではないでしょうか?
'i = Application.RandBetween(42, 51)
i = Application.RandBetween(.Item(1).Row, .Item(.Count).Row)
ご確認ください。