Excel シートAから文字を読み取り、シートBに存在しない一意の文字リストを追加する
Sub prcAppendUniqueNames() ' 機能概要: シートAから文字を読み取り、シートBにまだ存在しない一意の文字を追記する Dim rngSource As Range Dim rngCell As Range Dim ...
VBA侍-SAMURAI
Excel 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 LongDeclare PtrSafe Functi...
Word WordVBA-各行の先頭にハイフン追加
Sub prc各行の先頭にハイフン追加() ' 機能概要: Wordの文章の各行の先頭に「-」を追記し、処理中の行番号をステータスバーに表示する ' 留意点: 文章が空の場合、追記は行われない Dim rngLine As Range ' ...
共通 フォルダ内のファイルと同じ名前のテキストファイルを別フォルダに作成
このVBAコードは、指定されたフォルダA内の全ファイル名を取得し、それと同名のテキストファイルを別のフォルダBに自動生成します。フォルダAとBは同一階層に配置する必要があります。コード内には、各変数と処理の詳細コメントも記載しています。
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...
共通 フォルダ内の全サブフォルダを削除
' ----------------------------------------------------------------' 機能概要: 指定したフォルダ内の全フォルダを削除' --------------------------...