Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62912 / 76732 ←次へ | 前へ→

【18420】Re:全角を半角に・・・
回答  ichinose  - 04/9/23(木) 10:16 -

引用なし
パスワード
   皆さん、おはようございます。

以下のコードは、アクティブシートに入力されているセルの文字列の
半角カタカナを全角カタカナに変換するコード例です。
標準モジュールに

'=========================================================
Public Enum kanacnv
  kwide = 4
  knarrow = 8
End Enum
Dim regEx, Match, Matches
'==================================================
Sub main()
  Dim rng As Range
  Application.ScreenUpdating = False
  Set regEx = CreateObject("VBScript.RegExp")
  For Each rng In ActiveSheet.UsedRange
    With rng
     .Value = kana_cnv(.Value, kwide)
'               ↑全角を半角にする場合はkwideをknarrowに変更
     End With
    Next
  Set regEx = Nothing
  Application.ScreenUpdating = True
End Sub
'=========================================================
Function kana_cnv(cnv_str, w_or_n As kanacnv)
'指定された文字列のカタカナを全角又は、半角に変換する
'input---cnv_str---変換する文字列
'    w_or_n 変換指示 kwide-全角変換 knarrow-半角変換
'output--kana_cnv 変換された文字列
  With regEx
   If w_or_n = kwide Then
    .Pattern = "[。-゚]+"
   ElseIf w_or_n = knarrow Then
    .Pattern = "[ァ-ヶ]+"
   Else
    Exit Function
    End If
   .IgnoreCase = True
   .Global = True
   Set Matches = .Execute(cnv_str)
   kana_cnv = cnv_str
   If Matches.Count > 0 Then
    For Each Match In Matches
      .Pattern = Match.Value
      .IgnoreCase = False
      kana_cnv = regEx.Replace(kana_cnv, StrConv(Match.Value, w_or_n))
     Next
     End If
   End With
End Function

確認して下さい。
1 hits

【18368】全角を半角に・・・ あさ 04/9/22(水) 10:39 質問
【18369】Re:全角を半角に・・・ IROC 04/9/22(水) 10:43 回答
【18371】Re:全角を半角に・・・ ぴかる 04/9/22(水) 11:09 発言
【18420】Re:全角を半角に・・・ ichinose 04/9/23(木) 10:16 回答
【18447】Re:全角を半角に・・・ ぴかる 04/9/24(金) 10:25 お礼
【18449】Re:全角を半角に・・・ Jaka 04/9/24(金) 12:10 発言
【18465】Re:全角を半角に・・・ ichinose 04/9/27(月) 10:30 発言

62912 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free