
No.2ベストアンサー
- 回答日時:
表示形式=TEXT(C1,"[DBNum1]G/標準")などはC1セルが半角数字で無いと上手く行かないようです。
住所を数字部分と漢字部分に部分に別セルに分けられれば使えるかもしれない。住所漢字部分と丁目番地が1セルに混在しているときのために、数字を漢数字に変える、ユーザー定義の関数を作ってみました。
ツール-マクロ-BVEでVBEの画面になる。
そこで挿入-標準モジュールで出てくる画面に下記を
コピペする。
Function kansuj(a)
tb = Array("〇", "一", "ニ", "三", _
"四", "五", "六", "七", "八", "九")
For i = 1 To Len(a)
s = Mid(a, i, 1)
'---ハイフン
If s = "-" Then
st = st & "-"
GoTo p01
End If
'----数字 全角、半角
If IsNumeric(s) Then
If s >= "0" And s <= "9" Then
p = Application.WorksheetFunction.Asc(s)
st = st & tb(p)
GoTo p01
Else
st = st & tb(Val(s))
GoTo p01
End If
End If
'----その他全角文字
st = st & s
p01:
Next i
kansuj = st
End Function
使い方はA列に住所があるとして、B1に
=kansuj(A1)といれてB2以下に式を複写する。
(結果)
大田区目黒123-1大田区目黒一ニ三-一
関東1-23関東一-ニ三
三七,六五三三七六五三
一一
三八,〇四八三八〇四八
あ1-2-3あ一-ニ-三
三七,六五三三七六五三
2no3ニno三
三三
1-2-3一-ニ-三
二三四ニ三四
1-2一-ニ
大阪市中央区道修町2-34大阪市中央区道修町ニ-三四
ASC234ASCニ三四
0〇
No.3
- 回答日時:
よこから失礼します。
ご希望の結果は得る方法は#2の方が示されています。
補足というか、、出すぎたお節介なのですが、住所の場合は、アパート名などに全角半角のカタカナが混在する場合も考えられますので、それを考慮したマクロをご参考までに示します。
セル選択範囲内の数字のみを漢数字化し、カタカナや記号等は全角半角を保持したままになります。
'選択したセル範囲の、数字だけを漢数字に置きかえ
Sub 数字の漢数字化()
On Error Resume Next
Application.ScreenUpdating = False
Dim num1, num2, num3
Dim i As Integer
Dim Rng As Range
num1 = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")
num2 = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")
num3 = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "〇")
For Each Rng In Selection
'数字のみ半角に統一
For i = 0 To 9
Rng.Value = Replace(Rng.Value, num1(i), num2(i))
Next i
'漢数字化
For i = 0 To 9
Rng.Value = Replace(Rng.Value, num2(i), num3(i))
Next i
Next Rng
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
問2 次の文中の空欄にあてはま...
-
Excel 文字列の中から数字だけ...
-
半角の『°(単位の度)』
-
半角スペース
-
契約書や 公文書・私文書などに...
-
半角の×(かける)は?
-
ワードで論文を書こうと思うの...
-
メールアドレスの上ハイフン入...
-
ビジネスの文書における、数字...
-
強制的に半角に!?
-
お名前(姓)」には「カタカナ(...
-
全角ダッシュ(――)が横向きに...
-
【(半角数字)】を【(全角数...
-
一太郎2014でABなどを縦書きに...
-
℃の半角表示
-
ギリシャ文字 μの出し方
-
これは、機種依存文字ですか?
-
wordで小数をきちんと入力する。
-
Android Gboardで楽に全角・半...
-
エクセル関数で文字列の中のス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
℃の半角表示
-
契約書や 公文書・私文書などに...
-
半角の『°(単位の度)』
-
半角の×(かける)は?
-
Excel 文字列の中から数字だけ...
-
半角スペース
-
EXCEL95 VLOOKUP関数で半角と全角
-
EXCELの文字列操作で文字数不足...
-
EXCELで、セル内の半角カ...
-
テプラは半角数字が使えますか?
-
エクセル関数で文字列の中のス...
-
問2 次の文中の空欄にあてはま...
-
メールアドレスの上ハイフン入...
-
隅付き括弧に半角はありますか...
-
ビジネスの文書における、数字...
-
Excel2016 検索の窓を常時表示...
-
1, (1),(1)の使い分け
-
【VBA】ファイルパスに半角スペ...
-
エクセルで、JIS関数、ASC関数...
-
エクセルで 全角の空白を含む...
おすすめ情報