エクセル（Excel）の技。知ってましたか・・・。

マイクロソフトアクセスのまとめ記事はこちら

人気ブログランキングへ




最終のVBA


その後色々動作確認して最終が下のプログラムです。

Private Sub CommandButton1_Click()

Dim kai As Integer '会員一覧の行変数

Dim nyu As Integer '入場券の行変数

'発券日の有無をみて未発券ならば発券

kai = 2 '最初は2行目から

nyu = 8 '入場券の最初の名前は8行目なので

Sheets("入場券").Select

下はループに入る前に1回入場券の値を消去します。

Sheets("入場券").Range("e8:j8").Clear

Sheets("入場券").Range("n8:s8").Clear

Sheets("入場券").Range("e17:j17").Clear

Sheets("入場券").Range("n17:s17").Clear

Sheets("入場券").Range("e26:j26").Clear

Sheets("入場券").Range("n26:s26").Clear

Sheets("入場券").Range("e35:j35").Clear

Sheets("入場券").Range("n35:s35").Clear

Sheets("入場券").Range("e44:j44").Clear

Sheets("入場券").Range("n44:s44").Clear

Sheets("入場券").Range("e53:j53").Clear

Sheets("入場券").Range("n53:s53").Clear


Do While Sheets("会員一覧").Cells(kai, 1) <> ""

If Sheets("会員一覧").Cells(kai, 5) <> "" Then
'2行目の申込日に記載があるかどうか

If Sheets("会員一覧").Cells(kai, 6) = "" Then
'2行目の発券日に記載があるかどうか

Sheets("入場券").Cells(nyu, 5).Value = Sheets("会員一覧").Cells(kai, 2)

'発券日に記載がない場合は入場券の1枚目の名前欄に最初の名前を入力

If Sheets("会員一覧").Cells(kai, 4) = "幼児" Then

'会員一覧の年齢欄に「幼児」となっている場合は

Sheets("入場券").Cells(nyu, 14).Value = Sheets("会員一覧").
　_Cells(kai, 4) & "・保護者必要"

Sheets("会員一覧").Cells(kai, 6) = Date

'幼児の幼児の場合は年齢欄に「幼児・保護者必要」と記載

ElseIf Sheets("会員一覧").Cells(kai, 4) = "小*" Then

'小学生の場合

Sheets("入場券").Cells(nyu, 14).Value = Sheets("会員一覧").Cells(kai, 4) &
　　　_"・保護者必要"

Sheets("会員一覧").Cells(kai, 6) = Date

'小学生も保護者必要

Else

Sheets("入場券").Cells(nyu, 14).Value = Sheets("会員一覧").Cells(kai, 4)
'上記以外は年齢コピー

Sheets("会員一覧").Cells(kai, 6) = Date

End If

If Sheets("会員一覧").Cells(kai + 1, 1) = "" Then

Sheets("入場券").PrintOut

Exit Sub

End If

nyu = nyu + 9

End If

End If

kai = kai + 1

If nyu = 62 Then

Sheets("入場券").PrintOut

nyu = 8

Sheets("入場券").Select

下の消去は印刷後の消去です。

Sheets("入場券").Range("e8:j8").Clear

Sheets("入場券").Range("n8:s8").Clear

Sheets("入場券").Range("e17:j17").Clear

Sheets("入場券").Range("n17:s17").Clear

Sheets("入場券").Range("e26:j26").Clear

Sheets("入場券").Range("n26:s26").Clear

Sheets("入場券").Range("e35:j35").Clear

Sheets("入場券").Range("n35:s35").Clear

Sheets("入場券").Range("e44:j44").Clear

Sheets("入場券").Range("n44:s44").Clear

Sheets("入場券").Range("e53:j53").Clear

Sheets("入場券").Range("n53:s53").Clear


End If

Loop

End Sub



以上が今回作成した入場券発券システムです。

参考になれば幸いです。

また、何か参考になるようなものが出来ましたらアップします。