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 ・・・新着記事一覧を見る
エクセル試験3：月間の所定労働時間｜エクセル練習問題(2023-10-04)
エクセル試験2：所得税の計算｜エクセル練習問題(2023-10-04)
エクセル試験1：曜日別の平均客単価｜エクセル練習問題(2023-10-04)
列全体を指定する時のRangeとColumnsの違い｜ツイッター出題回答 (2023-09-24)
シートのActiveXチェックボックスの指定方法｜ツイッター出題回答 (2023-09-24)
ByRef引数の型が一致しません。｜ツイッター出題回答 (2023-09-22)
シートコピー後のアクティブシートは何か｜ツイッター出題回答 (2023-09-19)
Excel関数の引数を省略した場合について｜ツイッター出題回答 (2023-09-14)
セル個数を返すRange.CountLargeプロパティとは｜VBA技術解説(2023-09-08)
記号を繰り返してグラフ作成（10単位で折り返す）｜ツイッター出題回答 (2023-08-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.マクロとは？VBAとは？VBAでできること｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.条件分岐（IF）｜VBA入門
9.並べ替え（Sort）｜VBA入門
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
- ホーム
- マクロVBA入門編
- VBA100本ノック
- 94本目：表範囲からHTMLのtableタグを作成
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。