VBA100本ノック 94本目：表範囲からHTMLのtableタグを作成
指定セル範囲の表をHTMLの<table>に変換するFunctionを作成する問題です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。
マクロ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
表を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を書けは他は流れに沿って記述すれば完成すると思います。
HTML文字列作成部分が見た的にうっとうしかったので、ConcatとIndentを作成してみました。
今回も復習を兼ねた総合練習問題になります。
補足はありません。
記事には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コードを掲載しました。
補足
補足はありません。
サイト内関連ページ
11本目：セル結合の警告
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
12本目：セル結合の解除・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
25本目：マトリックス表をDB形式に変換・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
同じテーマ「VBA100本ノック」の記事
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
92本目：セルの色を16進で返す関数・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
93本目：複数ブックを連結して再分割・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
94本目：表範囲からHTMLのtableタグを作成95本目：図形のテキストを検索するフォーム作成
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
96本目：Accessデータを取得（マスタ結合&抽出）・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
97本目：Accessデータを取得（グループ集計）・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
98本目：席替えルールが守られているか確認・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
99本目：自動席替え（行列と前後左右が全て違うように）・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
100本目：WEBから100本ノックのリストを取得・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
魔球編：組み合わせ問題・出題 ・頂いた回答 ・解答 ・補足
新着記事NEW ・・・新着記事一覧を見る
TRIMRANGE関数（セル範囲をトリム：端の空白セルを除外）｜エクセル入門(2024-08-30)
正規表現関数（REGEXTEST,REGEXREPLACE,REGEXEXTRACT）｜エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない｜エクセル雑感(2024-04-11)
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.ブック・シートの選択（Select,Activate）｜VBA入門
- ホーム
- マクロVBA入門編
- VBA100本ノック
- 94本目：表範囲からHTMLのtableタグを作成
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。