Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

708:デフォルトの名無しさん
08/08/06 19:37:01
春日部市１-２-３のような文字列の数字部分のみ半角に変換する方法を探していたら
次のようなマクロを見つけました。

Sub MacroR()
Dim idx As Integer, trg As Range
　Set trg = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
　For idx = 0 To 9
　　trg.Replace What:=Right(StrConv(Str(idx), vbWide), 1), Replacement:=Right(Str(idx), 1)
　Next
End Sub

ここでRight関数を使っているのは、Str関数だと先頭に符号が付くからですか？

これのReplaceの部分を
　　trg.Replace What:=StrConv(CStr(idx), vbWide), Replacement:=idx
に変更すると同じ事が出来たのですが、これだと何か不都合が出たりしますか？

次ページ