Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13337 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5860】並べ替え結果を別セルに表示させる ま 03/6/4(水) 13:13 質問
【5862】Re:並べ替え結果を別セルに表示させる つん 03/6/4(水) 13:40 回答
【5865】Re:並べ替え結果を別セルに表示させる ま 03/6/4(水) 15:58 お礼
【5860】並べ替え結果を別セルに表示させる
質問  ま  - 03/6/4(水) 13:13 -
引用なし
パスワード
   セルA1〜セルA10を入力エリアとし、セルA11にボタンを配置する。ボタンを押すと、セルA1〜セルA10の値を昇順（小さい方から大きい方へ）に並び替え、結果をセルB1〜セルB10に表示したいのですが、どうすればいいのでしょうか。
御教授お願い致します。
【5862】Re:並べ替え結果を別セルに表示させる
回答  つん E-MAIL  - 03/6/4(水) 13:40 -
引用なし
パスワード
   ▼ま さん　こんにちは

これでどうですか？

Private Sub CommandButton1_Click()

　　Range("a1:a10").Copy Destination:=Range("b1")
　　Range("b1:b10").Sort Key1:=Range("B1"), Order1:=xlAscending

End Sub

A1:A10のデータを、B1:B10にコピーしておいてから、
B1:B10のデータを並べ替え。
【5865】Re:並べ替え結果を別セルに表示させる
お礼  ま  - 03/6/4(水) 15:58 -
引用なし
パスワード
   つんさんありがとうございました。
解決致しました。

どうやったら、こういうコードがすらすらと出てくるようになるんでしょうかね。
これから、いろんなパターンを覚えていくしかないですね。
がんばります。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13337 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free