Sub a() Debug.Print nstrGetFileName("c:\AA.pdf") End Sub ' ファイル名から拡張子を抜いた文字を取得する ' ' ' 引数：ファイル名 ' 戻り値；ファイル名 ' フォルダ名は削除 ' 拡張子は削除 ' https://pgbigoroku.hatenablog.com/entry/2022/12/03/220510…

Sub a() Call nsubWordToPDF("D:\TEMP\テスト.doc", "D:\TEMP\テスト.pdf") End Sub 'WordファイルををPDFへ変換 ' 引数：pstrInputWordPath 変換前のWORDファイル名（フルパス） ' pstrOutputPDFPath 出力のPOFファイル名（フルパス） 'https://pgbigoroku.…

' ' 指定行を削除する ' ' ' 引数：pwksTarget 対象シート ' pintLineNo 削除する行番号 ' pblnEndLineNo (省略可)複数行削除する場合、最終行 ' 戻り値：追加した行番号 ' https://pgbigoroku.hatenablog.com/entry/2022/12/03/181917 ' バージョン 2022/12…

' ' 新しい行を指定行の下に追加後、指定行のデータをコピーする。 ' ' ' 引数：pwksTarget 挿入するシート ' pintLineNo コピーする行番号 ' 戻り値：追加した行番号 ' https://pgbigoroku.hatenablog.com/entry/2022/12/03/013417 ' バージョン 2022/12/3 …

' ' ファイル名から拡張子を取得する ' ' ' 引数：ファイル名 ' 戻り値；拡張子 ' 小文字で返す ' 拡張子が無い場合はLen(0)の文字列を返す ' https://pgbigoroku.hatenablog.com/entry/2022/12/03/011813 '2022/12/1 Private Function nstrGetExtension(ByV…

列の幅を別シートにコピーするサンプルプログラムです。 Sub test() Call nsub列の幅を別シートにコピーする｡(Workbooks("Book1.xlsm").Worksheets("Sheet1"), Workbooks("Book2.xlsm").Worksheets("Sheet1"), 2, 8) End Sub ' 列の幅を別シートにコピーする…

おはようございます！なぜか、突然エクセルのマクロ（正確にはシート上に張ったACTICEX）が動かなくなりました治りましたので手順を ①Windows Update（わたしはWindows１０です） ②Office Update Excelを起動（Windowsキーを押しながらRボタンを押す、excel…

XLOOKUPやVLOOKUPを利用するときに、文字列と数値が混在して、上手く情報を取り出せない事はありませんか？ このマクロは、セルを選択した後「nsub選択セルのデータを強制的に文字列化する」を実行すると すべて文字列にします。 ' ' 選択セルのデータを強制…

インスタンス名を取得 gcloud compute images list接続 gcloud compute ssh <インスタンス名>> ネットワーク関連のコマンド nmcli device show <|| >|| nmcli connection show

個人的にWindowsに入れているアプリです。・PowerToys マウスの場所を探したり、画面分割したり便利！ github.com ・LetsView Androidの画面共有 ・TeraTerm ターミナル操作 ・7-ZIP 解凍 ・PacketiX VPN VPNソフト ・Diffuse DF ・PowerShell ターミナル ・…

Addressで返すオブジェクト（Selectなどなど）が、A1などの形式で、R1C1形式で取得するの難しくありませんか？ 特に複数範囲選択されていると、目が回ります。 そんなときに、このclsRangeを利用すると、Address値を入れるだけで、R1C1形式での取得や、選択…

コレクションの中に入れた文字列をすべて結合して出したいときはありませんか？ 例えば、コレクションに Item（１）わたしは Item（２）ユニバに Item（３）いきたいです。 という内容を入れていた場合に テキストで わたしは ユニバに いきたいです。 とい…

コレクションのアイテムを削除したいときってありませんか？ コレクションは全アイテムの削除機能が内容ですので、 関数を作りました。※ディクショナリは全削除が用意されいます。 Public Sub test2() Dim cll As New Collection cll.Add "AAA" Debug.Print …

Public Sub test() Debug.Print pstrA1形式FromR1C1形式(1, 2, 3, 4) '$B$1:$D$3 End Sub ' ' セルの場所指定をA1の文字列形式で取得する。 'https://pgbigoroku.hatenablog.com/entry/2022/08/25/001634 '2021/8/23 Private Function nistrA1形式FromR1C1形…

マクロを組むとき列番号の把握をしやすいよう、シートの１行目に列番号を記入します。 既に値が入ったセルには書き込みません。 Public Sub test() Call nisub列番号を1行目に挿入 End Sub ' ' 1行目に列番号を入れる。 'https://pgbigoroku.hatenablog.com/…

F12を押した場所に貼り付けます。 Application.OnKey "{F12}", "subFromClipbord" ' ' クリップボードからセルにPaste時に「実行時エラー1004：この操作は結合したセルには行えません。」を回避する 'https://pgbigoroku.hatenablog.com/entry/2022/08/23/17…

If nirngSelectionの1つ目のセル.MergeArea.Address = Selection.Address Then '選択したセルすべてが結合セルの１つの場合 End If ' Selectionの1つ目のセル ' https://blog.hatena.ne.jp/nakairo/pgbigoroku.hatenablog.com/edit ' 2021/8/21 Public Funct…

Debug.print=nistr文字列検索をして1つ目の区切り位置までの値を取得(strSelection, ",") ' 文字列検索をして1つ目の区切り位置までの値を取得 'https://pgbigoroku.hatenablog.com/entry/2022/08/23/161312 ' 2021/8/21 Public Function nistr文字列検索を…

オートフィルターにデータが隠れていて、再度確認した事ないですか？ このマクロは、開いているブックのすべてのシートのオートフィルターを解除します！ Sub psn全シートのオートフィルタ―の絞り込みを辞める() '全シートを標準ビューにする。 Call msub全…

指定セルにデータが入っているか 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 "{…

人から貰ったファイルで罫線などが引けない事ありませんか？1⃣【テーブルとして書式設定】とい機能で罫線や背景色を変更できないようにしている可能性があります。 ①変更できないセルを右クリック ②「テーブル」を選択（「テーブル」を表示しない場合は、2⃣…

インストールのままでは不便なので、解決するページ紹介です。・EXCELでF1を間違って押したらヘルプ画面が出て邪魔 下記のサイトでF1キーを無効にする方法が丁寧に記載されています。 forest.watch.impress.co.jp

覚えているとちょっと便利なEXCELショートカットキーです。【入力関係】 「Ctrl」+「;」（セミコロン） 日付入力 「Ctrl」+「D」 上にある値をコピーして、今のセルに入れる。 「Ctrl」+「R」 左にある値をコピペする、今のセルに入れる。【見た目関係】 「C…

セル上の文字列や、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.…