Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52089 / 76732

←次へ　｜　前へ→


	【29485】Re:小書きの変換

ちくたく - 05/10/6(木) 10:59 -


	引用なし

	パスワード

ほびっとさん

まじめに動作確認をしていませんが。

選択範囲内のsetStrに格納した文字列を、
reStrの文字と置き換えます。

Sub 小文字置換()
　　Dim myRE As Object
　　Dim setStr As Variant, reStr As Variant
　　Dim mySel As Range, myCell As Range
　　Dim i As Integer
　　
　　Set myRE = CreateObject("VBScript.RegExp")
　　setStr = Array("ぁ", "ぃ", "ぅ", "ぇ", "ぉ", "っ", "ゃ", "ゅ", "ょ")
　　reStr = Array("あ", "い", "う", "え", "お", "つ", "や", "ゆ", "よ")
　　myRE.Global = True
　　
　　Set mySel = Selection
　　
　　For Each myCell In mySel
　　　　For i = LBound(setStr) To UBound(setStr)
　　　　　　myRE.Pattern = setStr(i)
　　　　　　myCell.Value = myRE.Replace(myCell.Value, reStr(i))
　　　　Next i
　　Next myCell
End Sub

1 hits

▼

【29483】小書きの変換 ほびっと 05/10/6(木) 9:55