Excel

Excel

指定サイズのコメントを追加する

Sub prcAddCommentToCell() ' セルB2に指定された寸法のコメントを追加する Dim cmnExample As Comment Dim shpExample As Shape ' 既存のコメントがあれば削除 On ...
Excel

1行目にオートフィルタを設定、その行を固定

Sub prcSetAutoFilterAndFreezeTopRow() ' Sheet1の1行目にオートフィルタを設定し、その行を固定します。 Dim wks As Worksheet ' Sheet1を設定 Set wks = Thi...
Excel

特定のキーワード(複数)が含まれている行を削除

Sub prcDeleteRowsWithSpecificWordsPartialMatch() ' A列で特定のキーワードを部分一致で含む行を削除します。 Dim wks As Worksheet Dim arrWords As Vari...
Excel

A列全体に対し、特定のキーワードを消去

Sub prcRemoveSpecificKeywordsInColumnA() Dim wks As Worksheet Dim arrKeywordsToRemove As Variant Dim i As Integer ' 使用する...
Excel

指定されたフォルダが書き込み可能かどうかを判断するVBA関数

Function fncIsFolderWritable(ByVal strFolderPath As String) As Boolean ' 変数の宣言 Dim fso As FileSystemObject Dim strTempFi...
Excel

ブックを開かずに対象ブックのシート名リストを配列で取得する関数

要・参照設定:Microsoft ActiveX Data Objects ライブラリFunction fncGetExcelWorksheetNames(strFilePath As String) As Variant Dim cn A...
Excel

文字列末尾の改行削除(「。」の場合を除く)

' 機能概要: 文字列の各行をチェックし、末尾が「。」でない場合に改行を除去' 引数:' strText - 処理する文字列' 戻り値:' String - 条件に基づいて改行が除去された文字列Function RemoveNewlineI...
Excel

文字列から空白行を削除

' 機能概要: 文字列から空白行を削除' 引数:' strText - 処理する文字列' 戻り値:' String - 空白行が削除された文字列Function RemoveBlankLines(strText As String) As ...
Excel

英語形式の日付文字列を日付型に変換

' 機能概要: 英語形式の日付文字列を日付型に変換' 引数:' strDateText - 変換する日付の文字列(例: "Wednesday, December 13, 2023 9:00 AM")' 戻り値:' Variant - 変換さ...
Excel

日付文字列から括弧(「(」と「)」)および括弧内の文字を除去するVBA関数

' 機能概要: 文字列から括弧と括弧内の文字を除去' 引数:' strText - 処理する文字列' 戻り値:' String - 括弧と括弧内の文字が除去された文字列Function RemoveParentheses(strText A...