Excel

' 選択された範囲内で、5行目に文字が存在し、セルが結合されていない列のセルの背景色をグレーにします。 Sub prcColorSelectedColumnsGreyIfTextInRow5AndNotMerged() Dim rngSel...

Sub prcFillOrClearGreyIfConditionMet() ' 条件に基づきセルの背景色を塗りつぶす、またはクリアする Const strRangeAddress As String = "F2:NG102" ' アドレス...

' ---------------------------------------------------------------- ' 選択されたセル内のテキストに対し、フォント色を変更する処理 '（「:」の前後でフォント色を変更 ※セル...

' fncCountSubstringOccurrences ' この関数は指定されたExcel範囲内で特定の部分文字列が含まれるセルの数をカウントします。 ' 結合されたセルも個別のセルとしてカウントされます。 ' 引数: ' rngSe...

' fncColumnLetter ' Excelで列番号を対応する列のアルファベットに変換する関数です。 ' 引数: ' intColumnNumber - 変換する列番号。 ' 戻り値: ' String - 対応する列のアルファベット...

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

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

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

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

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