ツイッター出題回答
ByRef引数の型が一致しません。

https://twitter.com/yamaoka_ss/status/1704787902432264666
ふふふ、難しそうな言い方をすれば誤魔化せると思っているんだろ・・・

このエラー見た時、30秒くらい固まりましたwww
これはFunctionを呼んでいる箇所で発生しています。
添付画像は簡略化して再現させたものです。
さて、引数に何を指定したのでしょうか?
【VBAなぞなぞ】

このメッセージはあまり見ないですよね。
簡単に出すなら、
fnc1(Sheet1)
fnc1(ThisWorkbook)
こういう指定になります。
似ているけど、
fnc1(Worksheets(1))
これじゃダメなんですよね、違うメッセージになります。
このメッセージなら良く見かけると思います。

fnc1(Sheet1)
fnc1(Worksheets(1))
これでなぜ違うメッセージになるかというと・・・
説明が難しくなりそうですし、私も上手く説明できない・・・
要はデフォルトのプロパティが起動されるかどうかの違いと考えれば良いですね。
Sheet1
これはプロバティが起動されずにオブジェクトが渡される。
ByrefのStringにオブジェクトを渡そうとしているので、
「ByRefの引数の型が一致しません」になります。
対して、
Worksheets(1)
これは型がObjectなので引数で指定した時にデフォルトプロパティを呼び出そうとしています。
なのでメッセージも「…プロパティまたはメソッドをサポートしていません。」
あー、Objectなのでという書き方は良くなかったかもしれません。
As Object
とは違いますね。
As Objectの変数なら引数の型が一致しませんになるので。
添付の場合は、Asの型が何でも引数の型がになりますね。
ふむ、ここで説明に困った・・・ようわからん・・・

オブジェクトの話は止めよう、難しすぎるのでwww
私が実際にやったのは、添付になります。
普通はこういう事しないですよね。ちょっと横着したのですが…
メッセージを読んでしばらく固まりましたw
直し方としては、
ByVal にするか、CStr(ary(0))またはary(0)&""とかで良いですかね。

ということで、VBAってちょっと変な書き方すると訳わからないエラーメッセージが出て、それで嫌いになる人がいるかもしれないと思いました。
初心者向けの基本的な書き方に従って書けばこういう事にはならないのですけど…
分からなかったら、Xツイッターで、#助けてVBA でポストしてみてください。

同じテーマの記事
新着記事
アクセスランク