Excel VBA質問箱 IV

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

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


73219 / 76732 ←次へ | 前へ→

【7995】Re:アルファベットのみじゃないけど
回答  ichinose  - 03/9/26(金) 1:38 -

引用なし
パスワード
   こんばんは。

正規表現を使用した別解です。

但し、例は、アクティブシートに対しての全角--半角変換です。

標準モジュールに、
'==================================================
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 = alph_cnv_narrow(.Value)
     End With
    Next
  Set regEx = Nothing
  Application.ScreenUpdating = True
End Sub
'=========================================================
Function alph_cnv_narrow(strng)
  regEx.Pattern = "([A-Z])+"
  regEx.IgnoreCase = True
  regEx.Global = True
  Set Matches = regEx.Execute(strng)
  alph_cnv_narrow = strng
  If Matches.Count > 0 Then
   For Each Match In Matches
     regEx.Pattern = Match.Value
     regEx.IgnoreCase = False
     alph_cnv_narrow = regEx.Replace(alph_cnv_narrow, StrConv(Match.Value, vbNarrow))
     Next
   End If
End Function

1 hits

【7979】全角→半角変換について TANK 03/9/25(木) 18:04 質問
【7981】アルファベットのみじゃないけど ぴかる 03/9/25(木) 18:27 発言
【7983】Re:アルファベットのみじゃないけど bykin 03/9/25(木) 19:28 回答
【7994】ありがとうございます! TANK 03/9/26(金) 1:27 お礼
【7995】Re:アルファベットのみじゃないけど ichinose 03/9/26(金) 1:38 回答

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