お奨め本の目次を見るだけでも勉強になったり
＜セルの右寄せ、中央寄せをHTMLの表にしてみる＞
どうも、三流プログラマーのＫｅｎ３です。 今回は、前回の続きで、 Excelの表をHTMLの表にしてみたいと思います。 標準でHTML形式で保存があるけど、練習を兼ねて。 http://www.ken3.org/p/lzh/office-016.lzh に今回のサンプル保存されてます。 あわせてみてください。/* * １．追加機能や足りない機能、使っていっての要望をまとめる */
前回、表の基本形を書き込めました。 これを、Excel--HTMLコンバーターと世に出したら、 さぁたいへん(笑) クレームの嵐だった(作り話です) ・セルが全て左によっていて、右寄せ中央寄せができてない ・フォントの色、背景色が変わらない ・セル結合している場所が正しく表にならない ・ ・ とある中から、 まずは、簡単そうな、 セルの右寄せ中央寄せ、を調べてみたいと思います。/* * ２．初期捜査、初動捜査 */
セルが右に寄っているか?中央か?どうやって調べましょう。 いつものマクロ記録で、記録してみます。 プロパティ、メソッドの探り方 マクロ記録とＦ１のHelpを使う http://www.ken3.org/vba/excel-help.html も、ヒマな時、のぞいてください。 話を戻してと、 右、中央を記録しただけなのに、 こんなに長いなんて。。。
Sub Macro1()
Range("D2").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub |
Sub MAKE_HTML_TABLE(strFNAME As String, objHANI As Range)
'ファイルをオープンする
Dim FNO As Integer 'ファイル番号
FNO = FreeFile '空いてるファイル番号を取出す
Open strFNAME For Output As #FNO 'テキストファイルを新規作成
'HTMLのヘッダーを書く
Print #FNO, "<HTML><HEAD><TITLE>"
Print #FNO, "テーブル作成してみました"
Print #FNO, "</TITLE></HEAD>"
Print #FNO, "<BODY>"
Print #FNO, "<TABLE border=1>" 'テーブルの開始
'行、列でループを作る
Dim y As Integer
Dim x As Integer
For y = 1 To objHANI.Rows.Count '行のループ
Print #FNO, "<TR>"; '行の開始タグ
For x = 1 To objHANI.Columns.Count '列のループ
'セルの値を<TD>で囲って出力
Print #FNO, "<TD>" & objHANI.Cells(y, x).Value & "</TD>";
Next x
Print #FNO, "</TR>" '行の終了タグ
Next y
'HTMLのタグを閉める
Print #FNO, "</TABLE>"
Print #FNO, "</BODY></HTML>"
'ファイルをクローズする
Close #FNO
End Sub |
|
あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧 |
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |