Excel 選択フォルダのファイルリスト作成
Sub prcListFilesInFolder() ' フォルダ選択ダイアログを表示し、選択されたフォルダのファイルをリストアップする Dim fso As FileSystemObject Set fso = New FileSyste...
VBA侍-SAMURAI
Excel Excel シート内の画像サイズをリサイズ（縦幅指定）
Sub prcResizeAllImagesToSpecificHeightCm() ' インプットボックスからの入力に基づいてシート内の全ての画像を特定の縦幅（cm）に変更する Dim shp As Shape Dim dblCm As ...
Excel シート内の画像サイズをリサイズ（横幅指定）
Sub prcResizeAllImagesToSpecificCm() ' インプットボックスからの入力に基づいてシート内の全ての画像を特定のサイズ（cm）に変更する Dim shp As Shape Dim dblCm As Doubl...
Excel マクロ有効ブックをマクロなしブックとして同じブック名で同一階層に保存
' この処理はアクティブブックの全シート名を配列に格納し、新規ブックにまとめてコピーします。' その後、新規ブックをマクロなしのファイルとして保存します。Sub prcCopySheetsToNewWorkbookAndSave() Dim...
Excel 条件に基づき、指定範囲のセルの背景色を変更
Sub prcFillGreyIfConditionMet() ' 7行目に文字が入力されている場合に指定範囲のセルの背景色を塗りつぶす Const strRangeAddress As String = "F2:NG102" ' アドレス...
Excel 結合されていないセルの背景色をクリア
' 選択されたセル範囲から結合されていないセルの背景色をクリアする手続きです。Sub prcClearBackgroundColorOfNonMergedCells() Dim rngSelected As Range Dim rngCel...
Excel 条件に基づいてセル背景色を変更1
' 選択された範囲内で、5行目に文字が存在し、セルが結合されていない列のセルの背景色をグレーにします。Sub prcColorSelectedColumnsGreyIfTextInRow5AndNotMerged() Dim rngSele...
Excel 条件に基づきセルの背景色を塗りつぶす、またはクリアする
Sub prcFillOrClearGreyIfConditionMet() ' 条件に基づきセルの背景色を塗りつぶす、またはクリアする Const strRangeAddress As String = "F2:NG102" ' アドレス...
Excel セル内テキストのフォント色を途中で変更※セル内改行を考慮
' ----------------------------------------------------------------' 選択されたセル内のテキストに対し、フォント色を変更する処理'（「:」の前後でフォント色を変更 ※セル内改...
Excel 範囲内で特定文字が含まれるセルの個数をカウント（結合セルを考慮）
' fncCountSubstringOccurrences' この関数は指定されたExcel範囲内で特定の部分文字列が含まれるセルの数をカウントします。' 結合されたセルも個別のセルとしてカウントされます。' 引数:' rngSearch...