VBA初心者向け！介護現場の業務効率化を実現するExcel自動化術：誕生月リスト作成から人数カウントまで

この記事では、Excel VBA（Visual Basic for Applications）を使って、介護現場での業務効率化を目指す方々に向けて、具体的なコードの修正方法や、自動化のヒントを提供します。特に、VBA初心者の方でも理解しやすいように、コードの解説や、具体的な手順を丁寧に説明します。Excelの知識が少ない方でも、この記事を参考に、日々の業務を楽にできるような、実践的なスキルを身につけることができるでしょう。

現在、

A4 患者名 B4 （Aの）フリガナ C4 生年月日 D4 誕生月 E4 年齢

という項目を入れています。

実際に、５行～105行まで上記（患者様情報）を入れています。

C3には、データーの規則入力のリストで（1，2，3・・・・・10,11,12)を入れており、

今、下記コードを組んでいます。

Sub Macro1()

ActiveSheet.ListObjects(“テーブル1”).Range.AutoFilter Field:=4, Criteria1:=Range(“C3”).Value

Range(“A1”).Select

End Sub

別の行に抽出消去ボタンを作成しています。

例えばC3に２と選び、抽出ボタンを押せば

2月生まれのの患者が出るようになっています。

マクロ・ＶＢＡを組む前は、Ｅ３にＣＯＵＮＴＩＦ（$D$5:$D$105 ,D91)

※D91 などは、誕生月を選ぶようにしていました。

私だけが使うのであれば、関数でなんとかなっていましたが、パソコン使えない人たちが、患者の誕生月リストを出すことになり、VBAが分からないなりに上記まで作成しました。

そこで質問ですが、

①患者が増えたら行が増えます。こういうときに対してのコードを変更できますか？

②E3だけが、マクロ（VBA)組めていないので、例えば２（月生まれ）を選択し、

抽出ボタンを押しても、ＣＯＵＮＴＩＦで人数が反応しないため、

人数がカウント出来るコードを上記に追加、訂正出来ますでしょうか？

私はド素人で、とにかく職場のスタッフがパソコン使えない（介護職員のおばちゃんばかり）ため、なんとか自動化して、効率化を図ってあげてたら・・・と言う思いで

現在勉強中です。

1. はじめに：介護現場におけるExcel VBA活用の重要性

介護の現場では、記録、集計、報告など、様々な場面でExcelが活用されています。しかし、手作業での入力や集計は、時間と労力を要し、人的ミスも発生しやすくなります。そこで、Excel VBAを活用することで、これらの作業を自動化し、業務効率を大幅に向上させることが可能です。特に、パソコン操作に不慣れなスタッフが多い現場では、ボタン一つで操作できるようなシンプルな仕組みを作ることで、誰でも簡単に使えるようになり、業務の負担を軽減することができます。

2. 質問への回答：患者データが増えた場合のコード修正と人数カウントの追加

2-1. 患者データが増えた場合の対応

現在のコードでは、データの範囲が固定されているため、患者が増えた場合に正しく動作しません。この問題を解決するためには、データの範囲を可変にする必要があります。具体的には、最終行を自動的に取得するようにコードを修正します。以下のコードをご覧ください。


Sub Macro1()

  Dim ws As Worksheet
  Dim lastRow As Long
  Dim targetMonth As Variant

  ' シートの指定
  Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を修正してください

  ' 抽出する誕生月を取得
  targetMonth = ws.Range("C3").Value

  ' 最終行の取得
  lastRow = ws.Cells(Rows.Count, "D").End(xlUp).Row

  ' オートフィルターの設定
  With ws.ListObjects("テーブル1").Range
    .AutoFilter Field:=4, Criteria1:=targetMonth
  End With

  ' Range("A1").Select  ' この行は不要なので削除

End Sub

このコードでは、まずDim ws As Worksheetでシートオブジェクトを宣言し、Set ws = ThisWorkbook.Sheets("Sheet1")で対象のシートを指定します。次に、lastRow = ws.Cells(Rows.Count, "D").End(xlUp).Rowで、D列の最終行を取得します。Rows.CountはExcelの最大行数を表し、End(xlUp)は上方向に検索して、データのある最後のセルを見つけます。そして、.AutoFilter Field:=4, Criteria1:=targetMonthで、4列目（誕生月）を基準に、C3の値（選択された月）でフィルタリングを行います。この修正により、患者データが増えても、自動的にデータの範囲が調整され、正しく動作するようになります。

