No.8
- 回答日時:
マクロ(VBA)を使って1時的にソート可能な形にして、ソート後に別のマクロを使って元に戻すというのはいかがでしょう?
☆ 使い方
① 住所録の番地の列を選択する。
②「ソート用データ作成」マクロを実行する。
③ ソート処理を行う。
④ 住所録の番地の列を選択する。
⑤「原型に戻す」マクロを実行する。
※「?????-?????-?????」まで対応しています。
☆ 標準モジュールに書き込んでください。
Sub ソート用データ作成()
Dim Rng_セル As Range
Dim Str_地番 As Variant
Dim Str_出力 As String
Dim Lng_要素 As Long
For Each Rng_セル In Selection
If Trim(Rng_セル.Value) <> "" Then
Str_出力 = ""
If InStr(Rng_セル.Value, "-") = 0 Then
If IsNumeric(Rng_セル.Value) Then
Str_出力 = Format(CLng(Rng_セル.Value), "00000") & "-00000-00000"
Else
Str_出力 = Rng_セル.Value
End If
Else
Str_地番 = Split(Rng_セル.Value, "-")
For Lng_要素 = 0 To 2
If UBound(Str_地番) > 3 Then Exit For
If Lng_要素 <= UBound(Str_地番) Then
Str_出力 = Str_出力 & Format(CLng(Str_地番(Lng_要素)), "00000")
Else
Str_出力 = Str_出力 & "00000"
End If
If Lng_要素 < 2 Then
Str_出力 = Str_出力 & "-"
End If
Next
End If
Rng_セル.Value = "'" & Str_出力
End If
Next
MsgBox ("変換完了")
End Sub
Sub 原型に戻す()
Dim Rng_セル As Range
Dim Str_入力 As String
Dim Str_出力 As String
Dim Lng_要素 As Long
For Each Rng_セル In Selection
Str_入力 = Rng_セル.Value
If Left(Str_入力, 1) = "'" Then Str_入力 = Mid(Str_入力, 2)
If Len(Str_入力) = 17 Then
If IsNumeric(Left(Str_入力, 5)) Then
If Mid(Str_入力, 6, 1) = "-" Then
If IsNumeric(Mid(Str_入力, 7, 5)) Then
If Mid(Str_入力, 12, 1) = "-" Then
If IsNumeric(Right(Str_入力, 5)) Then
Lng_要素 = CLng(Right(Str_入力, 5))
If Lng_要素 = 0 Then
Str_出力 = ""
Else
Str_出力 = "-" & Format(Lng_要素, "0")
End If
Lng_要素 = CLng(Mid(Str_入力, 7, 5))
If Lng_要素 <> 0 Then
Str_出力 = "-" & Format(Lng_要素, "0") & Str_出力
End If
Lng_要素 = CLng(Left(Str_入力, 5))
Str_出力 = Format(Lng_要素, "0") & Str_出力
Rng_セル.Value = "'" & Str_出力
End If
End If
End If
End If
End If
End If
Next
MsgBox ("変換完了")
End Sub
No.6
- 回答日時:
これが一番でしょ。
ハイフンの前と後を分ける。
No.1
- 回答日時:
数値じゃなくて文字列だからなあ。
10番地1
_2番地1
20番地1
_1番地1
とハイフン(-)を ”番地” に置換、一桁の値を ”スペース” をいれて整形することをお勧めします。
(見づらいので ”スペース” を アンダーバー(_)にしています)
こうすれば、
_1番地1
_2番地1
10番地1
20番地1
となります。
なお、スペースが無いと
10番地1
1番地1
20番地1
2番地1
となります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
餃子を食べるとき、何をつけますか?
みんな大好き餃子。 ふと素朴な疑問ですが、餃子には何をつけて食べますか? 王道は醤油とお酢でしょうか。
-
一回も披露したことのない豆知識
あなたの「一回も披露したことのない豆知識」を教えてください。 「そうなんだね」と「確かに披露する場所ないね」で評価します。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
ちょっと先の未来クイズ第4問
11月ごろに発表される、2024年の「新語・流行語大賞」にノミネートされる言葉を書けるだけ書いてください。
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
エクセル:住所の番地順に並び替えたい
Excel(エクセル)
-
エクセルで住所の番地順に並べ替えるには?
Excel(エクセル)
-
エクセル2007 番地の並び替えがうまくいきません
Excel(エクセル)
-
-
4
EXCELで住所の並べ替え
Excel(エクセル)
-
5
EXCELのハイホン区切りの数字並べ替えについて教えて下さい
Excel(エクセル)
-
6
エクセルで住所の混在する「丁目番号番地」を「-」に一括変換する方法ってありますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
プログラムについての質問です...
-
VBAでテキスト出力時のスペース...
-
4Kの外部モニターに出力すると...
-
C言語でタイピングゲーム作成
-
cout と cerrの違い
-
Windows Formアプリからコンソ...
-
C言語で矩形波生成方法
-
アクセスでエクセルに出力する...
-
テキストファイルから特定の文...
-
標準出力の上書き
-
無線とかアンテナに関しの質問...
-
Accessのテーブルからcsv出力す...
-
センサーのタンパー出力について
-
1〜50まで順に数字を入力し、3...
-
COBOLのMOVEで桁数が異なる場合
-
エクセルVBAにて アルファ...
-
コンセントの電力は入力と出力...
-
ACCESSからExcelへエクスポート...
-
coutで出力した文字を消去する...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
プログラムについての質問です...
-
MMDでavi出力が出来ない
-
COBOLのMOVEで桁数が異なる場合
-
cout と cerrの違い
-
printfとputcharの違いは
-
アクセスでエクセルに出力する...
-
VBAのExecメソッドで画面を非表...
-
スマホのバッテリー消費につい...
-
Windows Formアプリからコンソ...
-
ACCESS クエリ→フォーム...
-
コンセントの電力は入力と出力...
-
Accessのテーブルからcsv出力す...
-
Excel VBAで値を変えながら、pd...
-
無線とかアンテナに関しの質問...
-
ListViewの複数選択について
-
KEYENCEのシーケンスプログラム...
-
センサーのタンパー出力について
-
VBAでテキスト出力時のスペース...
おすすめ情報