この記事では、Excel VBAを利用して特定の曜日の日付のみを許可するという業務効率化の方法について詳しく解説します。具体的なコード例、その詳細な解説、さらには応用例も含めています。日本市場において、業務でExcelを使用する際に役立つテクニックです。
Excel VBAの基本
Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。
そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。
はじめに
Excelは業務で広く用いられるツールですが、VBA（Visual Basic for Applications）を用いることで、より高度な処理や自動化が可能になります。特に、日付データを扱う場面で特定の曜日の日付のみを許可するようなケースは多く、ここで紹介するコードが役立つでしょう。
基本的なコード
まず、特定の曜日（たとえば「月曜日」）の日付のみを許可する基本的なVBAコードを見てみましょう。
Sub AllowSpecificWeekday()
Dim TargetCell As Range
Set TargetCell = Worksheets("Sheet1").Range("A1")
Dim WeekdayName As String
WeekdayName = WorksheetFunction.Text(TargetCell.Value, "dddd")
If WeekdayName = "月曜日" Then
MsgBox "許可された日付です。"
Else
MsgBox "月曜日の日付のみ許可されます。"
TargetCell.Value = ""
End If
End Sub
コード解説
– `Sub AllowSpecificWeekday()`: 新しいマクロ（Subルーチン）を作成します。
– `Dim TargetCell As Range`: 処理対象のセルをRangeオブジェクトとして定義します。
– `Set TargetCell = Worksheets(“Sheet1”).Range(“A1”)`: シート名が”Sheet1″で、セルが”A1″の場所を対象とします。
– `Dim WeekdayName As String`: 曜日名をString型で定義します。
– `WeekdayName = WorksheetFunction.Text(TargetCell.Value, “dddd”)`: 曜日名を取得します。
– `If WeekdayName = “月曜日” Then … Else … End If`: 曜日が月曜日かどうかを判定し、それに応じて処理を分岐します。
応用例
応用例1: 複数の曜日を許可する
Sub AllowMultipleWeekdays()
Dim TargetCell As Range
Set TargetCell = Worksheets("Sheet1").Range("A1")
Dim WeekdayName As String
WeekdayName = WorksheetFunction.Text(TargetCell.Value, "dddd")
If WeekdayName = "月曜日" Or WeekdayName = "水曜日" Then
MsgBox "許可された日付です。"
Else
MsgBox "月曜日、水曜日の日付のみ許可されます。"
TargetCell.Value = ""
End If
End Sub
応用例2: 特定の曜日を除外する
Sub DenySpecificWeekday()
Dim TargetCell As Range
Set TargetCell = Worksheets("Sheet1").Range("A1")
Dim WeekdayName As String
WeekdayName = WorksheetFunction.Text(TargetCell.Value, "dddd")
If WeekdayName = "日曜日" Then
MsgBox "日曜日は許可されていません。"
TargetCell.Value = ""
Else
MsgBox "許可された日付です。"
End If
End Sub
応用例3: 曜日ごとに異なるメッセージを表示する
Sub ShowDifferentMessageByWeekday()
Dim TargetCell As Range
Set TargetCell = Worksheets("Sheet1").Range("A1")
Dim WeekdayName As String
WeekdayName = WorksheetFunction.Text(TargetCell.Value, "dddd")
Select Case WeekdayName
Case "月曜日"
MsgBox "今日は週の始まりです。"
Case "水曜日"
MsgBox "今日は週の真ん中です。"
Case "金曜日"
MsgBox "今日は週末の前日です。"
Case Else
MsgBox "特にメッセージはありません。"
End Select
End Sub
まとめ
Excel VBAを利用して、特定の曜日の日付のみを許可する処理は多くの業務で役立つテクニックです。基本的なコードから応用例まで紹介しましたので、ぜひ実際の業務に取り入れてみてください。
VBAも良いけどパワークエリも良い
VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。
クリックするとパワークエリの全11講座が表示されます。
-
【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)
-
【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)
-
【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)
-
【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)
-
パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)
-
パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）
-
パワークエリで効率的なデータグループ化を実現する方法(7/11)
-
パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)
-
パワークエリで条件別集計をマスターする方法(9/11)
-
Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)
-
Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)
パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください
コメント