VBA侍-SAMURAI

Sub prcApplyAutoFilterAndColor() Dim ws As Worksheet Dim rng As Range Dim lastRow As Long Dim visibleCells As Range ' シー...

Sub prcCompareSheets() Dim wbkA As Workbook, wbkB As Workbook Dim shtA As Worksheet, shtB As Worksheet Dim rngCell As Ra...

Sub prcApplyFormulaWithCondition() ' 概要: D列が空白の場合にフィルタを適用し、条件に合致する可視セルのH列にユーザー定義関数を入力します。 ' H列に数式を入力する前に、表示形式を「数値」に変更し、2...

Sub prcFreezeTopRow()' ワークシートの先頭行を固定する処理' アクティブなワークシートを対象とするWith ActiveWindow ' 既存の固定を解除 .FreezePanes = False ' 先頭行を固定 ....

Sub prcApplyUDFToVisibleCellsAfterFilteringBlanksInDColumn() ' 変数宣言 Dim ws As Worksheet ' 処理対象のワークシート Dim rngVisible As ...

Sub prcApplyAutoFilterToExtractBlanksBasedOnBColumn() ' 変数宣言 Dim ws As Worksheet ' 処理対象のワークシート ' 処理対象のワークシートを設定 Set ws =...

Sub prcCheckValuesDynamicRangeAndSkipEmpty() ' 変数宣言 Dim lngLastRow As Long ' A列のデータ入力セル終端 Dim lngRow As Long ' 繰り返し処理で使用...

Sub prcMoveCsvFilesToBup() ' 概要: 指定されたフォルダ内のCSVファイルを、同一階層にある「bup」フォルダに移動します。 Dim fso As FileSystemObject Set fso = New F...

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

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