Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12153 / 76734 ←次へ　｜　前へ→
【70107】Re:アルファベットのソート
発言  kanabun  - 11/10/15(土) 19:09 -
引用なし
パスワード
   ▼ごん さん：
>コードの意味、よく分かりました。
>
>ところで、今頃ですが、アルファベットはZZまであるので、今の方法ではダメなことに気づいてしまいました。

Sub Try4()　　　　'3行目からソート範囲　"ZZ"まで対応
　　Dim c As Range
　　Dim ok As Boolean
　　
　　With Range("A3", Cells(Rows.Count, 1).End(xlUp)).Resize(, 2) '2列
　　　　For Each c In .Columns(2).Cells
　　　　　　c.Characters.PhoneticCharacters _
　　　　　　　　= c(1, 0).Text & Format000(c.Text)
　　　　Next
　　　　.Sort Key1:=.Columns(2), Header:=xlNo
　　End With
　　
End Sub

Private Function Format000(s As String) As String
　　Dim ss As String
　　Dim i As Long, n As Long
　　ss = UCase$(s)
　　For i = 1 To Len(ss)
　　　　If n > 0 Then n = n * 26
　　　　n = n + Asc(Mid$(ss, i, 1)) - &H40
　　Next
　　Format000 = Format$(n, "000")
End Function
8 hits
▼ 【70079】アルファベットのソート ごん 11/10/14(金) 9:21 質問
【70080】Re:アルファベットのソート ichinose 11/10/14(金) 10:09 発言
【70084】Re:アルファベットのソート ごん 11/10/14(金) 11:51 質問
【70082】Re:アルファベットのソート UO3 11/10/14(金) 10:27 回答
【70085】Re:アルファベットのソート ごん 11/10/14(金) 12:19 質問
【70089】Re:アルファベットのソート ごん 11/10/14(金) 14:41 質問
【70093】Re:アルファベットのソート UO3 11/10/14(金) 17:41 発言
【70100】Re:アルファベットのソート ごん 11/10/15(土) 10:55 質問
【70102】Re:アルファベットのソート UO3 11/10/15(土) 13:11 回答
【70131】Re:アルファベットのソート ごん 11/10/17(月) 9:31 質問
【70134】Re:アルファベットのソート UO3 11/10/17(月) 9:53 発言
【70139】Re:アルファベットのソート ごん 11/10/17(月) 10:35 お礼
【70137】Re:アルファベットのソート UO3 11/10/17(月) 10:16 回答
【70140】Re:アルファベットのソート ごん 11/10/17(月) 11:05 お礼
【70138】Re:アルファベットのソート kanabun 11/10/17(月) 10:26 発言
【70142】Re:アルファベットのソート ごん 11/10/17(月) 11:12 お礼
【70096】Re:アルファベットのソート kanabun 11/10/14(金) 20:43 発言
【70101】Re:アルファベットのソート ごん 11/10/15(土) 11:09 お礼
【70107】Re:アルファベットのソート kanabun 11/10/15(土) 19:09 発言≪
【70130】Re:アルファベットのソート ごん 11/10/17(月) 8:16 お礼
【70133】Re:アルファベットのソート UO3 11/10/17(月) 9:44 発言
【70135】Re:アルファベットのソート kanabun 11/10/17(月) 10:10 発言
【70188】Re:アルファベットのソート n 11/10/18(火) 23:23 発言
【70195】Re:アルファベットのソート kanabun 11/10/19(水) 10:43 発言
【70196】Re:アルファベットのソート kanabun 11/10/19(水) 11:01 発言
【70262】Re:アルファベットのソート ごん 11/10/24(月) 17:14 お礼
【70083】Re:アルファベットのソート kanabun 11/10/14(金) 11:31 発言
【70086】Re:アルファベットのソート ごん 11/10/14(金) 12:30 お礼
【70087】Re:アルファベットのソート kanabun 11/10/14(金) 13:40 発言
【70088】Re:アルファベットのソート ごん 11/10/14(金) 14:05 発言
【70090】Re:アルファベットのソート kanabun 11/10/14(金) 15:39 発言
【70091】Re:アルファベットのソート ごん 11/10/14(金) 17:00 質問
【70092】Re:アルファベットのソート kanabun 11/10/14(金) 17:15 発言
【70265】Re:アルファベットのソート ちん 11/10/24(月) 19:29 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12153 / 76734 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free