htmlでtable書くのがめんどくさかったので簡単なツールを作ってみた。
VBAとエクセルで作成することにした。
行と列を指定してtableを作成する。
とりあえずめんどくさいのでthはあとで別に作ろうと思う。
th一行だけのツールも作ればいいし。
以下のように入力する。
サンプルソース
Private Sub CommandButton1_Click()
Dim gyo As Integer
Dim retu As Integer
Dim yoko(10) As String
yoko(0) = “B”
yoko(1) = “C”
yoko(2) = “D”
yoko(3) = “E”
yoko(4) = “F”
yoko(5) = “G”
yoko(6) = “H”
yoko(7) = “I”
yoko(8) = “J”
gyo = Sheets(1).Range(“A2”).Value
retu = Sheets(1).Range(“B2”).Value
Range(“A3”) = “<table border=1>”
For i = 0 To gyo – 1
Range(“A” & i + 4) = “<tr>”
For j = 0 To retu – 1
Range(yoko(j) & i + 4) = “<td>” & Sheets(1).Range(yoko(j) & i + 4).Value & “</td>”
Next
Range(yoko(retu) & i + 4) = “</tr>”
Next
Range(“A” & gyo + 4) = “</table>”
End Sub
実行結果
1時間もかけてつまらんものを作成してしまった。
打ったほうが早かったがなにしてるんだろう。
既存ツールよりコピペできるしこれでいいと思おう。
使うときはテキストにコピペして
空白できるけど置き換えればいいし。