Excelシートにある表をマークダウン形式に変換するPerplexityと一緒に作ったマクロ

2024年9月17日 23:48

この説明は、ChatGPTで作成しています。

このマクロは、Perplexityと一緒に作成しました。
選択したモデルは「デフォルト」です。

このプロシージャは、Excel シート上にある表を マークダウン形式 に変換し、結果をクリップボードにコピーするものです。マークダウン形式とは、ウェブページなどでよく使われるシンプルなテキスト形式で、特に テーブル（表） を簡単に記述できる方法です。このマクロを使うと、Excelの表を自動的にマークダウン形式に変換し、すぐに使える状態にしてくれます。

処理の流れ

テーブルのカラム数を取得
- 最初に、シートの中で使われている範囲（UsedRange）を取得し、その範囲から列の数を確認します。この列の数は、後でマークダウンテーブルを作成するときに使います。
ヘッダー行の作成
- 1行目にあるデータ（通常は表の項目名）を使って、マークダウン形式の表のヘッダーを作成します。マークダウンでは、各項目の間を `|` で区切ります。
区切り線の作成
- マークダウンでは、ヘッダーとデータ行の間に「区切り線」を入れる必要があります。`-------- |` という形式で、各列の下に線を引きます。
データ行の処理
- 2行目以降のデータを、1つずつマークダウン形式で整えていきます。各セルの内容を `|` で区切り、セルの中に改行がある場合は、それを `<br>` というタグに置き換えて出力します。
結果のクリップボードへのコピー
- 最後に、生成されたマークダウン形式のテーブルをクリップボードにコピーします。コピーが完了したら、ユーザーにメッセージボックスで通知します。

ポイント

マクロを実行すると、現在選択しているシート内の表がマークダウン形式に変換され、その結果が自動的にクリップボードにコピーされます。これで、すぐに他のドキュメントやウェブページに貼り付けることができます。

Sub Excelシートにある表をマークダウン形式に変換するPerplexity()
    Dim ws As Worksheet
    Dim rng As Range
    Dim row As Range
    Dim cell As Range
    Dim mdTable As String
    Dim i As Long
    Dim j As Long
    Dim numCols As Long
    
    Set ws = ActiveSheet
    Set rng = ws.UsedRange
    numCols = rng.Columns.count ' テーブルのカラム数を取得
    
    ' マークダウンテーブルのヘッダーを作成
    mdTable = "| "
    For j = 1 To numCols
        mdTable = mdTable & rng.Cells(1, j).Value & " | "
    Next j
    mdTable = mdTable & vbNewLine & "| "
    
    ' 区切り線を作成
    For j = 1 To numCols
        mdTable = mdTable & "-------- | "
    Next j
    mdTable = mdTable & vbNewLine
    
    ' データ行を処理
    For i = 2 To rng.Rows.count ' 2行目からスタート（1行目はヘッダー）
        Set row = rng.Rows(i)
        mdTable = mdTable & "| "
        
        ' 各列のデータを処理
        For j = 1 To numCols
            ' すべての列で改行を<br>に置換
            Dim content As String
            content = Replace(row.Cells(j).Value, vbNewLine, "<br>")
            mdTable = mdTable & content & " | "
        Next j
        
        mdTable = mdTable & vbNewLine
    Next i
    
    ' 結果をクリップボードにコピー
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText mdTable
        .PutInClipboard
    End With
    
    MsgBox "マークダウン形式のテーブルがクリップボードにコピーされました。", vbInformation
End Sub

Excel VBAについて詳しく知りたい場合は、こちらのリファレンスをご覧ください。

Excel VBA　リファレンス | Microsoft Learn

この記事のYouTube動画はこちら

この記事のYouTube動画はこちら

英訳

Excelシートにある表をマークダウン形式に変換するPerplexity2

This explanation is created using ChatGPT.

This procedure converts a table on an Excel sheet into Markdown format and copies the result to the clipboard. Markdown is a simple text format widely used for writing web pages and especially useful for representing tables. With this macro, you can automatically convert an Excel table to Markdown format, making it ready to use immediately.

Process Flow

Getting the Number of Columns
- First, the macro gets the range used in the sheet (UsedRange), and from this range, it determines the number of columns. This number will be used later when creating the Markdown table.
Creating the Header Row
- It takes the data in the first row (usually the column headers) and creates the header row of the Markdown table. In Markdown, each item is separated by `|`.
Creating the Divider Line
- In Markdown, a divider line is needed between the header and the data rows. This is represented as `-------- |` for each column.
Processing Data Rows
- From the second row onwards, it processes the data one by one and formats it in Markdown. Each cell's content is separated by `|`, and if there is any line break inside the cell, it is replaced with a `<br>` tag.
Copying the Result to Clipboard
- Finally, the generated Markdown table is copied to the clipboard, and a message box is displayed to inform the user that the table has been successfully copied.

Key Points

When you run this macro, the table on the currently selected sheet is converted into Markdown format, and the result is automatically copied to the clipboard. You can immediately paste it into a document or web page.

For more details on Excel VBA, you can check the official reference here:

Excel VBA Reference | Microsoft Learn

Watch the YouTube video for this article here:

Watch the YouTube video here

Related Keywords

#excel #whatyoucando #vba #markdown #tableconversion #clipboardcopy #automation #beginnersprogramming #sheetoperation #headercreation #dividerline #dataprocessing #tableformatconversion #tablecreation #markdownformat #webdocument #celloperation #macrocreation #vbausage #tablecopy

この記事が気に入ったらサポートをしてみませんか？