Excel 条件に基づきセルの背景色を塗りつぶす、またはクリアする
Sub prcFillOrClearGreyIfConditionMet() ' 条件に基づきセルの背景色を塗りつぶす、またはクリアする Const strRangeAddress As String = "F2:NG102" ' アドレス...
VBA侍-SAMURAI
Excel Excel セル内テキストのフォント色を途中で変更※セル内改行を考慮
' ----------------------------------------------------------------' 選択されたセル内のテキストに対し、フォント色を変更する処理'（「:」の前後でフォント色を変更 ※セル内改...
Excel 範囲内で特定文字が含まれるセルの個数をカウント（結合セルを考慮）
' fncCountSubstringOccurrences' この関数は指定されたExcel範囲内で特定の部分文字列が含まれるセルの数をカウントします。' 結合されたセルも個別のセルとしてカウントされます。' 引数:' rngSearch...
Excel 列番号を対応する列のアルファベットに変換する関数
' fncColumnLetter' Excelで列番号を対応する列のアルファベットに変換する関数です。' 引数:' intColumnNumber - 変換する列番号。' 戻り値:' String - 対応する列のアルファベット。Func...
共通 コーディングルール
変数名はデータタイプを示す3文字の接頭辞とCamelCaseを使用（例: 'strExample'）。プロシージャ名には 'prc' の接頭辞、関数名には 'fnc' の接頭辞を使用。処理の概要、引数、備考をプロシージャ名の上に記載（引数が...
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 ' 使用する...
Access 対象フォルダ内のファイルとフォルダ一覧を作成
Option Compare DatabaseOption ExplicitDim modLngObjNumber As LongDim modFolderLevel As IntegerSub prcStoreFilesInfoToTab...