マクロを作り、それを使っていると、マクロを更新したい場合が出てきます。対象ファイルを一人で使っている分には問題ないのですが、複数の人と共有している場合、ファイルを書き換えるタイミングが難しかったりします。こんなとき、マクロ部分を別ファイル…

まあ、あまり使うことはないと思いますが、ある基準日から、指定された曜日で、最も近い未来日を取得する関数を作成しました。 ' 指定曜日での直近の日付 ' argDate - 基準日 ' argWeek - 曜日（1:日曜日、…、7:土曜日） ' 2006/11/05 根本 新規作成 Public …

営業日を考慮して、指定日から指定日数後の日付を取得する関数を作成しました。 ' 営業日の足し算 ' argDate - 基準日 ' argDay - 足し合わせる日数 ' 2006/11/05 根本 新規作成 Public Function U_BusinessDayAfter(argDate As Date, argDay As Integer) As…

ある日付が、営業日かどうかをチェックする関数を作りました。祝日を指定すれば、それも考慮してチェックを行います。 ' 指定日が営業日であるかチェックする関数 ' 2006/11/05 新規作成 Public Function U_IsBusinessDay(argDate As Date) As Boolean Dim h…

Excelでは、1つのセルに含まれるテキストに対して、部分的に取消線を引いたり、色を付けることが可能です。この機能を利用して、テキスト内容の変更を履歴管理することがあります。 変更前の文字列に取消線を引き、変更後の文字列を通常文字や赤文字で記述す…

VBAマクロにて、アクティブシートの最終行を取得するサンプルを以下に示します。 ただし、行が追加・削除された場合などは誤認識するけど、ファイルを保存して開き直すと正常に戻るそうです。 ' 最終行の取得 ' 誤認識する場合あり Dim endRow As Long endRo…

Sub U_SetLineStyle() ' ' 罫線設定Subプロシージャ ' ' 選択済みのセル範囲に対して、罫線を設定します。 ' 外枠を実線、内部を波線にします。 ' 私のお気に入りです。 ' ' 新規作成：2008/03/15 ' Selection.Borders(xlDiagonalDown).LineStyle = xlNone S…