サンプル【全シートを改ページプレビューにする。】 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高速化.高速化終了 ソ…

スマホの画面と音声をパソコンの大きな画面で見たいと思ったことはありませんか？スマホとパソコンをお持ちで、無線LAN環境があれば簡単にできます！操作は スマホ側に、AppleStoreまたはPlayストアから「LetsView」を検索してインストール パソコン側には、…

サンプル 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 '簡易テキストリスト …