Excel VBA質問箱 IV

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

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


13336 / 13645 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   つんさんありがとうございました。
解決致しました。

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

ありがとうございました。

13336 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free