こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルのマクロのコンボボックスへ入力した

エクセルのマクロのコンボボックスへ入力した値をセルに表示する際のことで質問があります。
ABCDEという5つのコンボボックスから、A1、A2、A3,A4、A5のセルへ入力していますが、時々CやDの値がなくてEの値を左詰めするというか空白のセルを作らずに入力したいです。
例えばAのコンボボックスには入力でA1、Bのコンボボックスは未入力でCのコンボボックスに入力した値をA2のセルへ入力といった具合にしたいです。

コンボボックスBが未入力なら、
・コンボボックスCの値をBへ
・コンボボックスDの値をCへ
・コンボボックスEの値をDへ
・コンボボックスEは空白に


コンボボックスCが未入力なら、
・コンボボックスDの値をCへ
・コンボボックスEの値をDへ
・コンボボックスEは空白に

コンボボックスDが未入力なら、
・コンボボックスEの値をDへ
・コンボボックスEの値を入力
という手順を挿入。
で本来のやりたいことの
コンボボックスA~EをセルA1:A5の範囲へ入力。

と教えてもらったんですが、それを生かせず、自分なりに考えてみて
IF Then Else を使ってA3まではやれたんですが、A4、A5がうまくできなくて挫折しています。


http://www.max.hi-ho.ne.jp/happy/YNxv233.htmlを参考にしてくださいと教わったのですがどれが使えるのかもわからず・・・・。
わかんないことばかりですいません。

投稿日時 - 2013-06-28 10:32:46

QNo.8153167

困ってます

質問者が選んだベストアンサー

combobox1,2,3,4,5という名前のコンボボックスの値を,A1からA5に詰めていく

private sub CommandButton1_Click()
 dim i as integer
 dim n as integer
 for i = 1 to 5
  if me.controls("Combobox" & i) <> "" then
   n = n + 1
   worksheets("シート名").cells(n, "A") = me.controls("Combobox" & i).value
  end if
 next i
end sub




#AとかEとか,説明のための説明を考えようとして破綻してます。
「目に見えるエクセルの事実」をそのまま見たままに説明してみると良いです。

投稿日時 - 2013-06-28 13:03:39

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問