Excel

Excel

指定されたフォルダ内のPDFファイルの個数をカウントする(サブフォルダ含む)

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

オートフィルタを設定、特定キーワードで抽出

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

指定フォルダ内(サブフォルダ含む)のPDFファイル名を取得、シートAのセルA1から行方向に出力し、ファイル名順に並び替える

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

ブック内の全シート差分検証

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

定されたフォルダ内のPDFファイルの個数をカウントする(サブフォルダ含む)

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

選択されたセル範囲内の全セルのインデントを解除する

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

シートAから文字を読み取り、シートBに存在しない一意の文字リストを追加する

Sub prcAppendUniqueNames() ' 機能概要: シートAから文字を読み取り、シートBにまだ存在しない一意の文字を追記する Dim rngSource As Range Dim rngCell As Range Dim ...
Excel

サブフォルダ内ファイルコピー

Sub prcPDFファイルをコピーする() ' 機能概要: フォルダAのサブフォルダ内のPDFをフォルダBにコピーする ' 留意点: サブフォルダのみ対象、フォルダA直下は対象外 ' 変数宣言 Dim fso As Object ' ファ...
Excel

入力されているRGB値でそのセルの背景色をセット

Sub prcSetCellBackgroundColor() ' 機能概要: セルに入力されているRGB値でそのセルの背景色をセットする ' 留意点: RGB値はカンマ区切りの文字列として入力されている必要がある Dim strCellA...
Excel

RGB取得

' 標準モジュールに追加 Declare PtrSafe Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long Declare PtrSafe Func...