マクロの実行速度を「描画処理の停止」および「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 '簡易テキストリスト …

実行ファイルを指定フォルダで起動するクラス。クラスの取り込み方は、 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検索…

' ' 列の番号をA～Zの記号にする ' 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/14/230217 '2022/8/15 Private Function pstr列アルファベットFrom列番号(ByVal plng列番号 As Long) As String Dim str1 As String '1文字目 Dim int1 As Integer …

'シートの中の部分表の幅をコピーする ' ' ' ByRef pshtFrom As Worksheet ' ByVal plngFromStartRow As Long ' ByVal pintFromStartCol As Integer ' ByVal plngFromStartRow As Long 0なら最終行 ' ByVal pintFromEndCol As Integer ' ByVal pshtTo As Wor…

'シート全体の最終行を取得 ' '引数 ' ByRef sht対象 As Worksheet 対象のシート 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/14/140613 ' 'バージョン 2022/8/14 Public Function niplngシート全体の最終行を取得(ByRef sht対象 As Worksheet) A…

'複数データがある場合に複数行に記入する ' '参考 ' Call psubシートの中の部分表の値を並び替え(shtTarget, 11, 3, 0, 11, 3) ' '2022/8/13 Private Sub psub複数データがある場合に複数行に記入する(ByRef shtTarget As Worksheet, _ ByVal plng対象Row A…

'シートの中の部分表の値を並び替え ' '必要関数URL https://pgbigoroku.hatenablog.com/entry/2022/08/13/155625 Private Sub psubシートの中の部分表の値を並び替え(ByRef shtTarget As Worksheet, _ ByVal plng並替開始Row As Long, _ ByVal pint並替開始…

'シートの中の部分表の値をコピーする。 ' ' ' ByRef pshtFrom As Worksheet ' ByVal plngFromStartRow As Long ' ByVal pintFromStartCol As Integer ' ByVal plngFromStartRow As Long 0なら最終行 ' ByVal pintFromEndCol As Integer ' ByVal pshtTo As W…

'最終行を取得する ' 'Optional ByVal pintCol As Integer 最終行を検索する列番号を指定する。 ' '利用例 ' lngGetLastRow = plngGetLastRow(ActiveSheet, 5) 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/13/155625 '2022/8/13-3 Private Functi…