2-2. 人数カウントの追加

次に、抽出された患者の人数をカウントする機能を追加します。これには、COUNTIF関数をVBA内で使用します。以下のコードを参考にしてください。


Sub Macro1()

  Dim ws As Worksheet
  Dim lastRow As Long
  Dim targetMonth As Variant
  Dim count As Long

  ' シートの指定
  Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を修正してください

  ' 抽出する誕生月を取得
  targetMonth = ws.Range("C3").Value

  ' 最終行の取得
  lastRow = ws.Cells(Rows.Count, "D").End(xlUp).Row

  ' オートフィルターの設定
  With ws.ListObjects("テーブル1").Range
    .AutoFilter Field:=4, Criteria1:=targetMonth
  End With

  ' 人数のカウント
  count = Application.WorksheetFunction.CountIf(ws.Range("D5:D" & lastRow), targetMonth)

  ' 結果の表示
  MsgBox targetMonth & "月生まれの患者数は " & count & "人です。"

End Sub

このコードでは、Application.WorksheetFunction.CountIf(ws.Range("D5:D" & lastRow), targetMonth)を使用して、D列の5行目から最終行までの範囲で、選択された誕生月に該当するセルの数をカウントします。カウントされた人数は、MsgBoxで表示されます。これにより、抽出された患者の人数を簡単に確認できるようになります。

3. コードのステップごとの解説

3-1. シートと変数の宣言

まず、コードの冒頭で、使用する変数を宣言します。これにより、コードの可読性が向上し、エラーの発生を抑制できます。


  Dim ws As Worksheet
  Dim lastRow As Long
  Dim targetMonth As Variant
  Dim count As Long

ws As Worksheet: 対象のシートを表す変数
lastRow As Long: データの最終行を表す変数
targetMonth As Variant: 抽出する誕生月を表す変数
count As Long: カウントされた人数を表す変数

3-2. シートの指定

次に、対象のシートを指定します。シート名は、実際のシート名に合わせて修正してください。


  Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を修正してください

3-3. 抽出する誕生月の取得

C3セルに入力された誕生月を取得します。


  targetMonth = ws.Range("C3").Value

3-4. 最終行の取得

データの最終行を取得します。これにより、データ範囲が可変であっても、正しく処理できます。


  lastRow = ws.Cells(Rows.Count, "D").End(xlUp).Row

3-5. オートフィルターの設定

オートフィルターを使用して、誕生月でデータを抽出します。


  With ws.ListObjects("テーブル1").Range
    .AutoFilter Field:=4, Criteria1:=targetMonth
  End With

3-6. 人数のカウント

COUNTIF関数を使用して、抽出された患者の人数をカウントします。


  count = Application.WorksheetFunction.CountIf(ws.Range("D5:D" & lastRow), targetMonth)

3-7. 結果の表示

カウントされた人数をメッセージボックスで表示します。


  MsgBox targetMonth & "月生まれの患者数は " & count & "人です。"

4. コードの組み込み方法

上記のコードをExcelに組み込む手順を説明します。

Excelを開き、VBAエディタを起動します。「開発」タブが表示されていない場合は、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。
VBAエディタで、対象のシートが格納されているブックを開きます。
「挿入」→「標準モジュール」を選択し、新しいモジュールを作成します。
上記のコードをモジュールにコピー＆ペーストします。
コード内のSheet1の部分を、実際のシート名に修正します。
Excelのシートに戻り、抽出ボタンを作成します。「挿入」タブから「図形」を選択し、ボタンを作成します。
作成したボタンを右クリックし、「マクロの登録」を選択します。
先ほど作成したマクロ（例：Macro1）を選択し、「OK」をクリックします。
ボタンをクリックすると、マクロが実行され、誕生月でデータが抽出され、人数が表示されます。

5. 応用：さらに効率化するためのヒント

上記のコードを基に、さらに業務を効率化するためのヒントをいくつか紹介します。

