VBA侍-SAMURAI

Sub StoreFilesToTableA() Dim fso As FileSystemObject Dim folder As folder Dim file As file Dim db As DAO.Database Dim rs...

' 機能概要: ワークブックAのSheet1を新規ブックにコピーし、フォントと配色を変更後、保存する' 引数: なし' 備考: 保存先のフォルダ、ワークブックAの名前、テーマファイルのパスは適宜変更Sub CopySheetAndForma...

Sub CopyFilesToFolderB() ' 機能概要: Sheet1のA列にあるファイルのフルパスを読み取り、フォルダBにコピーする ' 引数: なし ' 備考: フォルダBのパスは適宜変更 Dim ws As Worksheet...

'--------------------------------------------------'機能概要：指定フォルダ（サブフォルダ含む）内の全PDFファイル名とフルパスを取得'---------------------------...

Function CountPDFFiles(strFolderPath As String) As Long ' 機能概要: 指定されたフォルダ内のPDFファイルの個数をカウントする（サブフォルダ含む） ' 引数: strFolderPa...

Sub prcFilterForContinuation() ' 機能概要: シートAのA列にオートフィルタを設定し、「●」という文字が含まれるセルを表示 ' 引数: なし ' 備考: フィルタの基準は「続」を含む Dim ws As Wo...

Sub prcOutputPDFNamesAndSort() ' 機能概要: 指定フォルダ内（サブフォルダ含む）のPDFファイル名を取得し、 ' シートAのセルA1から行方向に出力し、ファイル名順に並び替える ' 引数: なし ' 備考: ...

二つのワークブック内の全てのシートを比較し、異なるセルの値、数式、表示形式、フォントの属性、セル背景色、罫線の情報をイミディエイトウィンドウに出力Sub prcCompareAllSheetsWithFormat() ' 機能概要: 二つの...

' 機能概要: 指定されたフォルダ内のPDFファイルの個数をカウントする（サブフォルダ含む）' 引数: strFolderPath - フォルダのパス' 戻り値: PDFファイルの個数Function fncCountPDFs(strFol...

Sub prcRemoveIndentFromSelection() ' 機能概要: 選択されたセル範囲内の全セルのインデントを解除する ' 引数: なし ' 備考: 選択された範囲内のセルにのみ適用 Dim rngCell As Rang...