即効テクニック |
選択されているセル範囲の数字を全て漢数字に変換します。 サンプルマクロは、まず全角数字を半角に置き換えます。 次にセル内の文字に数字があれば、漢数字にして変数myMojiに格納し、セルの値を変数myMojiにしています。
Sub Sample() Dim a As Range Dim i As Integer Dim Data As String Dim myMoji As String myMoji = "" For Each a In Selection a.Value = Application.WorksheetFunction.Asc(a.Value) For i = 1 To Len(a) If IsNumeric(Mid$(a, i, 1)) Then Data = WorksheetFunction.Text(Mid$(a, i, 1), "[DBnum1]0") Else Data = Mid$(a, i, 1) End If myMoji = myMoji & Data Next a.Value = myMoji myMoji = "" Next End Sub