Excel A列全体に対し、特定のキーワードを消去
Sub prcRemoveSpecificKeywordsInColumnA() Dim wks As Worksheet Dim arrKeywordsToRemove As Variant Dim i As Integer ' 使用する...
VBA侍-SAMURAI
Excel Access 対象フォルダ内のファイルとフォルダ一覧を作成
Option Compare DatabaseOption ExplicitDim modLngObjNumber As LongDim modFolderLevel As IntegerSub prcStoreFilesInfoToTab...
Word 選択範囲からWindowsの改行コード(CR+LF)を削除
' 選択範囲からWindowsの改行コード(CR+LF)を削除Sub prcRemoveLineBreaks() Dim strText As String ' 選択範囲が空かどうか確認 If Selection.Range.Start =...
Word 選択範囲の各行の先頭スペースを削除
' 選択範囲の各段落の先頭にある空白（全角、半角）またはタブを削除Sub prcRemoveLeadingSpaces() Dim rngParagraph As Paragraph Dim strText As String Dim in...
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...
共通 拡張子がついたファイル名から拡張子の部分を返す
' 機能概要: 拡張子がついたファイル名から拡張子の部分を返す' 引数:' strFileName - ファイル名（拡張子含む）' 戻り値:' String - ファイルの拡張子Function GetFileExtension(strFi...
Excel 文字列末尾の改行削除（「。」の場合を除く）
' 機能概要: 文字列の各行をチェックし、末尾が「。」でない場合に改行を除去' 引数:' strText - 処理する文字列' 戻り値:' String - 条件に基づいて改行が除去された文字列Function RemoveNewlineI...
Excel 文字列から空白行を削除
' 機能概要: 文字列から空白行を削除' 引数:' strText - 処理する文字列' 戻り値:' String - 空白行が削除された文字列Function RemoveBlankLines(strText As String) As ...
Excel 英語形式の日付文字列を日付型に変換
' 機能概要: 英語形式の日付文字列を日付型に変換' 引数:' strDateText - 変換する日付の文字列（例: "Wednesday, December 13, 2023 9:00 AM"）' 戻り値:' Variant - 変換さ...