Excel RGB取得
' 標準モジュールに追加Declare PtrSafe Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As LongDeclare PtrSafe Functi...
VBA侍-SAMURAI
Excel 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...
共通 フォルダ内の全サブフォルダを削除
' ----------------------------------------------------------------' 機能概要: 指定したフォルダ内の全フォルダを削除' --------------------------...
Excel シート内の全てのシェイプに対して、セルに合わせて移動するがサイズ変更はしない
' 機能概要: シート内の全てのシェイプに対して、セルに合わせて移動するがサイズ変更はしない設定を行うSub prc設定シェイププロパティ() ' 変数宣言 Dim wsTarget As Worksheet ' 対象となるワークシート D...
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 '対象...