Excel VBA質問箱 IV

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

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


5379 / 13644 ツリー ←次へ | 前へ→

【51130】データの入力規則『リスト』で、取り込みたい列の横に説明列を入れたい たくゾ〜 07/8/29(水) 11:11 質問[未読]
【51148】Re:データの入力規則『リスト』で、取り込... ichinose 07/8/30(木) 7:28 発言[未読]
【51160】Re:データの入力規則『リスト』で、取り込... たくゾ〜 07/8/31(金) 6:09 質問[未読]
【51161】Re:データの入力規則『リスト』で、取り込... たくゾ〜 07/8/31(金) 6:21 発言[未読]
【51162】【自問自答】 たくゾ〜 07/8/31(金) 6:40 発言[未読]
【51172】Re:データの入力規則『リスト』で、取り込... たくゾ〜 07/9/1(土) 8:36 お礼[未読]

【51130】データの入力規則『リスト』で、取り込み...
質問  たくゾ〜  - 07/8/29(水) 11:11 -

引用なし
パスワード
   はじめて書き込みます。?(EXCEL)

ACCESSのコンボボックスでは、プルダウンメニューに複数の列を表示できますが、
EXCELのデータの入力規則『リスト』で、それができる様にしたいのですが。
(フォーム作らなくてもできそうなものですが。。。)

簡単な方法がございましたらお教え願います。

【51148】Re:データの入力規則『リスト』で、取り...
発言  ichinose  - 07/8/30(木) 7:28 -

引用なし
パスワード
   ▼たくゾ〜 さん:
おはようございます。

>はじめて書き込みます。?(EXCEL)
>
>ACCESSのコンボボックスでは、プルダウンメニューに複数の列を表示できますが、
>EXCELのデータの入力規則『リスト』で、それができる様にしたいのですが。
>(フォーム作らなくてもできそうなものですが。。。)

>簡単な方法がございましたらお教え願います。

簡単な方法(設定だけで実現)はないと思いますよ!!
コマンドバー「コントロールツールボックス」にあるコンボボックスは、
複数列の設定が可能ですから、これとシートイベントプロシジャーを使って
入力規則と同じような動作になるようにプログラミングすれば出来そうですが・・。

検討してみてください。

【51160】Re:データの入力規則『リスト』で、取り...
質問  たくゾ〜  - 07/8/31(金) 6:09 -

引用なし
パスワード
   ▼ichinose さん:
早速のお返事ありがとうございます。

EXCELのVBA見るのが初めてなので多少困惑してます。
(ACCESSからデータを出す時など、簡単な構文は使いましたが)

◆お教えください
1)>コマンドバー「コントロールツールボックス」にあるコンボボックス
  →こちらのコンボボックスのプロパティには、RowSource が無さそうですが、
   どこで、コンボボックス内のリストを設定すればよろしいのでしょうか。
2)ColumnCount があるので、列は複数できそうなのは確認しました。
3)数式バーに =EMBED("Forms.ComboBox.1","") っと表示されてるのですが、
  このへんがあやしい(?)っと思いますが使い方がHELPで出てきません
  でした。関連性はございますか?

4)すみません。基本で。
  コンボボックスにマウス合わせて、▼押しても、オブジェクトを選択されてしまい
  プルダウンの動作がしないのですが、操作方法を教えください。


使い方を何も理解できてません。
お手数ですが、お教えください。よろしくお願いいたします。

【51161】Re:データの入力規則『リスト』で、取り...
発言  たくゾ〜  - 07/8/31(金) 6:21 -

引用なし
パスワード
   ▼ichinose さん:

たびたびすみません。

ツールバーに デザインモード終了ボタン があったのですね。。。
これは解決しました。

【51162】【自問自答】
発言  たくゾ〜  - 07/8/31(金) 6:40 -

引用なし
パスワード
   ▼ichinose さん:

お恥ずかしい。。。

ListFillRange も確認できました。

【51172】Re:データの入力規則『リスト』で、取り...
お礼  たくゾ〜  - 07/9/1(土) 8:36 -

引用なし
パスワード
   ▼ichinose さん:

ありがとうございました。できました。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.EntireColumn.Address = "$C:$C" Then
  
  'コンボボックスの表示
  ComboBox1.Visible = True

  'コンボボックスを選択セルの右側に移動
  ComboBox1.Left = ActiveCell.Left + ActiveCell.Width
  ComboBox1.Top = ActiveCell.Top
  'コンボボックスで選択された値を選択セルに入力
  ComboBox1.LinkedCell = ActiveCell.Address

Else
  'コンボボックスの非表示
  ComboBox1.Visible = False
End If

End Sub


EXCELのVBA、なんとなくわかりました。

今後ともよろしくお願い致します。

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