Excel VBA質問箱 IV

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

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


10603 / 13646 ツリー ←次へ | 前へ→

【20920】プルダウンメニューを作成するVBAコマ... たろう3 04/12/24(金) 23:52 質問[未読]
【20921】Re:プルダウンメニューを作成するVBAコ... kobasan 04/12/25(土) 0:19 回答[未読]
【20925】Re:プルダウンメニューを作成するVBAコ... たろう3 04/12/25(土) 10:05 お礼[未読]

【20920】プルダウンメニューを作成するVBAコマ...
質問  たろう3  - 04/12/24(金) 23:52 -

引用なし
パスワード
   エクセルのシートの中にプルダウンメニューを作成するVBAコマンドはあるのでしょうか?
エクセルシートの特定のセルの右側にプルダウンメニューで値を選べるセルを作成しようと思っています。
何か、良い方法をご存知であれば、宜しくお教えください。

【20921】Re:プルダウンメニューを作成するVBA...
回答  kobasan  - 04/12/25(土) 0:19 -

引用なし
パスワード
   ▼たろう3 さん:今晩は

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

「データ/入力規則/リストを選択」を新しいマクロ記録をしてみて下さい。
下の例は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:プルダウンメニューを作成するVBA...
お礼  たろう3  - 04/12/25(土) 10:05 -

引用なし
パスワード
   ▼kobasan さん:
kobasan さん
ありがとうございました。
入力規則を使用する事をしりませんでした。
とても助かりました。ありがとうございます。

たろう3 より


>▼たろう3 さん:今晩は
>
>>エクセルシートの特定のセルの右側にプルダウンメニューで値を選べるセルを作成しようと思っています。
>>何か、良い方法をご存知であれば、宜しくお教えください。
>
>「データ/入力規則/リストを選択」を新しいマクロ記録をしてみて下さい。
>下の例は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

10603 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free