Excel

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

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

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

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

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

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

指定されたフォルダ内にランダムな名前のテキストファイルを例えば10個自動作成します。Excelの自ブックがあるフォルダに保存しています。VBAにおけるファイル操作のサンプルとして作成してみました。

' 機能概要: シート内の全てのシェイプに対して、セルに合わせて移動するがサイズ変更はしない設定を行うSub prc設定シェイププロパティ() ' 変数宣言 Dim wsTarget As Worksheet ' 対象となるワークシート D...

Function fncCountColoredCells(rngTarget As Range, Optional lngColor As Long = -1) As Long Dim rngCell As Range '対象となるセルを...

Function fncCountColoredMergedCells(rngTarget As Range, Optional lngColor As Long = -1) As Long Dim rngCell As Range '対象...