2022-08-01から1ヶ月間の記事一覧
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(1)わたしは Item(2)ユニバに Item(3)いきたいです。 という内容を入れていた場合に テキストで わたしは ユニバに いきたいです。 とい…
コレクションのアイテムを削除したいときってありませんか? コレクションは全アイテムの削除機能が内容ですので、 関数を作りました。※ディクショナリは全削除が用意されいます。 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形…
マクロを組むとき列番号の把握をしやすいよう、シートの1行目に列番号を記入します。 既に値が入ったセルには書き込みません。 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 '選択したセルすべてが結合セルの1つの場合 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.…
マクロの実行速度を「描画処理の停止」および「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 '簡易テキストリスト …