VBA100本ノック 94本目：表範囲からHTMLのtableタグを作成
指定セル範囲の表をHTMLの<table>に変換するFunctionを作成する問題です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。
出題
表を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 = "", " ", 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
今回も復習を兼ねた総合練習問題になります。
補足はありません。
記事にはVBAコードを掲載しました。
補足
サイト内関連ページ
同じテーマ「VBA100本ノック」の記事
91本目：時間計算（残業時間の月間合計）
92本目：セルの色を16進で返す関数
93本目：複数ブックを連結して再分割
94本目：表範囲からHTMLのtableタグを作成
95本目：図形のテキストを検索するフォーム作成
96本目：Accessデータを取得（マスタ結合&抽出）
97本目：Accessデータを取得（グループ集計）
98本目：席替えルールが守られているか確認
99本目：自動席替え（行列と前後左右が全て違うように）
100本目：WEBから100本ノックのリストを取得
魔球編：組み合わせ問題
新着記事NEW ・・・新着記事一覧を見る
AIは便利なはずなのに…「AI疲れ」が次の社会問題になる｜生成AI活用研究(2026-02-16)
カンマ区切りデータの行展開｜エクセル練習問題(2026-01-28)
開いている「Excel/Word/PowerPoint」ファイルのパスを調べる方法｜エクセル雑感(2026-01-27)
IMPORTCSV関数（CSVファイルのインポート）｜エクセル入門(2026-01-19)
IMPORTTEXT関数（テキストファイルのインポート）｜エクセル入門(2026-01-19)
料金表（マトリックス）から金額で商品を特定する｜エクセル練習問題(2026-01-14)
「緩衝材」としてのVBAとRPA｜その終焉とAIの台頭｜エクセル雑感(2026-01-13)
シンギュラリティ前夜：AIは機械語へ回帰するのか｜生成AI活用研究(2026-01-08)
電卓とプログラムと私｜エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン｜エクセル関数応用(2025-12-25)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門
- ホーム
- マクロVBA入門編
- VBA100本ノック
- 94本目：表範囲からHTMLのtableタグを作成
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.