VBA侍-SAMURAI

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...

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 ...