Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12019 / 76734

←次へ　｜　前へ→


	【70243】Re:ドロップダウンリスト

ichinose - 11/10/23(日) 10:14 -


	引用なし

	パスワード

>アドバイスに従い試してみました。
>第1のセル（プルダウンリスト作成後）がブランクの時
>　第2のセルは　ａ
>第1のセルで　甲　を　選択すると　第２のセルは　Ａ
>第1のセルで　乙　を　選択すると　第２のセルは　ａ
>となります。
>第2のセルには　Ａ　か　ａ　のみが入力されることになります。

では、新規ブックにて（Sheet1,Sheet2というシートは、最低存在するブック）、

標準モジュールに

'==================================================
Option Explicit
Sub test()
　　With Sheets("Sheet2")
　　　 .Range("a1:b5").Value = [{"a","f";"b","g";"c","h";"d","i";"e","j"}]
　　　 .Range("c1:c2").Value = [{"甲";"乙"}]
　　　 With Range("a1").Validation
　　　　　 .Delete
　　　　　 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
　　　　　　　　　　　　　　　 xlBetween, Formula1:="=indirect(""sheet2!c1:c2"")"
　　　 End With
　　　 With Range("B1").Validation
　　　　　.Delete
　　　　　.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
　　　　　　　　　　　　　　　xlBetween, Formula1:= _
　　　　　　　　"=if(a1=""甲"",indirect(""sheet2!a1:a5""),indirect(""sheet2!b1:b5""))"
　　　 End With
　　End With
End Sub

上記のtestを実行してみてください。

正常に終了すれば（すぐに終わります）、

Sheet1の　A1、B1にて試してみてください。

正常に作動するようでしたら、A1,B1の入力規則を確認して下さい。

3 hits

▼

【70238】ドロップダウンリスト 悩める老人 11/10/22(土) 22:56