Ｐａｇｅ 781 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼コンボボックスの表示について 湾 03/2/23(日) 12:42 ┣Re:コンボボックスの表示について Ｙ 03/2/23(日) 14:06 ┗Re:コンボボックスの表示について Jカーター 03/2/23(日) 15:34 ─────────────────────────────────────── ■題名 ： コンボボックスの表示について ■名前 ： 湾 <wangwang@jmail.plala.or.jp> ■日付 ： 03/2/23(日) 12:42 -------------------------------------------------------------------------
| 列Aのセルをクリックすると、コンボボックスが表示され、選んだ項目がそのセルに反映されるようにするには、どうしたらいいでしょうか？ |
| ▼湾 さん： >列Aのセルをクリックすると、コンボボックスが表示され、選んだ項目がそのセルに反映されるようにするには、どうしたらいいでしょうか？ Ystart Xstartをpublic宣言し、ユーザフォームにコンボボックスを 貼る。そして（１）のコードはシートに、（２）と（３）のコードを ユーザフォームに書きこめば大丈夫だと思います。 （１）セルをクリックしたらコンボボックスが表示 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Ystart = Selection.Row Xstart = Selection.Column If Xstart = 1 Then 'クリックしたセルがA列だったら UserForm.Show End If End Sub （２）選んだ項目がそのセルに反映 Private Sub ComboBox1_Change() Cells(Ystart, Xstart) = ComboBox1.Value Unload Me End Sub （３）コンボボックスにデータをいれる Private Sub UserForm_Activate() 'コンボボックスに入れるデータがSheet2のA1からA10までだった場合 Set SelRows = Sheets("Sheet2").Range("A1").CurrentRegion For Cnt = 1 To 10 'コンボボックスのデータの数だけ ComboBox1.AddItem SelRows.Cells(Cnt, 1).Value Next End Sub |
| 入力規則のリストのことでしょうか？ でしたら データ→入力規則 から作れますが。 違ったらすみません。 |