Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11475 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15807】コンボボックスで指定したデータを指定セルに入力する方法 ヒロ 04/7/6(火) 23:43 質問[未読]
【15812】Re:コンボボックスで指定したデータを指定... IROC 04/7/7(水) 8:50 回答[未読]
【15813】Re:コンボボックスで指定したデータを指定... Jaka 04/7/7(水) 9:46 回答[未読]
【15827】Re:コンボボックスで指定したデータを指定... ヒロ 04/7/8(木) 0:50 質問[未読]
【15835】Re:コンボボックスで指定したデータを指定... Jaka 04/7/8(木) 16:23 発言[未読]
【15893】Re:コンボボックスで指定したデータを指定... [名前なし] 04/7/11(日) 1:52 回答[未読]
【15807】コンボボックスで指定したデータを指定セ...
質問  ヒロ  - 04/7/6(火) 23:43 -
引用なし
パスワード
   コンボボックスで指定したデータを指定セルに入力し、セルを移動させる方法を教えて下さい。
(例）コンボボックスで”あ”を選択し、"A1"に入力し、
　　　次にコンボボックスで”い”を選択し、"B1"に入力する。
　　　次にコンボボックスで”う”を選択し、"A2"に入力する。
　　　次にコンボボックスで”え”を選択し、"B2"に入力する。
　　　これを、”ん”まで繰り返すプログラムを教えて下さい。
【15812】Re:コンボボックスで指定したデータを指...
回答  IROC  - 04/7/7(水) 8:50 -
引用なし
パスワード
   選択された文字とセル位置は、どのような条件によって決まっているのですか？

条件化されていなく、すべて指定しないといけないのでしょうか？
だとすれば、 Select Case 文を使えばよいと思います。
【15813】Re:コンボボックスで指定したデータを指...
回答  Jaka  - 04/7/7(水) 9:46 -
引用なし
パスワード
   こんにちは。
こういうことでしょうか？

「あ〜ん」まで、コンボボックスのリストに入っているとして。

Private Sub ComboBox1_Change()
　　CBID = ComboBox1.ListIndex
　　CB1 = Int(CBID / 2)
　　CB2 = CBID Mod 2
　　Cells(CB1 + 1, CB2 + 1).Value = ComboBox1.Value
End Sub
【15827】Re:コンボボックスで指定したデータを指...
質問  ヒロ  - 04/7/8(木) 0:50 -
引用なし
パスワード
   Jaka さん有難うございました。
私の説明が不自由分ですいません。
もう一度質問させて下さい。

（例）1)北海道〜沖縄までの都道府県が入力されたコンボボックスを作成します。
　　　2)Ａ〜Ｚまで入力されたコンボボックスを作成します。
　　　3)［入力］のコマンドボタンを作成します。
　　　4)ワークシートに”都道府県”と”ランク”の表を作成します。
　　　5)例えば　1)のコンボボックスで”長崎県”を選択し2)のコンボボックス　　　　　で”Ｐ”を選択し［入力］コマンドボタンを押すとワークシートの表の先　　　　頭に入力される。次はその下に下にと入力され表を作成させる。
　　　　＊　1)のコンボボックスの選択順はランダム。
　　　　　　1)のコンボボックスのリストは全て入力するわけではない。
　　　　　　1)のコンボボックスの重複選択は不可。
　　　　　　2)のコンボボックスの重複選択は可。
　　　　　　3)の[入力]コマンドボタンは1)2)のコンボボックスのデータを選択後
　　　　　　　押す。

長々と細かな要求ですいません。
回答お待ちしています。
宜しくお願いします。
【15835】Re:コンボボックスで指定したデータを指...
発言  Jaka  - 04/7/8(木) 16:23 -
引用なし
パスワード
   え〜と、何がわからなくて、何をどこに、何をどういうふうにしようとしているのかよく解りません。

1)北海道〜沖縄までの都道府県が入力されたコンボボックスを作成します。
2)Ａ〜Ｚまで入力されたコンボボックスを作成します。

ここだけ、一応２通りの方法を

１、
Dim CB1 As Variant
CB1 = Array("北海道", "千葉", "大阪", "博多", "沖縄") '途中略
ComboBox1.List = CB1
Erase CB1

２、
For i = 65 To 90
　　ComboBox2.AddItem Chr(i)
Next
【15893】Re:コンボボックスで指定したデータを指...
回答  [名前なし]  - 04/7/11(日) 1:52 -
引用なし
パスワード
   じゃあ、残りの[入力]のコマンドボタンのコードでも。
細かい部分は適当に調整してください。

ComboBox1:北海道〜沖縄までの都道府県が入力されたコンボボックス
ComboBox2:Ａ〜Ｚまで入力されたコンボボックス

以下がコードです。
　
　If ComboBox1.Value = "" Then MsgBox "都道府県名を選択してください。", vbCritical
　If ComboBox2.Value = "" Then MsgBox "ランクを選択してください。", vbCritical
　If ComboBox1.Value = "" Or ComboBox2.Value = "" Then Exit Sub
　
　Range("A65536").End(xlUp).Select
　If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select
　ActiveCell.Value = ComboBox1.Value 'A列最下行に都道府県名をセット
　
　ActiveCell.Offset(0, 1).Value = ComboBox2.Value 'B列にA〜Zの選択した値をセット
　ComboBox1.RemoveItem ComboBox1.ListIndex '選択した都道府県名をコンボボックスから削除
　ComboBox1.Value = ""
　ComboBox2.Value = ""
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11475 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free