Lernu Esperanton! 理論的に作られた国際共通語エスペラントを学びませんか

VBAマクロ「縦書きにする」

カテゴリ:PC

VBAマクロ「縦書きにする」

「夕霧」43でこのようにしているのは
おわかりでしょう。(ここでは影印をすこし小さくしました)

fusimi-yufu66o.jpgと     お 
ひ ひ み も 
と と し ひ 
り り 人 い 
ご や の で 
ち ど か た 
つ も げ ま 
つ る す ふ 
と 秋 み   
の の は   
に 夜 て   
お の ぬ   
は 月 池   
し   水   
て   に   
も       

ウェブ上のhtmlでは横書きしかできませんので、
むりやり「縦書きにみせかけている」わけです。

これまで2回分は手作業で書き込みましたが、
今回はExcelのマクロをつくって
作成してみました。

tategakini.jpg
  • 入れる本文は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

コメント



認証コード1224

コメントは管理者の承認後に表示されます。

powered by Quick Homepage Maker 4.91
based on PukiWiki 1.4.7 License is GPL. QHM

最新の更新 RSS  Valid XHTML 1.0 Transitional