【ExcelVBA公開模試】2重ループでHTMLのtableタグを出力する

文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。

わえなび速読VBA単語【邪道ExcelVBA基本講座】｜わえなび VBA｜note

問題

HTMLで1つの表をつくるには1組のtableタグ（<table>～</table>）が必要である。そして、tableタグの内側に行数分だけtrタグ（<tr>～</tr>）を入れ、さらにtrタグの内側に列数分だけtdタグ（<td>～</td>）を入れる。図１はセルB1、B2に行数と列数を入力した様子である。

ExcelVBAを用いて、図２のようにD～F列にHTMLを出力しなさい。

＜図１＞

＜図２：完成イメージ＞

わえなび式 正解例

（このページの下にあります）

目標回答時間

プロ２分以内、アマチュア10分以内に処理ができたら合格

この問題の出題範囲

「速読VBA単語」Program3-6-2まで

わえなび式ExcelVBA公開模試（無料） - Program3_6_2｜わえなび VBA｜note

ご案内

ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。

正解例

Sub moshi()
    rownum = Cells(1, 2)
    colnum = Cells(2, 2)
    Cells(1, 4) = "<table>"
    cnt = 2
    For i = 1 To rownum
        Cells(cnt, 5) = "<tr>"
        cnt = cnt + 1
        For j = 1 To colnum
            Cells(cnt, 6) = "<td></td>"
            cnt = cnt + 1
        Next
        Cells(cnt, 5) = "</tr>"
        cnt = cnt + 1
    Next
    Cells(cnt, 4) = "</table>"
End Sub

バックナンバー

わえなび式ExcelVBA公開模試（無料）｜わえなび VBA｜note