5-1. 入力規則の活用

C3セルにデータの入力規則を設定することで、入力ミスを防ぎ、操作性を向上させることができます。C3セルを選択し、「データ」タブの「データの入力規則」を開き、「入力値の種類」を「リスト」に設定し、「元の値」に1,2,3,4,5,6,7,8,9,10,11,12と入力します。これにより、C3セルでプルダウンリストから月を選択できるようになります。

5-2. ボタンのカスタマイズ

作成したボタンのデザインをカスタマイズすることで、より使いやすく、視覚的に分かりやすいインターフェースを作成できます。ボタンを右クリックし、「図形の書式設定」を選択し、色やフォント、サイズなどを変更できます。

5-3. エラー処理の追加

コードにエラー処理を追加することで、予期せぬエラーが発生した場合でも、プログラムが停止することなく、適切なメッセージを表示し、ユーザーに注意を促すことができます。例えば、C3セルに数値以外の値が入力された場合に、エラーメッセージを表示する処理を追加できます。


Sub Macro1()

  Dim ws As Worksheet
  Dim lastRow As Long
  Dim targetMonth As Variant
  Dim count As Long

  ' シートの指定
  Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を修正してください

  ' 抽出する誕生月を取得
  targetMonth = ws.Range("C3").Value

  ' 入力値のチェック
  If Not IsNumeric(targetMonth) Then
    MsgBox "C3セルには数値を入力してください。"
    Exit Sub
  End If

  ' 最終行の取得
  lastRow = ws.Cells(Rows.Count, "D").End(xlUp).Row

  ' オートフィルターの設定
  With ws.ListObjects("テーブル1").Range
    .AutoFilter Field:=4, Criteria1:=targetMonth
  End With

  ' 人数のカウント
  count = Application.WorksheetFunction.CountIf(ws.Range("D5:D" & lastRow), targetMonth)

  ' 結果の表示
  MsgBox targetMonth & "月生まれの患者数は " & count & "人です。"

End Sub

5-4. 複数の条件での抽出

誕生月だけでなく、他の条件（例：性別、住所など）でデータを抽出する機能を追加することも可能です。その場合は、Criteria1に複数の条件を指定したり、ANDやOR条件を使用したりする必要があります。

6. 成功事例：介護現場でのVBA活用

実際に、Excel VBAを活用して業務効率を改善した介護施設の事例を紹介します。

事例1：記録の自動化
ある介護施設では、入居者のバイタルデータや食事記録を手作業で入力していました。VBAを使用して、これらのデータを自動的に集計し、グラフ化するシステムを構築しました。これにより、記録にかかる時間を大幅に短縮し、スタッフの負担を軽減しました。
事例2：請求業務の効率化
別の介護施設では、請求書の作成に多くの時間を費やしていました。VBAを使用して、入居者の利用料金を自動的に計算し、請求書を作成するシステムを開発しました。これにより、請求業務にかかる時間を大幅に短縮し、ミスを減らすことができました。
事例3：シフト管理の最適化
ある施設では、シフト表の作成に時間がかかっていました。VBAを使用して、スタッフの希望やスキルを考慮して、最適なシフト表を自動的に作成するシステムを開発しました。これにより、シフト作成にかかる時間を短縮し、スタッフの満足度も向上しました。

7. まとめ：VBAで介護現場の業務効率化を実現しよう

この記事では、Excel VBAを使って、介護現場での業務効率化を実現するための具体的な方法を紹介しました。VBAは、一見難しそうに見えますが、基本的なコードを理解し、少しずつ応用していくことで、誰でも簡単に業務を自動化することができます。今回紹介したコードを参考に、ぜひご自身の職場でVBAを活用し、業務効率化を実現してください。もし、VBAの学習や、コードの作成に行き詰まった場合は、専門家への相談も検討してみましょう。

もっとパーソナルなアドバイスが必要なあなたへ

この記事では一般的な解決策を提示しましたが、あなたの悩みは唯一無二です。
AIキャリアパートナー「あかりちゃん」が、LINEであなたの悩みをリアルタイムに聞き、具体的な求人探しまでサポートします。

今すぐLINEで「あかりちゃん」に無料相談する

