
選択されている複数のアドレスが知りたいので
標準モジュールに
Sub test(ByVal Target As Range)
Debug.Print Target.Address
End Sub
と書きました。
しかしF5ボタンを押しても何も起こりません。
デバッグ→コンパイルをしてもエラーになりません。
シートのイベントプロシージャーではなく
標準モジュールにした理由は
イベント発生時ではなく、任意で起動させたいためです。
ためしに、
Sub test(ByVal Target As Range)
Debug.Print Target.Address
End Sub
の下に、
Sub test2()
Call test
End Sub
と書いたら、
「引数は省略できません。」
というエラーになりました。
何がダメなのかわかりません。
ご教授よろしくお願い致します。
No.3ベストアンサー
- 回答日時:
こんばんは。
今回は、初歩的なことですが、段階を経たほうがよいと思います。つまみ食いのようなことをしても、なかなか、VBAもWSHも覚えられないと思います。しかし、今回のように単発では、こちらの書いていることはほとんど分かってもらえないと思います。
今回は、サブルーチンのコードですが、サブルーチンを書くということは、それなりに、その前段階を理解していなくてはなりません。イベント・ドリブン型とは関係がありません。
それと、Target は、予約語ではありませんが、イベント・ドリブン型の引数に使われているものですから、他の語を使ったほうがよいです。それを許していると、自分ですらコードが読めなくなっていくはずです。
今回のようなコードを実際に書くことはありえませんが、ByVal キーワードは、入れるのと入れないのでは違いがありますが、Test1 側で、引数のデータ型が決めてあれば、入れなくても構わないです。Debug.Print としてしまったら、さっぱり、その意味が見えないでしょうけれども……。
F5を押しても、サブルーチンは呼び出さないと動きません。
それに、呼び出す場合は、引数を入れなければなりません。
'-------------------------------------------
Sub Test1()
Dim c As Range '←これがあるので、ByVal は不要
For Each c In Range("A1:A10")
Call Test2(c)
Next c
End Sub
'サブルーチン(Target という名称は使わない)
Sub Test2(rng As Range)
Debug.Print rng.Address
'Debug.Print では、良く意味が分からないはずです。
'Range オブジェクトを引数にしたら、いろんな使い方がある
End Sub
'-------------------------------------------
No.2
- 回答日時:
Excel VBA の場合、引数を持つ Sub を作成した場合、F5 を押しても実行はされません。
Function をつくり、Cellに値を返させるほうが、作りやすいかと思います。たとえば、
モジュールに、
Public Function tst(a As Range)
tst = a.Address
End Function
という関数をつくり (ByVal は普通つけません)、
Sheet1 の a1 のセルに、=tst(A3:A6) と入力すると、以下の結果が返ります。
$A$3:$A$6
”Excel VBA の場合、引数を持つ Sub を作成した場合、F5 を押しても実行はされません。”
しっかり覚えます!
ご回答ありがとうございます。
No.1
- 回答日時:
まず質問される時は、回答する側にわかるように書かれると回答し易くなると思いますよ。
恐らくExcelのVBAでの質問ではないかと推測し書かせてもらいますが、標準モジュールにプロシージャを書くこと自体は問題無いです。
>しかしF5ボタンを押しても何も起こりません。
これも推測ですが、標準モジュールのtestプロシージャをそのまま実行した?のではないかと思いますが、testプロシージャの引数のTargetに何も入れていない為、Range.Addressプロパティも何も返せず、イミディエイトウィンドウに何も表示されなかったのではないかと思います。
>デバッグ→コンパイルをしてもエラーになりません。
文法等に問題が無ければエラーは出ません。意図している事のチェックをコンパイルでは行えません。スキルアップしかないと思います。
>イベント発生時ではなく、任意で起動させたいためです。
testプロシージャの引数のTargetに値を入れて呼び出せば良いと思います。
ただ、シートのイベントプロシージャでは、自動的に引数(Target等)に値を入れてくれるので、その辺りを考慮しなければなりません。
具体的にはあえて書きませんが、ヒント・例として、アクティブなワークシートで選択したセルを引数に入れる等記述すれば良いのではないかと思います。
参考URL:http://www.relief.jp/itnote/
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【関数】3つのセルの中で最新...
-
LibreOffice Clalc(またはエク...
-
【マクロ】数式を入力したい。...
-
【マクロ】excelファイルを開く...
-
エクセルの関数について
-
【マクロ】変数に入れるコード...
-
エクセルのリストについて
-
【マクロ】左のブックと右のブ...
-
【マクロ】【相談】Excelブック...
-
【マクロ】実行時エラー '424':...
-
エクセルのVBAで集計をしたい
-
【マクロ】元データと同じお客...
-
Office2021のエクセルで米国株...
-
【マクロ】【配列】3つのシー...
-
【画像あり】オートフィルター...
-
vba テキストボックスとリフト...
-
他のシートの検索
-
【マクロ画像あり】❶1つの条件...
-
エクセルの複雑なシフト表から...
-
【関数】=EXACT(a1,b1) a1とb1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】元データと同じお客...
-
エクセルの関数について
-
【画像あり】オートフィルター...
-
エクセルのVBAで集計をしたい
-
エクセルのリストについて
-
【マクロ】数式を入力したい。...
-
【マクロ】【相談】Excelブック...
-
Office2021のエクセルで米国株...
-
【マクロ】実行時エラー '424':...
-
他のシートの検索
-
エクセルの複雑なシフト表から...
-
【マクロ】【配列】3つのシー...
-
vba テキストボックスとリフト...
-
【マクロ】左のブックと右のブ...
-
【マクロ】変数に入れるコード...
-
エクセルシートの見出しの文字...
-
【マクロ】別ファイルへマクロ...
-
【関数】同じ関数なのに、エラ...
-
Amazonでマイクロソフトオフィ...
-
ページが変なふうに切れる
おすすめ情報