介護事業所（デイサービス）で作られる、介護予防実績報告書の事務改善について書いています。
昨日は、「実績報告書」を一気に印刷する処理について書きましたが、
今日は、対象者を選択して印刷する方法を考えてみたいと思います。
対象者の選択には、チェックボックスを使います。
以前書いた記事を参考にしてみましょう。
こんな感じでしょうか。
A列のセルにチェックボックスとのリンクを行い、
結果が「Ｔｒｕｅ」なら印刷対象、「Ｆａｌｓｅ」ならスルーの
分岐処理を入れます。
昨日のプログラムに赤色の部分を追加します。
Sub 印刷()
Application.ScreenUpdating = False
Err = 0 '実績データない時の判定に使う
r = 8 '開始行
With Worksheets("対象者名簿")
Do Until .Range("d" & r).Value = ""
If .Range("a" & r) = True Then '印刷対象の判定
Call 印刷編集(r)
If Err = 0 Then
Worksheets("実績報告書").Select
ActiveWindow.SelectedSheets.PrintPreview
' ActiveWindow.SelectedSheets.PrintOut
End If
End If
r = r + 1
Loop
'MsgBox (line1)
End With
Sheets("対象者名簿").Select
Application.ScreenUpdating = True
End Sub
テストしてみましょう。
対象者を２名選択しました。・・印刷ボタンをクリックします。
次郎さんが印刷されました。
五郎さんは、実績データがないのでメッセージを表示します。
対象者２名。見事印刷されました。
これで９８％完成でしょうか。
３日の仕事が５分できるという理想をもって挑戦してみましたが
びっくりするほど、ぴったり、はまったプログラムでした。
このように、時短が図れる業務はいくらでもあります。
見た目カッコよくなくてもいいんです。（本物はそれなりに仕上がってますが）
目的は、効率化と使いやすさ。
細かい要望が、まだあるようなので応えていきたいと思います。
では