Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12065 / 76734 ←次へ　｜　前へ→
【70195】Re:アルファベットのソート
発言  kanabun  - 11/10/19(水) 10:43 -
引用なし
パスワード
   ▼n さん：こんにちは

> 今さら過ぎますけど、ScreenUpdating制御でそこそこの速度は出ますよね？
> １０００行程度だったら実用に耐えれると思うんですけど。

ふりがな(Phonetic)を使ったSortは n さんのアイデアでしたね。
せっかく教わったのだから、
もっと執着しないといけなかったですね m(_ _)m

> それとFormat000の代わりに
> c.Phonetic.Text = Len(c.Value) & c.Value
> くらいで各列Keyにすれば良いような気もします。
> まさにkanabun さんが
> >.Formula = "=LEN(B3)&C3"
> と書かれてる発想で。

なるほど〜
Sub Try5()　　　　'3行目からソート範囲　"ZZ"まで対応
　　Dim c As Range
　　
　　Application.ScreenUpdating = False
　　With Range("A3", Cells(Rows.Count, 1).End(xlUp)).Resize(, 2) '2列
　　　　For Each c In .Columns(2).Cells
　　　　　　c.Phonetic.Text = Len(c.Value) & c.Value
　　　　Next
　　　　.Sort Key1:=.Columns(1), Key1:=.Columns(2), Header:=xlNo
　　End With
　　Application.ScreenUpdating = True
End Sub

◆1000行のデータで測ってみました。(単位：ミリ秒)
--------------------　　--------
Try4(Screen制御なし)　　　10530
Try4(Screen制御あり)　　　　234
Try5(あり、Len(c)方式)　　　187

変わるものですね〜〜
13 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 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12065 / 76734 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free