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

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

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

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

　　　　　　　　　原本　　　　　　　　　　　　　　　　　出力結果

マクロはこれ。

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:1105 t:1 y:0

  • 次の記事　→
  • ←　前の記事

  コメント

  
  
  タイトル：
  お名前： 認証コード6261 コメント：

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