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

ふりがなをはずすマクロ (VBA)

カテゴリ:PC

ふりがなをはずすマクロ (VBA)

連載中の源氏物語の日本語本文から
( )にはいったふりがなを外すマクロです。
(Microsoft Excel - VBA)

Aカラムに原文をおき、
結果をBカラムに書き出します。

         原本                 出力結果
kanatori-makroo.jpg

マクロはこれ。

Sub ふりがな取り()

'2019-01-04 01:40 完成 (c)belmonto
'1行目から書いた文の( )とその中の文字を消去する

'行数は最大30行とする。30行までにデータのあるセル内容は消去する
'結果はBカラムに表示する

   Let 行数 = 30
   
   For 縦 = 1 To 行数
       Let 行 = Cells(縦, 1)
       Let 開始位置 = 0
       Let 終了位置 = 0
       Let 左側 = ""
       
       Let 開始位置 = InStr(行, "(")
       If 開始位置 > 0 Then
           While 開始位置 > 0
               Let 終了位置 = InStr(開始位置 + 1, 行, ")")
               Let 左側 = 左側 & Left(行, 開始位置 - 1)
               Let 行 = Mid(行, 終了位置 + 1)
               Let 開始位置 = InStr(行, "(")
           Wend
           Let Cells(縦, 2) = 左側 & 行
       Else
           Let Cells(縦, 2) = 行
       End If
   Next

End Sub
  • 最大行数は30にしてあるので、変えたいときは
    Let 行数 = 30
    の数値を書き換えてください。

    a:218 t:1 y:0

    コメント



    認証コード4383

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

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

最新の更新 RSS  Valid XHTML 1.0 Transitional