VBA侍-SAMURAI

Sub prcRenameFilesWithFullPath() Dim fso As FileSystemObject Set fso = New FileSystemObject Dim strOldFullPath As String...

Sub prcOutputFullPathSimplified() ' A列のフォルダパス、B列のファイル名、C列の拡張子から、末尾のバックスラッシュが既にある前提でF列にフルパスを出力する Dim strFolderPath As Str...

Sub prcGenerateNewFilePaths() ' 指定されたシート上でファイル名変更後のフルパスをF列に出力する Dim strFolderPath As String ' フォルダパス Dim strFileName As ...

Sub prcListFilesInFolder() ' フォルダ選択ダイアログを表示し、選択されたフォルダのファイルをリストアップする Dim fso As FileSystemObject Set fso = New FileSyste...

Sub prcResizeAllImagesToSpecificHeightCm() ' インプットボックスからの入力に基づいてシート内の全ての画像を特定の縦幅（cm）に変更する Dim shp As Shape Dim dblCm As ...

Sub prcResizeAllImagesToSpecificCm() ' インプットボックスからの入力に基づいてシート内の全ての画像を特定のサイズ（cm）に変更する Dim shp As Shape Dim dblCm As Doubl...

' この処理はアクティブブックの全シート名を配列に格納し、新規ブックにまとめてコピーします。' その後、新規ブックをマクロなしのファイルとして保存します。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...