Get-ChildItemコマンドレットの結果をクリップボード経由でワークシートに貼り付けたほうが早いけど、Excel VBAを使用しての方法を考える。 # PowerShell 5.1, Windows 11 (2024年4月頃) $fileInfos = Get-ChildItem -File -Force -Recurse -Depth 1 -Litera…

VBA: WshShell.Exec PowerShell: WshShell.Exec PowerShell: ProcessStartInfo VBA: WshShell.Exec Excelマクロから簡単にPowerShellの出力結果を取得する方法を考える ' Excel 2019, Windows 11 (2024年4月頃) ' 参照設定 ' Windows Script Host Object Mod…

メモ Excel VBA での角括弧[ ]はExcel.Application.Evaluateメソッド PowerPoint VBA で角括弧[ ]を使用する場合は Microsoft Excel xx.x Object Library を参照設定 参考資料リンク Guidelines and examples of array formulas - Microsoft Support Refer t…

メモ FileInfo.DirectoryNameプロパティ相当のつもりで Convert-Path -LiteralPath $_.PSParentPath を使用 Group-Object でグループ化したオブジェクトを List<GroupInfo>.Sort で並べ替え 使い捨てマクロ ファイル名"PowerShell.exe"の検索順序は気にしない ' Excel 2</groupinfo>…

メモ 2次元配列を Range.Value2 に代入 Excel.Applicationの起動に時間がかかるので他の方法を考えたほうが良いかもしれない 使い捨てスクリプト エラー処理やCOMオブジェクトの解放を気にしていないので練習以外では実行しない # PowerShell 5.1, Excel 201…

メモ Excelシート例 使い捨てスクリプト 参考資料リンク 過去記事 メモ Sort-Objectコマンドレットでファイル名を並べ替えた場合の順位を併記 文字列を数式の一部として扱うことでExcelシートへの貼り付け時(G/標準)に文字列が変化しないようにした Excelシ…

ショートカットアイコンにドラッグ&ドロップされたファイルが入っているフォルダのファイル一覧をExcelシートに出力して保存する。 メモ Rename-Item -LiteralPath 'C:\tmp\[A-Z]\A[123].txt' -NewName 'B4.txt' 単一引用符を使うのでパスに ' が含まれる場…

従来通りカラーのDocuWorks文書を中間ファイルとして Adobe PDF プリンタで白黒印刷する。 PDF作成時の条件 他のファイル形式からPDFを作成するときは可能な限り Acrobat Standard (Adobe PDF プリンタ と Distiller も含む)を使用したい Acrobat Pro と PDF…

メモ 参考資料リンク 使い捨てスクリプト JavaScript IAC 過去記事 メモ 上位レベルのしおり(doc.bookmarkRoot.children)の名前を変更する 使い捨てJavaScript: しおりの名前を replace(RegExp, newSubstr) で置き換える 使い捨てVBA: セル選択範囲の文字列…

メモ 範囲C1:C5をコピーする A B C 1 val11 値0005 =CLEAN(B1) 2 val21 値004 =CLEAN(B2) 3 val31 値02 =CLEAN(B3) 4 val41 値1 =CLEAN(B4) 5 val51 値3 =CLEAN(B5) 使い捨てスクリプトの実行結果を貼り付ける A B C 1 val11 値0005 5 2 val21 値004 4 3 val…

余白の寸法が分かっている場合 用紙を折り曲げたときの余白を考慮する場合 余白の寸法を検討する場合 用紙の折り曲げを想定しない場合 Excelのユーザー定義関数。数式の式変形が面倒な場合は ゴール シーク で数値を見つける。 ' Excel 2019, Windows 11 ' …

メモ 用紙サイズを変更する方法の例 jso.setPageBoxes jso.newPage + jso.addWatermarkFromFile + AcroPDDoc.DeletePages 加工後のPDFに不都合な点は無いか十分に確認してください 参考資料リンク Using OLE — Acrobat-PDFL SDK: Interapplication Communica…

メモ 選択されたセルについて「無効なデータが入力されたらエラー メッセージを表示する」のチェックを外す 選択されたセルについて「無効なデータが入力されたときに表示するエラー メッセージ」の「スタイル」を「情報」に変更する 使い捨てマクロ ' Excel…

メモ Power Query関係でUIの日本語訳が分かりにくい場合はOfficeの表示言語を 英語[English] にすると分かりやすくなると思います 他の人が「ドキュメント検査」で情報を無条件に削除する可能性が高い場合は下記の点に留意が必要(Excel 2019) 「カスタムXML…

