Excel 指定サイズのコメントを追加する
Sub prcAddCommentToCell() ' セルB2に指定された寸法のコメントを追加する Dim cmnExample As Comment Dim shpExample As Shape ' 既存のコメントがあれば削除 On ...
VBA侍-SAMURAI
Excel 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 ' 使用する...
Access 対象フォルダ内のファイルとフォルダ一覧を作成
Option Compare Database Option Explicit Dim modLngObjNumber As Long Dim modFolderLevel As Integer Sub prcStoreFilesInfoT...
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 i...
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 ...
共通 拡張子がついたファイル名から拡張子の部分を返す
' 機能概要: 拡張子がついたファイル名から拡張子の部分を返す ' 引数: ' strFileName - ファイル名（拡張子含む） ' 戻り値: ' String - ファイルの拡張子 Function GetFileExtension(...