エクセルでINDIRECTを使った入力規則設定をマクロで行う際の、アラートの扱いがわからず困っており、お教えいただけると幸いです。
例えば、A列に日付、B列にその日付に行った都道府県名、C列にはB列で選択した都道府県に属する自治体名を入れる場合を考えます。
そのために、
・北海道、青森、…という具合に都道府県名のリストに、あらかじめ『都道府県名』と言う名前をつけたものを作成しておく。
・洞爺湖、阿寒湖、釧路、…という北海道の自治体名リストにあらかじめ『北海道』と言う名前をつけたものを作成しておく。
・弘前、八戸、十和田、…という青森県の自治体名リストにあらかじめ『青森』と言う名前をつけたものを作成しておく。
:(以下同様)
と言う準備をしたあと
-B列の入力規則ダイアログボックスで、入力値の種類を『リスト』、元の値として『=都道府県名』とすることでドロップダウンリストから都道府県名を選ぶことが出来ます。
-C列の入力規則ダイアログボックスで、入力値の種類を『リスト』、元の値として『=INDIRECT(B1)』とすることでドロップダウンリストから自治体名を選ぶことが出来ます。
C列の規則を設定する際にB列にまだ都道府県名が入っていない場合は『元の値はエラーと判断されます。続けますか?』と言うアラートが出ますがOKを押して続行。
とすれば、C列のドロップダウンリストでB列で選択した都道府県に属する自治体名が選べることになります
ここまでは、教科書などにも書いてある内容なので問題はないのですが、これをマクロ化すると問題が発生します。
上記の入力規則の設定をマクロで記録し、実行すると
『実行時エラー'1004'.アプリケーション定義またはオブジェクト定義のエラーです。』
が発生します。エラーの起こっている場所はC列の入力規則定義部分の
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:="=INDIRECT(B1)"
のようです。
B列に都道府県名が入った状態ではエラーとはならないので、マクロ記録時に『元の値はエラーと判断されます。続けますか?』が出てOKとした部分が
何らかの問題となっているとは思うのですが、対処方法がわからずに困っております。
ちなみに、On Error Resume Nextを入れておいたとしても、エラーでマクロが中断されることはなくなりますが、入力規則の設定は行われないので対処方法にはなりません。
質問が長くなり恐縮です。
コピーペーストなどで入力規則の設定が消えてしまうことがあるので、ブックの立ち上げ時に入力規則の再定義をしたいと考え、このような質問となりました。
対処方法おわかりの方、ご教授いただけると大変助かります。
なお、環境はwindowsXP、excel2003です。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
>Formula1:="=INDIRECT(B1)"
ここでエラー制御してもいいかもしれませんね。
Formula1:="=IF(B1="""",B1,INDIRECT(B1))"
ご回答ありがとうございます。
Formulaの中にIF文を書くというのは、想像もしていなかった回答ですが、すごくエレガントに解決しそうです。
B1が空白だったときに、INDIRECT(B1)が設定されないのではないかと疑問に思って実際に試してみたのですが、全く問題なく動作するようです。
すごく勉強になりました。
この方法を採用してプログラミングを進めてみたいと思います。
本当にありがとうございました。
No.1
- 回答日時:
>B列に都道府県名が入った状態ではエラーとはならないので
ということであれば、
C列の入力規則をセットする前に、B1にひとつ県名を入れおき
入力規則セット後、B1の県名を消去すればいいのでは?
'------------------------------------
B列入力規則セット
Range("B1").Value = "北海道"
C列入力規則セット
Range("B1").Value = ""
'---------------------------------
以上
ご回答ありがとうございます。
なるほど、こういう考え方もありましたか。
確かに、これだとばっちり解決しそうです。
B1に、最初から県名が入っていた場合は条件判断しないといけませんが、
色々と応用が利きそうです。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 別シートの表の値を参照したい 2 2022/03/30 15:11
- Excel(エクセル) Excel ドロップダウンリスト(入力規則)に関してです データの入力規則で元データ79000行のド 3 2023/07/17 10:06
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) データ入力規則リスト 空白を無視 3 2022/07/13 15:11
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- PHP PHPでCSVを出力するさいに、ループの中で前の行の値を変更したい 1 2022/10/27 14:21
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- 転職 長く続けられる好条件の求人でしょうか? 3 2023/07/12 18:45
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
- 政治 道州制について。 「道州制」と一口にいっても様々あり、都道府県を残すか廃止するか、立法権も与えるか否 1 2022/11/17 19:16
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
VBA 何かしら文字が入っていたら
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
空白セルをとばして転記
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
VBAのFind関数で結合セルを検索...
-
VBAを使って検索したセルをコピ...
-
マクロについて。S列の途中から...
-
【VBA】2つのシートの値を比較...
-
エクセルVBA シートモジュール...
-
文字列の結合を空白行まで実行
-
エクセルについて
-
VBAコンボボックスで選択した値...
-
Excel(VBA) 特定の条件に該当...
-
マクロ 最終列をコピーして最終...
-
エクセルVBAにて =A1=B1とすれ...
-
Excel VBA:エクセルのマクロで...
-
エクセルVBA intersect colu...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
VBA 何かしら文字が入っていたら
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報