Excel VBA質問箱 IV

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

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


1262 / 13644 ツリー ←次へ | 前へ→

【75351】VBA結合セルでのデーターソートについて はやさん 14/2/16(日) 11:07 質問[未読]
【75354】Re:VBA結合セルでのデーターソートにつ... あきな 14/2/16(日) 16:10 発言[未読]
【75355】Re:VBA結合セルでのデーターソートにつ... はやさん 14/2/16(日) 16:33 お礼[未読]
【75360】Re:VBA結合セルでのデーターソートにつ... あきな 14/2/20(木) 21:52 発言[未読]
【75361】Re:VBA結合セルでのデーターソートにつ... あきな 14/2/23(日) 16:57 回答[未読]

【75351】VBA結合セルでのデーターソートについ...
質問  はやさん E-MAIL  - 14/2/16(日) 11:07 -

引用なし
パスワード
   エクセル2007でワークシートを作成しVBAで結合したセルを一つのデータとてソートを行いたいのですがご指導をお願いいたします。

● 条件1 ユーザーフォームでチーム番号と選手番号の各テキストボックスに番  号を入力すると、チーム名・氏名・所属の各テキストボックスにチーム、氏   名、所属が表示され点数と加算点数のテキストボックスに点数の書き込みを出  来るようにしたいと思います。尚コマンドボタンは「入力・訂正」と「書き込み」  のボタンといたします。
● 条件2 チーム番号、チーム名、加算点数、合計の各欄が5セルの結合で他の  部分は結合無しといたします。
●ソートキーはチーム番号(チーム番号順)と合計(合計順)の2つとしています。


●ワークシートの表構成は以下のようになっております。

  A   B   C    D   E   F   G   H 
  チーム番号 チーム名 選手番号 氏名 所属支部 点数 加算点数 合計
  1   東京   1    阿倍 練馬   20   2   111
           2   小林  太田   25 
           3   石場  台東   20
           4   藤井 千代田  20
           5   石原  中央   24
  2   栃木   1    管  宇都宮  24   3   134
           2    今野  佐野   21    
           3    菊池  太田   30
           4    浜  藤岡   25
          5    後藤 佐野   31
  3 以下表の構成は上記と同じになります。

【75354】Re:VBA結合セルでのデーターソートに...
発言  あきな  - 14/2/16(日) 16:10 -

引用なし
パスワード
   ▼はやさん さん:

結合セルを含む範囲の並べ替えを、手動で操作した場合の手順です。
これをマクロ記録してみてください。

  (1)結合されているA列をコピー

  (2)結合されていないC〜F列を選択 → 形式を選択して貼り付け → 書式を選択してOK

  (3)並べ替え

  (4)C〜F列を選択して、結合解除

【75355】Re:VBA結合セルでのデーターソートに...
お礼  はやさん E-MAIL  - 14/2/16(日) 16:33 -

引用なし
パスワード
   ▼あきな さん:
>▼はやさん さん:
>
>結合セルを含む範囲の並べ替えを、手動で操作した場合の手順です。
>これをマクロ記録してみてください。
>
>  (1)結合されているA列をコピー
>
>  (2)結合されていないC〜F列を選択 → 形式を選択して貼り付け → 書式を選択してOK
>
>  (3)並べ替え
>
>  (4)C〜F列を選択して、結合解除


早速のご指導誠に有難うございました。
当方理解不足で誠に申し訳ありませんが、具体的なご指導をお願いしたいと思います。
多忙な中での無理なお願いですが宜しくお願いいたします。

【75360】Re:VBA結合セルでのデーターソートに...
発言  あきな  - 14/2/20(木) 21:52 -

引用なし
パスワード
   ▼はやさん さん:

こんにちは

>具体的なご指導をお願いしたいと思います。

具体的・・・というか、操作方法そのものを書いたつもりだったのですが・・・。

文章能力が無くて申し訳ないです。。

で、どの辺が分からないのでしょう?

【75361】Re:VBA結合セルでのデーターソートに...
回答  あきな  - 14/2/23(日) 16:57 -

引用なし
パスワード
   次の手動での操作をマクロ記録した後、編集してみました。
 (1)結合されているA列をコピー
 (2)結合されていないC〜F列を選択 → 形式を選択して貼り付け → 書式を選択してOK
 (3)並べ替え
 (4)C〜F列を選択して、結合解除

以下の条件で動作します。ご自分の環境に合わせて編集してください。

 1.データ範囲(A1:F11 / 1行目はタイトル)
 2.J2セルに並べ替えを行う列を指定(A列で並べ替えるなら「A1」と入力)
 3.このプロシージャでは、データを昇順に並べ替えるようになっています。
   降順にしたい場合は、Order:=xlAscendingを、Order:=xlDescending
   としてください。


Sub 結合セルでのソート()
  With ActiveWorkbook.ActiveSheet
  
    Range("A2:A11").Copy
    Range("C2:F11").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
  
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range(Range("J2").Value), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  End With

  
  With ActiveSheet.Sort
    .SetRange Range("A2:H11")
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
  

  Range("C2:F11").Select
  Selection.UnMerge
  Range("A1").Select

End Sub

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