Sub 半角変換()
Dim SR As Range
For Each SR In Selection
SR.Value = StrConv(SR.Value, vbNarrow)
Next SR
End Sub
Sub 全角変換()
Dim SR As Range
For Each SR In Selection
SR.Value = StrConv(SR.Value, vbWide)
Next SR
End Sub
Go to list of users who liked
More than 5 years have passed since last update.
Sub 半角変換()
Dim SR As Range
For Each SR In Selection
SR.Value = StrConv(SR.Value, vbNarrow)
Next SR
End Sub
Sub 全角変換()
Dim SR As Range
For Each SR In Selection
SR.Value = StrConv(SR.Value, vbWide)
Next SR
End Sub
Register as a new user and use Qiita more conveniently
Go to list of users who liked