指定セルにデータが入っているか MsgBox ni指定セルに値が入っているか(ActiveSheet, "B2:C2,D4:D5") ' ' 機能 : 指定のセルにデータが入っているか確認します。 ' ' 返り値 : TRUE 文字が入力されている。 ' FALSE 空白（LEN(0)の文字列） ' ' 引き数 : ByR…

ワークシートを複数したい場合に、配列でセレクトってRedimし直しで煩雑なコードになりませんか？ 今回は、コレクションを利用してシンプルなコードで指定できるようにしました！サンプル 「Sheet1とSheet3とSheet5を選択する。」 Sub test() Dim cllTemp As…

EXCELシートにデータ貼り付け後 下記のソースコードをマクロのワークシートにコピーします。 Option Explicit 'セルをダブルクリックした時に、データをクリップボードにコピーする。 ' ' version 2022/8/21 ' URL https://pgbigoroku.hatenablog.com/entry/…

印刷プレビューをVBAで組むと、キーボードのCtrl+Pの画面と違いませんか？ 印刷が切れちゃったりして大変です(~_~;) おそらく、「ActiveWorkbook.PrintPreview」を使っているので、違う画面が出ています 一度 Application.CommandBars.ExecuteMso ("PrintPre…

コピペするときにコントロールCとコントロールVで指が吊りませんか？ EXCELのショートカットキーを登録すると、ボタン一つでコピー ペーストが可能です。 わたしはPERSONAL.XLSBに登録して、全ワークブックに適応してます。EXCEL起動時 Application.OnKey "{…

セル上の文字列や、VBAで処理している文字をクリップボードにコピーしたい事はありませんか？ このソースコードを使えば、文字列をクリップボードへコピーできます。【参考】 クリップボードから値を取り出すには、下記のメソッドを利用します。 .GetFromCli…

サンプル【全シートを改ページプレビューにする。】 Sub Macro1() '全シートを改ページプレビューにする。 Call msub全シートのアクティブセルを一番上に(ActiveWorkbook, xlPageBreakPreview) End Sub サンプル【全シートを改ページプレビューにする。】 Su…

サンプル Sub Macro1() Call msub全シートのアクティブセルを一番上に(ActiveWorkbook) End Sub ソースコード ' 指定ブックについて全シートの選択セルの位置を左上に移動する。 ' '引数 ByVal wkbTarget As Workbook 対象ブック ' 'URL https://pgbigoroku.…

マクロの実行速度を「描画処理の停止」および「EXCEL自動計算の停止」により高速化します。デバッグ時などで異常終了した場合は、「強制復帰」の関数をイミディエイト画面で実行してください。サンプル mdl高速化.高速化開始 (True) mdl高速化.高速化終了 ソ…

サンプル Public Sub sample() Dim wkb As Workbook Set wkb = nwkbブックファイルをファイルを開くから指定("すべてのファイル,*.*") If wkb Is Nothing Then Call MsgBox("ファイルを開けられません") Else Call MsgBox(wkb.Name) End If End Sub ソースコ…

サンプル Debug.Print nblnファイル存在確認フォルダファイル別("C:\", "install.ini") 'TRUE Debug.Print nblnファイル存在確認フォルダファイル別("C:\Program Files\df141\", "DF.exe") 'TRUE Debug.Print nblnファイル存在確認フォルダファイル別("C:\Pr…

エクセルファイルをコピー後に開けると、ファイル起動時に「セキュリティに影響を及ぼす可能性のある問題点が検知されました」を表示するようになりました。( 一一)セキュリティに影響を及ぼす可能性のある問題点が検知されましたとりあえず毎回「マクロを有…

サンプルコード Public Sub sample() Dim cPDFcombination As New clsPDFcombination cPDFcombination.PDF結合ツールフルパス = "C:\Program Files\poppler-0.68.0\bin\pdfunite.exe" cPDFcombination.結合するPDFファイル名.Add "1.pdf" cPDFcombination.結…

'オブジェクト名は「clsLstTxt」にしてください。 ' ' クラス機能 : テキストのリスト機能(ADD,REMOVEの機能) ' 'プロパティ ' - '関数 ' 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/18/001621 '2022/8/17 Option Explicit '簡易テキストリスト …

実行ファイルを指定フォルダで起動するクラス。クラスの取り込み方は、 pgbigoroku.hatenablog.com を参照してください。サンプル。ファイル名を指定して、ファイルへ書き込み、読み込みを行う。 Sub sample() Dim cShell As New clsShell Debug.Print cShel…

Windowsのコマンドプロンプト （ショートカット「Windows」+「R」でファイル名を指定して実行→「CMD」実行で開く黒い画面） からアプリを起動しようと思っても、画面が動かず、プロセスにもあらずハマりました(〃艸〃)ﾑﾌｯ start "Shell" "[起動したいアプリ…

ファイルの入出力を変数のように容易に行うクラス。イメージ クラスの取り込み方は、 pgbigoroku.hatenablog.com を参照してください。サンプル。ファイル名を指定して、ファイルへ書き込み、読み込みを行う。 Public Sub sample() Dim cTxtFile As New clsT…

当ブログのクラスモジュールをEXCEL VBAに取り込む方法です。 前段階、VBAを編集する画面。（EXCELのワークシート画面でショートカットキー「Alt」+「F11」を押したときの画面）を表示する。①対象EXCELファイルのプロジェクト内のフォルダ「Microsoft Excel …

一時ファイルを作るときに、利用されていないファイル名を探すことはありませんか？ このプログラムは、指定フォルダ内で利用されていないファイル名を探します。イメージ図 Debug.Print nstr利用していないファイル名を取得("c:\", "bat") 'c:\2022_08_17_1…

' 機能 : フォルダ名とファイル名からフルパスにする ' ' 返り値 : - ' ' 引き数 : ByVal pstrフォルダ名 As String ' ByVal pstrファイル名 As String ' 機能説明 : フォルダ名の最後に\をついているか判定し - ' フルパスにする。 ' ' 備考 : - ' ' この関…

' ' Windowsが提供しているTEMPフォルダを取得する 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/17/090550 '参考URL https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/getspecialfolder-method '2022/8/17 P…

サンプル Debug.Print nblnファイル存在確認("C:\install.ini") 'TRUE Debug.Print nblnファイル存在確認("C:\Program Files\df141\DF.exe") 'TRUE Debug.Print nblnファイル存在確認("C:\Program Files\df141\df.exe") 'TRUE Debug.Print nblnファイル存在…

サンプルプログラム Sub Sample() Debug.Print nblnフォルダの存在確認("C:\") 'true Debug.Print nblnフォルダの存在確認("C:\Program Files") 'true Debug.Print nblnフォルダの存在確認("C:\Program Files\") 'true Debug.Print nblnフォルダの存在確認("…

利用例 Debug.Print nstrフォルダ名を取得Fromフルパス("c:\") 'c:\ Debug.Print nstrフォルダ名を取得Fromフルパス("c:\aaa.txt") 'c:\ Debug.Print nstrフォルダ名を取得Fromフルパス("c:\aaa\") 'c:\aaa Debug.Print nstrフォルダ名を取得Fromフルパス("c…

PDFファイルを結合する時に、毎回アプリを開くのは面倒じゃないですか？ フリーのツールだけを使いWindowsコマンドプロンプトで、PDFファイルを簡単に結合できます。手順 ①7-ZIPをダウンロード・インストールする。（ダウンロードしていない場合） sevenzip.…

Option Explicit 'ディクショナリーただそれだけ '(tagもitemもString型のみ) ' '作成中 2022/8/14 Dim pdic As Object Private Sub Class_Initialize() Set pdic = CreateObject("Scripting.Dictionary") End Sub Public Function Add(ByVal pstrTag As Str…

イメージ サンプル Public Sub sample() Call nipsubClear2(Worksheets("Sheet1"), 6, 3, 8, 5, True, True) End Sub ソースコード ' シートの情報を初期化する。2 ' ' ByRef wksTarger As Worksheet 初期化するシートオブジェクト ' Optional ByVal plngSta…

'現在開いているブック名をコンボボックスに入れる ' 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/15/100724 '必要関数URL https://pgbigoroku.hatenablog.com/entry/2022/08/15/100527 'Ver.2022.8.15 Public Sub nipsub現在開いているブック名…

'コンボボックスに指定リストがあるか ' 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/15/100527 'Ver.2022.8.15 Public Function nipblnコンボボックスに指定リストがあるか(ByRef pcmb代入先 As ComboBox, _ ByVal pstr検索文字 As String) As B…

' ' 指定のブック名を開いているか確認する。 ' 'バージョン 2022.8.15 Private Function nipbln指定のブック名を開いているか確認する(ByVal pstr検索ブック As String) As Boolean Dim obj As Workbook For Each obj In Workbooks If obj.Name = pstr検索…