![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.2ベストアンサー
- 回答日時:
=JapanNumber(A1)
Public Function JapanNumber(ByVal Text As String) As String
Text = Replace(Text, "0", "0")
Text = Replace(Text, "1", "一")
Text = Replace(Text, "2", "二")
Text = Replace(Text, "3", "三")
Text = Replace(Text, "4", "四")
Text = Replace(Text, "5", "五")
Text = Replace(Text, "6", "六")
Text = Replace(Text, "7", "七")
Text = Replace(Text, "8", "八")
JapanNumber = Replace(Text, "9", "九")
End Function
と、シコシコと置換。
No.1
- 回答日時:
マクロ以外では、数式がとても長くなるか、作業列を多く使用すると思われるので、
一過性ではないマクロを作成しました。
A列に入力した場合のみ、B列仁変換します。
'=======================================================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim サンプル文字列 As String
Dim i As Integer
Dim buf As String
Dim 変換後文字列 As String
If Not Target.Column = 1 Then Exit Sub
サンプル文字列 = Target.Value
変換後文字列 = ""
i = 1
Do While (1)
buf = Mid(サンプル文字列, i, 1) '1文字ずつ抜き出す
If (buf = "") Then 'サンプル文字列の終端の場合ループを抜ける
Exit Do
ElseIf ("0" <= buf And buf <= "9") Then '0~9の場合
Select Case buf 'ここで変換する
Case "0"
buf = "0"
Case "1"
buf = "一"
Case "2"
buf = "二"
Case "3"
buf = "三"
Case "4"
buf = "四"
Case "5"
buf = "五"
Case "6"
buf = "六"
Case "7"
buf = "七"
Case "8"
buf = "八"
Case "9"
buf = "九"
End Select
End If
変換後文字列 = 変換後文字列 & buf '抜き出した1文字(変換後)をつなげ直す
i = i + 1
Loop
Cells(Target.Row, 2).Value = 変換後文字列
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) Excelの関数について教えてください。 5 2023/07/28 11:27
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) Excel 関数 数式 について 2 2022/09/02 21:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CString から LPCTSTRの型に変換
-
Excel VBAでPDFファイルをMicro...
-
LINUX上でシリアル通信(C++)
-
文字コードの%E3%80%とは何です...
-
テキストをhtml変換するには
-
SJIS->UTF8->SJISコード変換に...
-
ウイザードからのVBAでクエリー...
-
【PHP】全角記号を半角記号...
-
Kシェルでの文字型→数値型変換
-
gccでiconvを使った文字コード...
-
改行を含んだ文字列を正規表現...
-
エクセルでの漢字(全角ひらが...
-
htmlに変換できるサイト
-
oracle10g eucのblobをsjisのch...
-
ローマ字からカナに変換する方...
-
iPadの文字入力・変換、、便利...
-
マンセル表色系からRGB表色系へ...
-
Visual Studio プロパティペー...
-
Pythonについて。
-
漢字からカタカナ変換マクロ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
文字コードの%E3%80%とは何です...
-
CString から LPCTSTRの型に変換
-
VB6にも「ToString」ってあり...
-
gccでiconvを使った文字コード...
-
VBScript文字列をSJISからUTF8...
-
SJIS->UTF8->SJISコード変換に...
-
ローマ字からカナに変換する方...
-
シャープ(#)の受け渡し
-
文字列を quoted-printable 文...
-
Encode.pmで「髙」(ハシゴ高)...
-
LINUX上でシリアル通信(C++)
-
ローマ数字の変換をしたいのですが
-
Kシェルでの文字型→数値型変換
-
テキストをhtml変換するには
-
ひらがなから全角カタカナへの...
-
Delphiの型変換
-
SQLのデータで半角カナを全角に...
-
CString型からdouble型への変換
-
五十音の並べ替えsortを教えて...
おすすめ情報