学級会計くんVBA

学級会計くんVBAについて
ExcelVBAを使って、学級会計が作れるテンプレートです。
VBAは「らくらく入力ボタン」「印刷ボタン」「終了ボタン」しか使っていません。

「印刷ボタン」のVBA
Ver.2.5の標準モジュール（Module２）
Sub 学級会計報告印刷1学期()
'１学期の印刷
Dim myBtn As Integer
Dim mymsg As String, myTitle As String
Dim myRow, myRow2, myi, myc, myb As Integer

mymsg = "Ｂ５で印刷されます。印刷していいですか？"
myTitle = "Ｂ５用紙と印刷確認"

myBtn = MsgBox(mymsg, vbYesNo + vbQuestion, myTitle)
myRow = Cells(2, 30).Value
myRow2 = Cells(4, 30).Value
myc = 6 - myRow
myb = 15 - myRow2

Application.ScreenUpdating = False

If myBtn = vbYes Then
If myRow <> 7 Then
For myi = 0 To myc
Worksheets("学級会計１学期").Select
Rows(13 + myRow).Select
Selection.EntireRow.Hidden = True
myRow = myRow + 1
Next
For myi = 0 To myb
Worksheets("学級会計１学期").Select
Rows(24 + myRow2).Select
Selection.EntireRow.Hidden = True
myRow2 = myRow2 + 1
Next
End If

Worksheets("学級会計１学期").PrintOut From:=1, To:=1

myRow = Cells(2, 30).Value
myRow2 = Cells(4, 30).Value
myc = 6 - myRow
myb = 15 - myRow2
If myRow <> 7 Then
For myi = 0 To myc
Worksheets("学級会計１学期").Select
Rows(13 + myRow).Select
Selection.EntireRow.Hidden = False
myRow = myRow + 1
Next
For myi = 0 To myb
Worksheets("学級会計１学期").Select
Rows(24 + myRow2).Select
Selection.EntireRow.Hidden = False
myRow2 = myRow2 + 1
Next
Cells(1, 1).Select
Worksheets("メニュー").Select
End If
End If

Application.ScreenUpdating = True
End Sub

『終了ボタン』のVBA
標準モジュール（Module１）
Sub 終了()
’変数の宣言
Dim myBtn As Integer
Dim myMsg As String, myTitle As String
’変数の値の設定
myMsg = "終了していいですか？"
myTitle = "終了確認"
myBtn = MsgBox(myMsg, vbYesNo + vbQuestion, myTitle)

If myBtn = vbYes Then
’アクティブブックの保存
ActiveWorkbook.Save
’エクセルの終了
Application.Quit
End If
End Sub

とまあこんな感じに標準モジュールと２つの入力フォームだけで作ったものです。
まあ、簡単に言えば、わざわざVBAで作らなくても、マクロの記録でもある程度出来そうなプログラムです。

あとは、各学期の空欄になっているところが、IF関数を使っているぐらい。ちょっとお勉強すればできそうなところがよいところ。

ご質問・ご要望など、メッセージをお気軽に下のフォームにご記入いただき、送信ボタンでお送りください。
また、このページで紹介しているコードにつきましては、細心の注意を払ってはいますが、運用上いかなる損害が起きても責任を負わないものとします。
商用利用もご遠慮ください。

題名（必須）

お名前（必須）

メールアドレス（必須）

コメント

トップへ

『学級会計くん』について

開発顛末（その２）

『学級会計くんVer.2.54』のダウンロード

メール

題名（必須）
お名前（必須）
メールアドレス（必須）
コメント