Excel

' この処理はアクティブブックの全シート名を配列に格納し、新規ブックにまとめてコピーします。' その後、新規ブックをマクロなしのファイルとして保存します。Sub prcCopySheetsToNewWorkbookAndSave() Dim...

Sub prcFillGreyIfConditionMet() ' 7行目に文字が入力されている場合に指定範囲のセルの背景色を塗りつぶす Const strRangeAddress As String = "F2:NG102" ' アドレス...

' 選択されたセル範囲から結合されていないセルの背景色をクリアする手続きです。Sub prcClearBackgroundColorOfNonMergedCells() Dim rngSelected As Range Dim rngCel...

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

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

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

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

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

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

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