アクティブシートの内容をCSV出力するマクロを作成しました。出力ファイルは、元のExcelファイルのファイル名に".csv"を付加した名前になります。 Public Sub CSV出力() Dim fname As String Dim lastCell As Range Dim cell As Range Dim filenum As Intege…

' 表読み込みクラス ' ' 指定されたシートに記述されている表を読むクラスです。 ' ' 新規作成：2008/03/16 Option Explicit Private sheet As Worksheet Private startCell As Range Private dataRange As Range ' コンストラクタ Private Sub Class_Initia…

VBAには、ハッシュテーブルのようなデータ構造がありません。それでも、ハッシュテーブルがあると便利な事がありますので、ライブラリを自作してみました。処理を簡単にするため、Excelシートを使ってハッシュテーブルを実現しました。ソースは下記のように…

繰り返し制御の構文の書き方、すぐに忘れてしまうのでメモします。 For文 For カウンタ = 初期値 To 最終値 [Step 増分] … [Exit For] Next [カウンタ] For Each文 For Each 要素を示す変数 In 配列またはコレクションの名前 … [Exit For] Next [要素を示す…

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

まあ、あまり使うことはないと思いますが、ある基準日から、指定された曜日で、最も近い未来日を取得する関数を作成しました。 ' 指定曜日での直近の日付 ' 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…