【VBA】テーブルで今日以前の列は削除する【Word】

経緯

WindowsのWordで書類を書いてました。

書類にはテーブルがあり、日付と担当者が以下のようになっています。

日付	担当者
11月27日	森
12月1日	小森
12月11日	中森

11月27日はもう過ぎていらないので、これを消すコードを勉強してました。

コード

以下はコードです。

テーブルのセルに格納されている”yyyy年mm月dd日”形式の日付を”yyyy/mm/dd”形式に変換し、それをCDateを使用してDate型に変換しています。その後、現在の日付と比較して、過去の日付であればその行を削除します。

Sub UpdateTable()
    Dim doc As Document
    Set doc = ActiveDocument

    Dim tbl As Table
    Set tbl = doc.Tables(1) ' 最初のテーブルを選択

    Dim i As Integer
    For i = tbl.Rows.Count To 2 Step -1 ' 最後の行から2行目までループ
        ' 日付をチェックし、過去の日付であれば行を削除
        Dim dateString As String
        dateString = tbl.Cell(i, 1).Range.Text
        dateString = Trim(Left(dateString, Len(dateString) - 2)) ' 末尾の改行文字を削除

        ' "yyyy年mm月dd日"形式の日付を"yyyy/mm/dd"形式に変換
        dateString = Replace(dateString, "年", "/")
        dateString = Replace(dateString, "月", "/")
        dateString = Replace(dateString, "日", "")

        If IsDate(dateString) Then
            If CDate(dateString) < Date Then
                tbl.Rows(i).Delete
            End If
        End If
    Next i
End Sub

という感じです。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。

スクールの紹介

【アイデミー】AIを学んで一発逆転のキャリアチェンジ！

最後に宣伝をさせてください。

夢見るAIエンジニアへ、今こそ一歩を踏み出せ！

最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。

しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです！

なぜこのサービスが選ばれるのか？その理由はこちら

1. 初心者から上級者まで
   完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。
2. 徹底的な進捗管理
   受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。
3. 専属メンターによる徹底サポート
   AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。
4. 場所を選ばず学べるオンライン完結
   東京以外の地域からも、気軽に学び始めることができます。

信頼の実績多数！
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現

夢を叶えるための第一歩を、一緒に踏み出しませんか？今なら、あなたもその一員として学び始めることができます！