共通 フォルダ内のファイルと同じ名前のテキストファイルを別フォルダに作成
このVBAコードは、指定されたフォルダA内の全ファイル名を取得し、それと同名のテキストファイルを別のフォルダBに自動生成します。フォルダAとBは同一階層に配置する必要があります。コード内には、各変数と処理の詳細コメントも記載しています。
VBA侍-SAMURAI
共通 Excel フォルダAにテキストファイルを10個作成
指定されたフォルダ内にランダムな名前のテキストファイルを例えば10個自動作成します。Excelの自ブックがあるフォルダに保存しています。VBAにおけるファイル操作のサンプルとして作成してみました。
共通 選択フォルダ内のファイル一覧をテーブルに格納
Sub prc選択フォルダ内のファイル一覧をテーブルに格納() Dim fdlg As FileDialog ' ファイルダイアログ Dim strFolderPath As String ' 選択されたフォルダのパス Dim objFSO...
共通 指定したフォルダ内の全ファイルを削除
Sub Prc指定フォルダ内の全ファイル削除() Dim strFolderPath As String ' 削除対象のフォルダパス Dim objFSO As FileSystemObject ' ファイルシステムオブジェクト Dim o...
共通 フォルダ内の全サブフォルダを削除
' ---------------------------------------------------------------- ' 機能概要: 指定したフォルダ内の全フォルダを削除 ' ------------------------...
Excel シート内の全てのシェイプに対して、セルに合わせて移動するがサイズ変更はしない
' 機能概要: シート内の全てのシェイプに対して、セルに合わせて移動するがサイズ変更はしない設定を行う Sub prc設定シェイププロパティ() ' 変数宣言 Dim wsTarget As Worksheet ' 対象となるワークシート ...
Excel 指定された範囲内の色付きセルの数をカウント
Function fncCountColoredCells(rngTarget As Range, Optional lngColor As Long = -1) As Long Dim rngCell As Range '対象となるセルを...
Excel 指定された範囲内の色付きセルの数をカウント（結合セル対応版）
Function fncCountColoredMergedCells(rngTarget As Range, Optional lngColor As Long = -1) As Long Dim rngCell As Range '対象...
未分類 コーディングルール
現時点でのコーディングルールです。あくまでも個人的なものなのでお許しを・・・🙇 変数のプレフィックス: 変数の先頭3文字は文字列型を示すプレフィックスを付ける（例：str, lng, dbl）。賛否あるけど、型が直感的にわかるのは大きなメ...
Excel 指定フォルダ内にテキストファイルをｎ個作成
' ---------------------------------------------------------------- ' 機能概要: 指定したフォルダ内にテキストファイルを10個作成する ' ----------------...