[[20110720124448]]　『並べ替え』（はな）　ページの最後に飛ぶ

『並べ替え』（はな）
始めまして、よろしくお願いします。
エクセルで表を作成し、ドラッグして並べ替えボタンで「優先されるキー」
などで並べ替えをしますが、毎回同じ範囲の並べ替えなのでボタン一つで
並べ替えを実行したいのですが。
例：（列Ａで昇順でタイトル行）
OS XP
Exel 2003

 どういった回答を望んでいるのわからないけど。
 決まっているという事なら、決まった操作をマクロ記録でもすれば、
 決まったとおりのマクロが出来ると思います。
 BJ

 ＞例：（列Ａで昇順でタイトル行） 
 この例の意味がよく分からないですが
 A列で昇順に並べたいなら、A列のどこかのセルを一つ選択して
 A→Zボタンをクリック。

 範囲が正しくとれなかったり、タイトル行をタイトルとして見なしてくれない場合は
 エクセルが正しく認識出来る様にデータの方を修正する。

 (HANA)

HANA様
A→Zボタンで普段は作業しているのですが
この操作を記憶したボタンをつくりたいのですが。
（例：列A2～A8を昇順で並べ替える）

 「シート上にボタンを置きたい」とか言う事かな。。。？

 A1セルをアクティブにして
 Ctrl + *（数字キーの「*」です。数字キーが付いていない場合は Ctrl + Shift + け）
 で、表の範囲が選択されます。
 その後、A→Zボタンをクリック。

 を、マクロの記録にとってみて下さい。

 A1セル以外を選択した状態で
 ●マクロの記録開始
 １．A1セルを選択
 ２．Ctrl + *　　で、範囲を自動選択
 ３．並べ替え
 ■マクロの記録終了

 ↓ライブラリ「マクロの自動記録」
http://www.excel.studio-kazu.jp/lib/e4b/e4b.html

 出来たコードは少し改造すると良いと思いますので
 完成したらコードを載せてみて下さい。

 (HANA)

HANA様
一応入力してみました。

    Range("A2").Select
    Selection.CurrentRegion.Select
    Rows("2:19").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
    Application.Run "onTimeTimerProc"
End Sub

これを実行するボタンをシート上に置きたいのでやり方を教えていただきたいのですが。
よろしくお願いいたします。

 あれ？
 いつも 2～19行の範囲をソートするのですか？
 　　その時々で、データの有る範囲をソートするのかと思いましたが。
 で、タイトル行は。。。1行目？

 列も何列有るか決まっているのですか？

 (HANA)

 >毎回同じ範囲の並べ替えなので
 って書いてますよ・・・。
 BJ

 そうですね。
 そしたら、↓の行の
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    ~~~~~~~~~この部分を                                            ~~~~~~~
    Range("A2:●19") に替えて貰うのと、ヘッダ「無し」（xlNone）で指定して貰って
 それより上の３行分は、削除しておいて貰うと良いと思います。

 ＞これを実行するボタンをシート上に置きたいのでやり方を教えていただきたいのですが。
 私は、オートシェイプで好きな形を作って
 　　右クリック→テキストの追加(X) で文字も追加出来ます。
 右クリック→マクロの登録(N)　で登録してます。

 フォームのボタンって、可愛くないんですよね。。。
 いかにもそれっぽいボタンが良ければ、「フォーム」ツールバーを表示させて
 灰色の四角いのがボタンを描くボタン．．．なので、
 クリックして　シート上の好きな所に四角を書くと良いと思います。
 マクロ登録ダイアログが開くので　登録したいマクロを選んで下さい。

 (HANA)

HZNA様、BJ様
有り難う御座いました。
さっそくボタン作ってやってみます。

コメント返信：

[ 一覧(最新更新順) ]

[[20110720124448]] 『並べ替え』（はな） ページの最後に飛ぶ

[[20110720124448]]　『並べ替え』（はな）　ページの最後に飛ぶ