Excel VBA機能で、ドロップダウンリストの選択肢からセルに値を設定したい。
リスト形式のシート(仮にA)の内容を、VBAを使って単票形式のlシート(仮にB)に展開したいと考えています。ところがBのシートには、入力規制のあるセルもあり、ドロップダウンリストからの選択になっています。
今、シートBのセルA1の選択肢を仮に”AAA,BBB,CCC”として、VBAを用いてA1にBBBを設定(選択)する方法をご教示頂きたいと存じます。
ひと通り過去ログは拝見しましたが、恐らく私の見落としとは思うのですが、それらしいものは見当たらないので、質問させて頂きました。宜しくお願いします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
ワークシートBのセルX1に数字nを代入して、セルb20:b22にドロップダウンリストの参照範囲があるとすると、
ワークシートBのシートモジュールに
Sub test()
Dim m1Range As Range
For Each m1Range In Range(Range("a1").Validation.Formula1)
If m1Range.Row = 20 then
Range("a1").Value = m1Range.Offset(m1Range.Row-1+Range("x1").Value).Value
End If
Next
End Sub
No.2
- 回答日時:
>もし可能なら、『選択肢のn番』という方法で指定出来ないだろうか
>それを選択肢の2番として、B表のA1に『BBB』に
>表示させるという事です。
いまいちわかってませんけれど、No1様の回答のように単純にBBBという値を代入すれば、そのセルに入力規則が設定されていてBBBが2番目であれば、2番目のBBBが選択された状態になりますけれど、そういうことではないのでしょうか?
値がリストの何番目かを調べるには、
Range.Validation.Formula1
を調べれば入力規則のリストが得られますので(定義方法によって、リスト形式の場合とRangeの場合とあり)、現在の値と照合すればn番目ということを調べることは可能ですけれど、その必要があるようにも思えませんけれど…?
No.1
- 回答日時:
こんにちは。
上記の例で、「"AAA,BBB,CCC"から選択」と書かれていますが、リスト形式のA表には、入力させたい値"BBB"がそのまま入っているのですか?
それなら、その"BBB"をそのままB表のセルA1に代入するだけで良いと思います。(入力規則の有無は無関係です。)
他に条件があるか、上記の方法では問題があるのなら、補足してください。
では。
この回答への補足
早速のご回答ありがとう御座いました。御礼申し上げます。
しかし、私の説明が不足しておりました。ご回答頂いた方法は実現しておりましたが、
もし可能なら、『選択肢のn番』という方法で指定出来ないだろうか、という事を
模索しております。
今回の例で言うと、A表には『BBB』が入力されており、それを選択肢の2番として、
B表のA1に『BBB』に表示させるという事です。
説明が足りず失礼しました。何卒、宜しくお願い申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Excel(エクセル) Excelのプルダウンメニューの内容を人によって可変する方法 2 2023/03/28 14:52
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルでプルダウン選択されたらマクロの処理を実行させる方法
Word(ワード)
-
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
Excelで2つのデータの突合せをしたいです
Excel(エクセル)
-
-
4
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
5
入力規則のリスト選択
Visual Basic(VBA)
-
6
DATE型変数を初期化する方法
Visual Basic(VBA)
-
7
アクセスでテーブルの変更内容をフォームに反映させるには?
その他(データベース)
-
8
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
9
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
10
ドロップダウンリスト 自動表示したい
Excel(エクセル)
-
11
XL:BeforeDoubleClickが動かない
その他(プログラミング・Web制作)
-
12
結合されたセルをプルダウンのリストにする方法は?
Excel(エクセル)
-
13
エクセルで条件に一致したセルの隣のセルを取得したい
その他(Microsoft Office)
-
14
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
15
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
16
実行時エラー 438 の解決策をおしえてください。
Visual Basic(VBA)
-
17
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
18
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
19
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
20
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
ある範囲のセルから任意の値を...
-
検便についてです。 便は取れた...
-
2つの数値のうち、数値が小さい...
-
一番多く表示のある値(文字列...
-
精液の落とし方を教えてください
-
エクセル指定した範囲からラン...
-
エクセルのラベルの値(文字列...
-
EXCELで条件付き書式で空白セル...
-
値が入っているときだけ計算結...
-
MIN関数で空白セルを無視したい...
-
甲状腺が腫れているが血液検査...
-
エクセルで数式の答えを数値と...
-
テスターで断線を調べる方法教...
-
エクセルでθを求めたい。
-
小数点以下を繰り上げたものを...
-
中出しをするとお腹が痛い・・・。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
精子が黄色?
-
EXCELで条件付き書式で空白セル...
-
至急!尿検査前日にオナニーし...
-
これって喉仏ですか? 私は女性...
-
中出しをするとお腹が痛い・・・。
-
甲状腺が腫れているが血液検査...
-
2つの数値のうち、数値が小さい...
-
尿検査前日に自慰行為した時の...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
ある範囲のセルから任意の値を...
-
口の中に黒い血の塊
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
おすすめ情報