Home » Excel VBA Rangeオブジェクト » セル数式 » TODAY関数を文字列に変換するExcelマクロ

TODAY関数を文字列に変換するExcelマクロ

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2601（ビルド19628.20166クイック実行）

「excel today関数文字列変換」
といった検索で、このサイト『インストラクターのネタ帳』へのアクセスが結構あります。

（本当に文字列に変換していいのか気になるところではありますが…）
VBA（Visual Basic for Applications）で、Excelマクロを作ってみました。

［スポンサードリンク］

TODAY関数を文字列に変換するサンプルマクロ

以下のExcelマクロを実行すると、アクティブシート上のTODAY関数が文字列に変換されます。

Sub アクティブシート上のTODAY関数を文字列に変換する()

　Dim rng As Range
　For Each rng In ActiveSheet.UsedRange
　　If rng.Formula = "=TODAY()" Then
　　　rng.Value = "'" & rng.Text
　　End If
　Next

End Sub

アクティブシート上のWorksheet.UsedRangeプロパティで取得できる、全セルに対してFor Each～Nextループを回して、

　Dim rng As Range
　For Each rng In ActiveSheet.UsedRange

TODAY関数の入力されているセルだったときに、

　　If rng.Formula = "=TODAY()" Then

Range.Valueを、表示されている文字列に変換しています。

　　　rng.Value = "'" & rng.Text

最終更新日時：2026-02-12 13:29

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » セル数式 » TODAY関数を文字列に変換するExcelマクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記のExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

Excel VBA経験者の方に向けて、Word VBAの基本をキンドル本にしました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

「セル数式」の記事一覧