こんにちは。 本日はMarkdownをPDFに変換する方法です。 概要 方法1(fsモジュールを使用する) 方法2(fsモジュールを使用しない) まとめ 概要 Markdownファイルを指定してPDFに変換します。 本記事では2つの方法を記載します。 どちらの方法でもmarkdown-pdf…

こんにちは。 VBAでの配列のソート方法のメモです。 本記事では、4つの方法を記載します。 InsertionSort QuickSort SmallSort LargeSort まとめ InsertionSort 昇順でソートを行います。 引数は、以下です。 第1引数：対象の配列 第2引数：配列の最小要素数…

勉強用メモです。 本日は、トップディレクトリから 配下の全てのファイルとサイズを検索して テキストに出力するサンプルです。 勉強のため、非同期で行っています。 概要 サンプル まとめ 概要 サンプルは以下の関数で構成されています。 main メイン処理で…

こんにちは。 結構便利なのでメモです。 概要 サンプル まとめ 概要 指定したファイルで特定の文字が含まれている行を 抽出して新規のテキストに出力します。 サンプルでは、直接ファイル名・文字を指定して .txtに出力していますが、用途に応じてアレンジで…

こんにちは。 今回は、前回までの記事を参考に 指定した起点のフォルダ配下のすべての エクセルにヘッダーとページ番号を設定するサンプルです。 概要 ソース まとめ 概要 サンプルではマクロの置いてある場所を起点のパスとしています。 流れは以下。 スタ…

今回はシート内の画像の左トップセルを取得するサンプルです。 では、サンプルです。 Sub Main() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim sh As Shape Dim shCount As Long: shCount = ws.Shapes.count Dim shTopArr() As Long ReDim …

今回は、改ページなどがある場合に 印刷した際にトップになる行を取得するサンプルです。 では、サンプルです。 Sub Main() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim topRowArr() As Long ReDim topRowArr(0) ' 一行目を予め配列に入れ…

今回は、ブックのシート一覧を取得します。 では、さそくサンプルです。 Sub Main() Dim thisBk As Workbook Set thisBk = ThisWorkbook Dim thisWs As Worksheet Set thisWs = ThisWorkbook.Worksheets(1) Dim ws As Worksheet For Each ws In thisBk.Sheet…

今回は、指定のパス配下のエクセル一覧を取得します。 では、さそくサンプルです。 Sub Main() Dim thisWs As Worksheet Set ThisWs = ThisWorkbook.Worksheets(1) Dim path As String path = ThisWorkbook.path Dim buf As String buf = Dir(path & "\", vb…

こんにちは。 本日は、指定のパスの下にあるフォルダパスを取得するサンプルです。 下まで探しに行ってくれます。 では、サンプルです。 Option Explicit Private ThisWs As Worksheet Private ThisPath As String Private TaishoFolderArr() As String Sub …