エクセル2010マクロの作成

Question

エクセルマクロ作成

エクセル2010で、シート1でボタン１回押すと、数量1
２回押すと数量３個と別シートの一覧表を作成したいのですが。注文書を見ながら入力するのでボタン一つで別シートに反映させたいです。

シート2
注文番号 商品名

りんご みかん バナナ 食パン
2　　　　3　　　1

こんな感じですどうぞよろしくお願いします。

Answer 1

こんな感じでしょうか。念のため、個数を初期化する機能（ボタン）も追加しておきました。

Option Explicit

Dim count_mikan
Dim count_ringo
Dim count_banana
Dim count_syokupan

Sub mikan_Click()
    count_mikan = count_mikan + 1
    Worksheets(2).Cells(2, 2).Value = count_mikan
End Sub
Sub ringo_Click()
    count_ringo = count_ringo + 1
    Worksheets(2).Cells(2, 1).Value = count_ringo
End Sub
Sub banana_Click()
    count_banana = count_banana + 1
    Worksheets(2).Cells(2, 3).Value = count_banana
End Sub
Sub syokupan_Click()
    count_syokupan = count_syokupan + 1
    Worksheets(2).Cells(2, 4).Value = count_syokupan
End Sub
'今までカウントした個数を初期化する
Sub initialize_Click()
    count_mikan = 0
    count_ringo = 0
    count_banana = 0
    count_syokupan = 0
End Sub

Comments

[riringo55]

1004さんご回答ありがとうございます！！
出来ました！初期化ボタンまでありがとうございます！！

もう二つ教えてください。
初期化した後に、次の行に（注文書ＮＯ2）に移るボタン、
出来たら教えていただけませんか？

[1004]

'今までカウントした個数を初期化する
Sub initialize_Click()
count_mikan = 0
count_ringo = 0
count_banana = 0
count_syokupan = 0
Worksheets(2).Activate
End Sub

「Worksheets(2).Activate」を最後に追加しました。

[riringo55]

度々ありがとうございます。

「Worksheets(2).Activate」を追加してみたのですが、初期化はされるのですが、
次の行に移らないです･･･｡

①注文書1を入力して、初期化（登録）
２行目に
②注文書2を入力して初期化（登録）
３行目・・・。と続けたいです。

すみません説明不足でお分かりになるでしょうか？

[1004]

一つ確認させてください。注文書を入力して初期化した後の「２行目、３行目、、、」とは「Excelシートののsheet2の行」と捉えて間違いないでしょうか？

[riringo55]

1004さんありがとうございます。
Sheet2の行で間違いないです。
入力が終わると次の行という感じで、ボタン一つで次々入力できるイメージです。
わかりにくく申し訳ありません・・・。

[1004]

Option Explicit

Dim count_mikan
Dim count_ringo
Dim count_banana
Dim count_syokupan
Dim i

Sub ringo_Click()
If i = 0 Then
count_ringo = count_ringo + 1
Worksheets(2).Cells(2, 1).Value = count_ringo
Else
count_ringo = count_ringo + 1
Worksheets(2).Cells(2 + i, 1).Value = count_ringo
End If
End Sub

Sub mikan_Click()
If i = 0 Then
count_mikan = count_mikan + 1
Worksheets(2).Cells(2, 2).Value = count_mikan
Else
count_mikan = count_mikan + 1
Worksheets(2).Cells(2 + i, 2).Value = count_mikan
End If
End Sub

Sub banana_Click()
If i = 0 Then
count_banana = count_banana + 1
Worksheets(2).Cells(2, 3).Value = count_banana
Else
count_banana = count_banana + 1
Worksheets(2).Cells(2 + i, 3).Value = count_banana
End If
End Sub
Sub syokupan_Click()
If i = 0 Then
count_syokupan = count_syokupan + 1
Worksheets(2).Cells(2, 4).Value = count_syokupan
Else
count_syokupan = count_syokupan + 1
Worksheets(2).Cells(2 + i, 4).Value = count_syokupan
End If
End Sub
'今までカウントした個数を初期化する
Sub initialize_Click()
count_mikan = 0
count_ringo = 0
count_banana = 0
count_syokupan = 0
i = i + 1
　Worksheets(2).Activate
End Sub

‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
これでどうでしょうか？

[riringo55]

1004さん本当にありがとうございます。しばしお時間をください！

[riringo55]

1004さんまだみておられるでしょうか？
お時間かかり大変申し訳ありません。
上記のとおりで次の行へ変わり出来たのですが、
変わった後に訂正が出来ず、次の行次の行と変わっていくのですが。

出来たら、1度毎に入力確定ボタンを押したら次の行へと変わるようなマクロ
にはできますでしょうか？

大変申し訳ないですがどうぞよろしくお願い致します。

[1004]

「次の行へ」と言うボタンをシート１に新たに追加してみてください。
次の行へ行きたい場合はそれをクリックすれば行けるようになります。
下記のコードは今までのコードの一番下に追加すれば大丈夫です。

Sub test()
i = i + 1
Worksheets(2).Activate
End Sub

[1004]

追記として、ボタンに上記のコードを割り当てて下さい。

[riringo55]

1004さん大変お世話になりました。なんとかできました。

最後までご丁寧にありがとうございました。

またぜひよろしくお願いします！！

[1004]

少しでもお力になれて良かったです。