無理な勧誘は一切ありません。まずは話を聞いてもらうだけでも、心が軽くなるはずです。

8. よくある質問（FAQ）

8-1. VBAの学習方法が分かりません。

VBAの学習方法は、大きく分けて独学と、セミナーやオンライン講座の受講があります。独学の場合は、書籍やインターネット上の情報（Microsoftの公式ドキュメント、Qiita、teratailなど）を活用し、実際にコードを書いて試してみることが重要です。セミナーやオンライン講座では、専門家から直接指導を受けることができ、効率的に学習を進めることができます。初心者向けのVBA講座も多くありますので、ご自身のレベルや目的に合わせて選択してください。

8-2. コードがエラーになってしまいます。どこを修正すれば良いですか？

コードがエラーになる原因は様々ですが、よくある原因として、以下の点が挙げられます。

スペルミス: 変数名やオブジェクト名（例: Range、Worksheet）のスペルミスがないか確認してください。
シート名の間違い: シート名が正しく指定されているか確認してください。シート名が変更されている場合は、コード内のシート名を修正する必要があります。
変数の宣言ミス: 変数が正しく宣言されているか（例: Dim ws As Worksheet）確認してください。
構文エラー: コードの記述に誤りがないか確認してください。VBAエディタは、構文エラーを検出すると、エラー箇所をハイライト表示します。
オブジェクトの指定ミス: オブジェクト（例: Range、Cells）が正しく指定されているか確認してください。

エラーが発生した場合は、エラーメッセージをよく読み、エラー箇所を特定し、修正してください。また、VBAエディタには、デバッグ機能が搭載されており、コードの実行を一時停止し、変数の値を確認したり、コードを一行ずつ実行したりすることができます。デバッグ機能を活用することで、エラーの原因を特定しやすくなります。

8-3. 複雑な処理を自動化したいのですが、どのようにすれば良いですか？

複雑な処理を自動化する場合は、まず、処理を小さなステップに分解し、それぞれのステップをVBAコードで実装します。次に、これらのステップを組み合わせて、全体の処理を完成させます。複雑な処理を自動化するためには、VBAの基礎知識だけでなく、Excelの関数やオブジェクトに関する知識も必要になります。また、インターネット上の情報や、専門家の助けを借りることも有効です。VBAの学習を進めながら、徐々に複雑な処理に挑戦していくことで、スキルアップを図ることができます。

8-4. セキュリティについて注意すべき点はありますか？

VBAコードを使用する際には、セキュリティにも注意が必要です。特に、インターネットからダウンロードしたVBAコードを使用する場合は、必ず内容を確認し、信頼できるソースからのものであることを確認してください。また、マクロのセキュリティ設定を適切に設定し、悪意のあるマクロの実行を防ぐようにしてください。Excelの「ファイル」→「オプション」→「セキュリティセンター」→「セキュリティセンターの設定」で、マクロの設定を変更できます。マクロを有効にする前に、必ずコードの内容を確認し、安全性を確認してください。

8-5. VBAで作成したツールを他の人に共有するにはどうすれば良いですか？

VBAで作成したツールを他の人に共有するには、以下の方法があります。

ブックの保存形式: VBAコードを含むブックは、.xlsm形式で保存する必要があります。.xls形式で保存すると、VBAコードが失われます。
マクロの有効化: ツールを使用する人が、マクロを有効にする必要があります。セキュリティ設定によっては、マクロが無効になっている場合がありますので、注意が必要です。
ファイルの共有方法: ツールを共有する方法としては、メールでファイルを送信する、ファイルサーバーにファイルを保存する、クラウドストレージ（例: Google Drive、Dropbox）を利用するなどがあります。
パスワード保護: ツールを保護するために、ブックにパスワードを設定することができます。「ファイル」→「情報」→「ブックの保護」→「パスワードを使用して暗号化」を選択し、パスワードを入力します。

これらの方法を組み合わせることで、VBAで作成したツールを安全に共有し、活用することができます。

“`

コメントするコメントをキャンセル

お役立ちコンテンツ

転職体験談

転職ノウハウ

転職コラム

コミュ力が、
最強の武器
になる。

まずは登録