VBAマクロ「縦書きにする」
2016.06.16
カテゴリ:PC
VBAマクロ「縦書きにする」
「夕霧」43でこのようにしているのは
おわかりでしょう。(ここでは影印をすこし小さくしました)
と お ひ ひ み も と と し ひ り り 人 い ご や の で ち ど か た つ も げ ま つ る す ふ と 秋 み の の は に 夜 て お の ぬ は 月 池 し 水 て に も |
ウェブ上のhtmlでは横書きしかできませんので、
むりやり「縦書きにみせかけている」わけです。
これまで2回分は手作業で書き込みましたが、
今回はExcelのマクロをつくって
作成してみました。
- 入れる本文はA1~A4だけです。
マクロで本文を1文字ずつに分解して
A7に、「縦書き表示」になるように
まとめました。 - 各、行の間には1つスペースが入っています。
&br;とは改行命令です。 - このA7をブラウザで表示させると
上記のようになるのです。
つぎがそのマクロです。
制限■4行。1行あたり19字まで。
'Option VBASupport 1 'LibreOffice Calcの場合は上の行を有効にする (「'」を削る) ' Sub 縦並びへ変更() ' ' (fare de) belmonto, 2016-06-16 12:00 ' '入力■ A1-A4に本文を配置 '出力◆ B1-T4に1文字にばらした本文 '出力◆ A7に結果(コピペしてブログに貼る) For tate = 1 To 4 For yoko = 2 To 20 Let Cells(tate, yoko) = " " Next Next For tate = 1 To 4 Let nagasa = Len(Cells(tate, 1)) For zisuu = 1 To nagasa Let Cells(tate, zisuu + 1) = Mid(Cells(tate, 1), zisuu, 1) Next Next ' For yoko = 2 To 20 Let matome = Empty For tate = 4 To 1 Step -1 Let matome = matome & Cells(tate, yoko) & " " Next If matome <> " " Then Let kekka = kekka & matome & "&br;" End If Next Let Cells(7, 1) = kekka End Sub
a:1612 t:5 y:0