エクセル VBA 入門 table作成ツール

      2016/05/03

htmlでtable書くのがめんどくさかったので簡単なツールを作ってみた。
VBAとエクセルで作成することにした。

行と列を指定してtableを作成する。
とりあえずめんどくさいのでthはあとで別に作ろうと思う。
th一行だけのツールも作ればいいし。

以下のように入力する。

Sample1


サンプルソース

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

実行結果

Sample2

1時間もかけてつまらんものを作成してしまった。
打ったほうが早かったがなにしてるんだろう。
既存ツールよりコピペできるしこれでいいと思おう。
使うときはテキストにコピペして
空白できるけど置き換えればいいし。




PR



 - Excel入門 ,

Translate »