（荻山）展示会の準備

荻山です。こんにちは。

明日からいちょうホールで、気合の入っている楽器の展示会があります。
世界各国のいろいろな楽器の展示をしています。

僕はというと、その楽器たちを説明するホームページを作っています。
久しぶりに、htmlを書いています。
Excelでhtmlのソースコードを動的に生成する、VBAのコードを書いています。
以下、抜粋。

'データが存在する限りループ
With Worksheets("原稿")
Do While .Cells(i, 2).Value <> ""
    stNum = .Cells(i, 1).Value
    stNo = .Cells(i, 2).Value
    stName = .Cells(i, 3).Value
    stBase = .Cells(i, 4).Value
    stSetumei = .Cells(i, 5).Value
    stMFile = .Cells(i, 6).Value
    stURL = .Cells(i, 7).Value
    stCopy = .Cells(i, 8).Value
    stSec = .Cells(i, 9).Value

    'HTMLに出力
    If stSec <> "" Then
        Print #1, stSec
    End If

    Print #1, "<a id=" & Chr(34) & "p" & stNum & Chr(34) & "><h3>" & stName & "</h3></a>"
    Print #1, "<p>" & stNo & "　" & stName & "</p>"
    Print #1, "<p>" & Replace(stBase, Chr(10), "</p>" & Chr(10) & "<p>") & "</p>"
    Print #1, "<p>" & stSetumei & "</p>"

簡単なプログラムも書ける、そんな制作として頑張ります。

以下、頭の運動のための、 1日数セリフ書いていく連載 。

A：はい！すみません！
B：あ！・・や、こちらこそ・・
A：・・あの
B：はい
A：帰っていいですか？
B：だめです。
A：なんで？
B：なんでって、本気で言っているんですか？

続く