エクセルで作成した表をHTMLのテーブルに変換

質問

お世話になります。

掲題の通り、エクセルで作成した表をHTMLのテーブルに変換したいと
考えておりますが、事情があってエクセル内でマクロ(VBA?)で実行したいです。

理由は、私自身であればそもそもHTML直打ちないしWEB系ソフトで
テーブルを作ることが出来るのですが、今回はWEBの知識ゼロの
メンバーも含めて人海戦術的にHTMLのテーブルを色々なパターンで
作る必要があるからです。

作ることになるテーブルはサイズ表であるため、
一番小さい場合は
「サイズ展開が１つに対し、縦の長さ、横の長さを表示する」ものになります。
テーブルにはサイズ展開のタイトル行と、縦・横のタイトル列を含みますので
つまりテーブルとしては、2列×3行になります。

行が一番増える場合は
「サイズ展開が１つに対し、縦の長さ、横の長さ、高さを表示する」ものになります。
テーブルにはサイズ展開のタイトル行と、縦・横・高さのタイトル列を含みますので
つまりテーブルとしては、2列×4行になります。

また、上記はどちらのサイズ展開が１サイズ分しかない場合となりますが
このサイズ展開はアイテムにより異なり、最小で１、最大で６まであり得ます。

ちなみに、タイトル行の文言もタイトル列の文言も何パターンかあります。
このような状況のときに、エクセルに入力されるのは最大7列4行ですので、
そのエリアを見て、値が入力されているかいないかにより表のサイズを見極め、
また、その入力されている値を参照して、テーブル化したいというのが希望です。

このとき、コマンドボタンを用意して、表に入力をした後でそのボタンを押せば、
求めるテーブルタグ表記が別の場所に自動セットされる、という仕様を求めています。
とにかく、沢山サイズを測りまくる他のメンバーがなるべくとっつきやすい方法を
模索しています。

ちなみに、上記のような事が出来ない場合は、エクセルないし紙に書いてもらった
サイズ表を見ながら私がテーブルタグ化していく、となるので進みが一気に遅くなる
ため、出来るだけ他メンバーが簡単にテーブルタグ化まで出来ることが
強い希望となります。

ちなみにテーブルの幅は入力している列数によりwidthを50ずつ増やしたいです。

添付した画像は、色々な大きさの表があり得ることを示しています。
複数のテーブルを用意して、ひとつのボタンで結果を得ようとしているものではありません。
特定のエリアを決めて、そこに他メンバーが順番にエクセルの表をコピペして、
その後ボタンを押して結果を取得し他の場所に保存。
そしてまた次の表をセットして・・・という作業の流れになるかと思っています。

ちなみに、VBAを自分でコーディングした経験はありません。
関数で出来ないことを質問した結果、マクロでの対応を進められて、
標準モジュールにコピペしてそれを使ったことがある程度です。
そのため、「開発」タブからコマンドボタンを選んで用意しましたが
そのボタンを押したらVBAのアクションが実行される仕組みも
調べないとわからないレベルです。

解決方法をご教示頂ければ幸いです。
そもそもこういった制御は出来ない、ですとか
こういった代替方法がある、など、実現方法に
こだわりはありません。

よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

ブックを開く
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim Target as range
　dim r as integer, c as integer
　dim s1 as string, s2 as string

　set target = activecell.currentregion
　if target.count = 1 and target.cells(1) = "" then
　　msgbox "SELECT TABLE"
　　exit sub
　end if

　s1 = "<table border=1 width=" & target.columns.count * 60 & ">"
　for r = 1 to target.rows.count
　　s2 = s1 & "<tr>"
　　for c = 1 to target.columns.count
　　　s2 = s2 & "<td width=60>" & target.cells(r, c).text & "</td>"
　　next c
　　s1 = ""
　　s2 = s2 & "</tr>"
　　target.cells(r, target.columns.count + 2) = s2
　next r
　s2 = s2 & "</table>"
　target.cells(r - 1, target.columns.count + 2) = s2
end sub

ファイルメニューから終了してエクセルに戻る
コマンドボタンは消去する
オートシェイプの図形を一個配置する
右クリックしてマクロの登録を開始、いま記入したマクロ１を選択する

使い方：
ｈｔｍｌにしたい表のどこかを選択して図形を１クリックする。

作成したいテーブルの体裁に応じて、マクロの必要な個所を修正してください。
ｈｔｍｌタグの書き方は知りませんので、ご自分でお願いします。

お礼

凄すぎます…
本当に表のどこを選んでもテーブルを作ってくれるし、
試しに表をいびつな形にしてみても対応してくれます。

どうしてこんな事が可能なのか興味があるので
後日色々調べてみます。
エクセルの世界は深淵ですね…。

とりあえずは目の前の人海戦術作業の舵取りを
優先しますが、本当に計り知れないほど
作業の負荷と時間を短縮できました。

VBAに不慣れな事も記載させて頂いた結果、
作業手順まで丁寧にご指導くださり、
感謝にたえません。

本当にありがとうございました。
尊敬します！