Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10601 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20920】プルダウンメニューを作成するＶＢＡコマ... たろう３ 04/12/24(金) 23:52 質問[未読]
【20921】Re:プルダウンメニューを作成するＶＢＡコ... kobasan 04/12/25(土) 0:19 回答[未読]
【20925】Re:プルダウンメニューを作成するＶＢＡコ... たろう３ 04/12/25(土) 10:05 お礼[未読]
【20920】プルダウンメニューを作成するＶＢＡコマ...
質問  たろう３  - 04/12/24(金) 23:52 -
引用なし
パスワード
   エクセルのシートの中にプルダウンメニューを作成するＶＢＡコマンドはあるのでしょうか？
エクセルシートの特定のセルの右側にプルダウンメニューで値を選べるセルを作成しようと思っています。
何か、良い方法をご存知であれば、宜しくお教えください。
【20921】Re:プルダウンメニューを作成するＶＢＡ...
回答  kobasan  - 04/12/25(土) 0:19 -
引用なし
パスワード
   ▼たろう３ さん：今晩は

>エクセルシートの特定のセルの右側にプルダウンメニューで値を選べるセルを作成しようと思っています。
>何か、良い方法をご存知であれば、宜しくお教えください。

「データ／入力規則／リストを選択」を新しいマクロ記録をしてみて下さい。
下の例はc2セルに入力規則を設定したものです。
リストはa1:a5です。


Sub Macro1()
　　Range("C2").Select
　　Application.CutCopyMode = False
　　With Selection.Validation
　　　　.Delete
　　　　.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
　　　　xlBetween, Formula1:="=$A$1:$A$5"
　　　　.IgnoreBlank = True
　　　　.InCellDropdown = True
　　　　.InputTitle = ""
　　　　.ErrorTitle = ""
　　　　.InputMessage = ""
　　　　.ErrorMessage = ""
　　　　.IMEMode = xlIMEModeNoControl
　　　　.ShowInput = True
　　　　.ShowError = True
　　End With
End Sub
【20925】Re:プルダウンメニューを作成するＶＢＡ...
お礼  たろう３  - 04/12/25(土) 10:05 -
引用なし
パスワード
   ▼kobasan さん：
kobasan　さん
ありがとうございました。
入力規則を使用する事をしりませんでした。
とても助かりました。ありがとうございます。

たろう３　より


>▼たろう３ さん：今晩は
>
>>エクセルシートの特定のセルの右側にプルダウンメニューで値を選べるセルを作成しようと思っています。
>>何か、良い方法をご存知であれば、宜しくお教えください。
>
>「データ／入力規則／リストを選択」を新しいマクロ記録をしてみて下さい。
>下の例はc2セルに入力規則を設定したものです。
>リストはa1:a5です。
>
>
>Sub Macro1()
>　　Range("C2").Select
>　　Application.CutCopyMode = False
>　　With Selection.Validation
>　　　　.Delete
>　　　　.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
>　　　　xlBetween, Formula1:="=$A$1:$A$5"
>　　　　.IgnoreBlank = True
>　　　　.InCellDropdown = True
>　　　　.InputTitle = ""
>　　　　.ErrorTitle = ""
>　　　　.InputMessage = ""
>　　　　.ErrorMessage = ""
>　　　　.IMEMode = xlIMEModeNoControl
>　　　　.ShowInput = True
>　　　　.ShowError = True
>　　End With
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10601 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free