エクセルで入力待ちの状態を作るには？

エクセルでボタン入力待ちの状態を作るには？
順番に押していくことで押された指定のセルが
あらかじめ決められたセルに貼り付けされていくという感じの
ものを作成したいのですが、ご教授願います。

「１番目を選んでください」～ボタンを押す右の１番目の位置に収まる「２番目をえらんでください」～
といった感じのことでございます
例の画像を用意しておりますのでお願いします。

No.1 回答者： magician_1 回答日時： 2009/05/18 10:49

VBAを使えば可能ですが知識は有りますか？

知識がないのであれば、この機会に勉強してみてはいかがでしょうか。

コードを提示する事は可能ですが、理解できないと意味が無いと思いますので、アドバイスという形で解答します。

この回答へのお礼

自動記録をいじるとか、
フォームを作成するなどのことは、なんとかできる状態でございます。
質問の部分で言うと、
貼り付けのセルの番地を選んだボタンでふりわけるといったことが
できればと思っております。
職場に残念ながら自分より詳しい方がいないのでご教授願えたら
と思っております。

お礼日時：2009/05/18 14:54

No.2 回答者： magician_1 回答日時： 2009/05/18 16:14

コードを書いている暇がないのでヒントだけ。

今現在何番目まで選択されているかが判れば良いので、どこかのセル（例えばA20）に値(1)を入れておきます。
ボタンがクリックされるたびに、a20の値を参照して、何番目に押されたか確認し、目的のセルに書き込みます。
a20の値をプラス１して終了。

No.3 ベストアンサー 回答者： magician_1 回答日時： 2009/05/18 16:44

各ボタンを作成して、ボタンに以下のコードを追加してください。

A1セルに1を記入して置いてください。

Private Sub CommandButton1_Click()
Dim MyNo As Integer

MyNo = Range("a1")
Range("k9").Offset(-MyNo, 0) = Range("c2")　'ここのc2はボタンごとに変更してください。

Range("l9").Offset(-MyNo, 0) = Range("d2")　'ここのc2はボタンごとに変更してください。

Range("a1") = MyNo + 1

End Sub

No.4 回答者： popuplt 回答日時： 2009/05/18 16:55

マクロはお判りのようなので・・・

[F5]=count(l3:l8)+1
[G5]=番目を選んでください　　といれます。

Sub オレンジ()
　If Range("a8").Value = "済" Then
　　MsgBox ("選択済みです。")
　　Exit Sub
　Else
　　cnt = Range("f5").Value
　　Range("a8").Value = "済"
　　Cells(9 - cnt, 11).Value = Cells(8, 3).Value
　　Cells(9 - cnt, 12).Value = Cells(8, 4).Value
　End If
End Sub

動く程度の１ボタンの例です。