VBA100本ノック 94本目：表範囲からHTMLのtableタグを作成

公開日：2021-02-23　最終更新日：2021-02-24

VBA100本ノック 94本目：表範囲からHTMLのtableタグを作成

指定セル範囲の表をHTMLの<table>に変換するFunctionを作成する問題です。

ツイッター連動企画です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。

VBAテスト用のサンプルデータは、VBA100本ノックの目次ページ からもダウンロードできます。

マクロVBAを初心者向けの基本から上級者向けの高度な内容までサンプルコードを掲載し解説しています。エクセル関数・機能・基本操作の入門解説からマクロVBAまでエクセル全般を網羅しています。

出題

#VBA100本ノック 94本目
表をHTMLの<table>に変換するFunctionを作成。
引数(セル範囲,見出行数)でHTMLで返す。
見出行数：>=1は指定行数を<thead>で出力。
セル結合：<td colspan="2" rowspan="2">等々
空白セル：" "を出力
※出力サンプルを参考に
※文字位置は不要、インデントは任意

サンプルファイルです。
https://excel-ubara.com/vba100sample/VBA100_94.xlsm
https://excel-ubara.com/vba100sample/VBA100_94.zip

VBA作成タイム

この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。

他の人の回答および解説を見て、書いたVBAを見直してみましょう。

頂いた回答

出題ツイートの引用ツイートでの回答

解説

セル結合は今まで何問か出ているので扱いは問題ないと思います。
セル結合の先頭セルで結合範囲を判定してrowspan、colspanを指定し、結合された他のセルはスキップする部分で工夫が必要になります。
ここだけ意識してVBAを書けは他は流れに沿って記述すれば完成すると思います。


  
    
      Function VBA100_94_01(ByVal aRng As Range, Optional ByVal aHeader As Long = 0)

　　Dim sHtml As String, thtd As String

　　Dim i As Long, j As Long, mRow As Long, mCol As Long

　　

　　sHtml = Concat("<table border=""1"">", vbCrLf)

　　sHtml = Concat(sHtml, Indent(1), IIf(aHeader > 0, "<thead>", "<tbody>"), vbCrLf)

　　thtd = IIf(aHeader > 0, "th", "td")

　　

      　　For i = 1 To aRng.Rows.Count

　　　　sHtml = Concat(sHtml, Indent(2), "<tr>", vbCrLf)

　　　　For j = 1 To aRng.Columns.Count

　　　　　　If aRng.Cells(i, j).Address = aRng.Cells(i, j).MergeArea(1).Address Then

　　　　　　　　mRow = aRng.Cells(i, j).MergeArea.Rows.Count

　　　　　　　　mCol = aRng.Cells(i, j).MergeArea.Columns.Count

　　　　　　　　

　　　　　　　　sHtml = Concat(sHtml, Indent(3), "<", thtd)

　　　　　　　　If mRow > 1 Then sHtml = Concat(sHtml, " rowspan=""", mRow, """")

　　　　　　　　If mCol > 1 Then sHtml = Concat(sHtml, " colspan=""", mCol, """")

　　　　　　　　sHtml = Concat(sHtml, ">")

　　　　　　　　

　　　　　　　　sHtml = Concat(sHtml, IIf(aRng.Cells(i, j).Value = "", "&nbsp;", aRng.Cells(i, j).Value))

　　　　　　　　sHtml = Concat(sHtml, "</", thtd, ">", vbCrLf)

　　　　　　End If

　　　　Next

　　　　sHtml = Concat(sHtml, Indent(2), "</tr>", vbCrLf)

　　　　

　　　　If i = aHeader Then

　　　　　　sHtml = Concat(sHtml, Indent(1), "</thead>", vbCrLf)

　　　　　　sHtml = Concat(sHtml, Indent(1), "<tbody>", vbCrLf)

　　　　　　thtd = "td"

　　　　End If

　　Next

　　

　　sHtml = Concat(sHtml, Indent(1), "</tbody>", vbCrLf)

　　sHtml = Concat(sHtml, "</table>")

　　VBA100_94_01 = sHtml

End Function


      Function Concat(ParamArray prm()) As String

　　Dim v

　　For Each v In prm

　　　　Concat = Concat & v

　　Next

End Function


      Function Indent(ByVal aNum As Long) As String

　　Indent = Space(4 * aNum)

End Function

HTML文字列作成部分が見た的にうっとうしかったので、ConcatとIndentを作成してみました。
今回も復習を兼ねた総合練習問題になります。
補足はありません。
記事にはVBAコードを掲載しました。

補足

補足はありません。

サイト内関連ページ

11本目：セル結合の警告

・出題・頂いた回答・解説・補足・サイト内関連ページ

12本目：セル結合の解除

・出題・頂いた回答・解説・補足・サイト内関連ページ

25本目：マトリックス表をDB形式に変換

・出題・頂いた回答・解説・補足・サイト内関連ページ

同じテーマ「VBA100本ノック」の記事

91本目：時間計算（残業時間の月間合計）

・出題・頂いた回答・解説・補足・サイト内関連ページ

92本目：セルの色を16進で返す関数

・出題・頂いた回答・解説・補足・サイト内関連ページ

93本目：複数ブックを連結して再分割

・出題・頂いた回答・解説・補足・サイト内関連ページ

94本目：表範囲からHTMLのtableタグを作成
95本目：図形のテキストを検索するフォーム作成

・出題・頂いた回答・解説・補足・サイト内関連ページ

96本目：Accessデータを取得（マスタ結合&抽出）

・出題・頂いた回答・解説・補足・サイト内関連ページ

97本目：Accessデータを取得（グループ集計）

・出題・頂いた回答・解説・補足・サイト内関連ページ

98本目：席替えルールが守られているか確認

・出題・頂いた回答・解説・補足・サイト内関連ページ

99本目：自動席替え（行列と前後左右が全て違うように）

・出題・頂いた回答・解説・補足・サイト内関連ページ

100本目：WEBから100本ノックのリストを取得

・出題・頂いた回答・解説・補足・サイト内関連ページ

魔球編：組み合わせ問題

・出題・頂いた回答・解答・補足

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門

ホーム
マクロVBA入門編
VBA100本ノック
94本目：表範囲からHTMLのtableタグを作成

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA練習問題
VBA100本ノック 94本目：表範囲からHTMLのtableタグを作成