メモ 表形式の値を列形式にする 使い勝手はユーザー定義関数(配列数式)よりもマクロのほうが良い気がします 表形式 文字列11 文字列12 文字列13 文字列21 文字列22 文字列23 文字列31 文字列32 文字列33 列形式 値 行 列 文字列11 1 1 文字列12 1 2 文字列13…

個々のExcel文書を確認するため、一つ一つExcelファイルを開く作業が面倒である。外部参照(external reference)を使用して必要なセルだけを一括して取得できないかと考えたけど、職人芸のExcel文書に通用するわけがない。仮に便利な手段があれば、既に自然発…

目次 目次 使い捨てスクリプト 注釈でテキストボックスと長方形を追加 (AddNewAnnot) フラット化 (flattenPages) 過去記事 使い捨てスクリプト 注釈でテキストボックスと長方形を追加 (AddNewAnnot) PDFを開いたウィンドウを表示させた状態でマクロを実行し…

使い捨てマクロ セルのダブルクリックで文字☑をセルに挿入 セルの右クリックで文字☐をセルに挿入 Shapes.AddFormControl でワークシートに xlCheckBox を追加 ' Excel 2019, Windows 11 Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Targ…

メモ その場しのぎで紙面上の文書を平行移動させて余白を調整する場合に便利だと思います。 使い捨てスクリプト PDFを開いたウィンドウを表示させた状態でマクロを実行してください 図形に「マクロの登録」すると効率的に実行できます ' Excel 2019, Acrobat…

メモ AcroPDDoc.InsertPagesの練習 使い捨てスクリプト 表示中のPDFファイル(pdfPDDocActive)のページ順序を 12345 とする 保存されている別のPDFファイル(pdfPDDocSource)のページ順序を ABCDE とする pdfPDDocActive に pdfPDDocSource を差し込んで 1A2B3…

メモ CropBoxのサイズをExcelシートに表示して、印刷時の用紙選択ミス削減に役立てる。 使い捨てスクリプト PDFをタブに表示させた状態でマクロを実行してください ' Excel 2019, Acrobat Standard DC (2022年3月頃), Windows 11 ' 参照設定 ' Acrobat (Adob…

プロパティのアクション IAC VBA PowerShell %APPDATA%にあるフォルダに保存 参考資料リンク 過去記事 プロパティのアクション バージョンは Acrobat Standard DC (2022年2月頃)、Windows 11。 「JavaScriptを実行」で console.show(); を実行する しおりの…

メモ JavaScript デバッガーを表示するのにショートカットキーや しおり を使用してはいけない場合、OLEでJSObjectを経由して console.show() を行う方法を考える。 参考資料リンク Creating .NET and COM Objects New Object - PowerShell | Microsoft Docs…

メモ Excelセルの値を座標としてPowerPointスライドに描画する使い捨てマクロ。 選択されているExcelセル範囲 Excel.Application.ActiveWindow.RangeSelection 起動しているPowerPoint.Applicationの取得 VBA.Interaction.GetObject(Class:="PowerPoint.Appl…

メモ ファイル名"バインダー1_Part1.pdf"といった連番ファイルだけが入ったフォルダ内のファイル名をワークシートに書き出す使い捨てExcelマクロ。連番部分の抽出に便利。 ファイル名の文字列の分割に VBScript_RegExp_55.RegExp を使っているだけ。Excelマ…

Excel 2019, Windows 10フォント(英数字)は Cambria としてください。 「力率cos𝜃、3𝜙4W、位相差±120°、室温25°C、𝜔=2𝜋f、角度𝜑」\theta =DEC2HEX(UNICODE("𝜃")) 1D703 Cambria / 拡張文字 - レベル1 / Mathematical Italic Small Theta =DEC2HEX(UNICODE("θ…

以下の使い方の確認用の練習用マクロです。 PageSetup Range.Value Shape.TextFrame2.TextRange.Text ' Excel 2019 ' Windows 10 Option Explicit Public Sub Main() Dim app As Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Dim …

メモ 同じフォルダ内にある大量のファイルに対して、ある程度の融通を利かせてリネームしたい場合に便利かもしれません。Excelでマクロを使うよりも、PowerShellの実行結果をExcelシートに貼り付けて加工するほうが作業的に早い気もします。 使い捨てマクロ …

メモ 下記の動作を行うPowerShellスクリプトです。 Get-ChildItemのBaseName、Extension、NameプロパティをExcelシートに書き出す ExcelシートでRename-Itemの文字列を生成する セキュリティソフトによっては、日本語のファイル名を対象に多くのRename-Item…