Excel VBA質問箱 IV

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

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


9300 / 76738 ←次へ | 前へ→

【73001】Re:データ数が変動するときの並び替えの設定
回答  ウッシ  - 12/10/22(月) 11:49 -

引用なし
パスワード
   こんにちは

H〜L列をソートすると書いて有りましたのでM列を作業列に使います。

Sub test3()
  Dim s As Range
  Dim t As Range
  Dim sh As Worksheet
  Dim c As Long
  Set sh = Worksheets("Sheet1")
  Set s = sh.Range("F7", sh.Cells(Rows.Count, "F").End(xlUp))
  c = 7  'F列からM列へのオフセット値
  With s.Offset(, c)
    .Formula = "=IF(F7<>0,F7,"""")"
    .Value = .Value
    
    Set t = .Offset(, -5).Resize(, 6)
    
    Call test_sort(t, "F1", xlNo)
      
    Call test_sort(Intersect(t, .SpecialCells( _
            xlCellTypeConstants).EntireRow), "A1", xlNo)
    Call test_sort(Intersect(t, .SpecialCells( _
            xlCellTypeBlanks).EntireRow), "A1", xlNo)
    .ClearContents
  End With
End Sub
Sub test_sort(Target As Range, Key As String, Header As XlYesNoGuess)
  With Target
    .Select
    .Sort _
      Key1:=.Range(Key), Order1:=xlAscending, _
      Header:=Header, OrderCustom:=1, _
      MatchCase:=False, Orientation:=xlTopToBottom, _
      SortMethod:=xlPinYin, _
      DataOption1:=xlSortNormal
  End With
End Sub


▼はる さん:
>ウッシさん
>
>こんにちは。
>お世話になります。
>
>そうですね。ウッシさんの仰るとおりで私の記載の仕方が良くなかったです。
>記載した表はまだ下のほうにデータが入っていてそこでは「0」が入っています。
>またしてもすいませんでした。
>並び替える基準はE列でお願いします。
>
>すいませんが,以下の場合でお願いします。
>
>
>   A   B   C   D   E   F   G   H   I   J
>1
>2
>3
>4          10月                   Total
>5  名前      数値     数の        名前      数値
>6     <1  1-10  10<  合計            <1  1-10
>7  A君   2   10   1   13   13      O君  120・・・
>8  Yさん  0   0   0   0   0      Yさん 100・・・
>9  G君   0   0   0   0   0      Mさん 106・・・
>10 O君   0   1   2   3   3      K君  200・・・
>11 Nさん  0   0   0   0   0      Nさん  96・・・
>12 Mさん  4   10   0   14   14      B君  162・・・
>13 Iさん  0   0   15   15   15      H君  210・・・
>14 H君   0   0   11   11   11      A君  155・・・
>15 B君   0   0   0   0   0      G君  199・・・
>16 K君   5   0   0   5   5      Iさん 132・・・
0 hits

【72963】データ数が変動するときの並び替えの設定 はる 12/10/18(木) 8:55 質問
【72966】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/18(木) 10:34 回答
【72970】Re:データ数が変動するときの並び替えの設定 はる 12/10/18(木) 12:56 質問
【72971】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/18(木) 13:26 回答
【72973】Re:データ数が変動するときの並び替えの設定 はる 12/10/18(木) 14:20 質問
【72977】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/18(木) 15:32 回答
【72979】Re:データ数が変動するときの並び替えの設定 はる 12/10/18(木) 15:48 お礼
【72972】Re:データ数が変動するときの並び替えの設定 UO3 12/10/18(木) 13:54 発言
【72978】Re:データ数が変動するときの並び替えの設定 はる 12/10/18(木) 15:41 質問
【72987】Re:データ数が変動するときの並び替えの設定 UO3 12/10/19(金) 12:52 発言
【72990】Re:データ数が変動するときの並び替えの設定 はる 12/10/19(金) 15:02 質問
【72991】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/19(金) 15:14 回答
【72992】Re:データ数が変動するときの並び替えの設定 UO3 12/10/19(金) 15:55 発言
【72993】Re:データ数が変動するときの並び替えの設定 はる 12/10/19(金) 16:58 質問
【72994】Re:データ数が変動するときの並び替えの設定 UO3 12/10/19(金) 17:47 発言
【72997】Re:データ数が変動するときの並び替えの設定 はる 12/10/22(月) 9:31 質問
【72998】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/22(月) 10:20 質問
【73000】Re:データ数が変動するときの並び替えの設定 はる 12/10/22(月) 11:19 質問
【73001】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/22(月) 11:49 回答
【73003】Re:データ数が変動するときの並び替えの設定 はる 12/10/22(月) 13:08 質問
【73005】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/22(月) 13:50 回答
【73007】Re:データ数が変動するときの並び替えの設定 はる 12/10/22(月) 14:09 質問
【73009】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/22(月) 14:31 回答
【73012】Re:データ数が変動するときの並び替えの設定 はる 12/10/22(月) 15:47 質問
【73013】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/22(月) 16:48 回答
【73014】Re:データ数が変動するときの並び替えの設定 はる 12/10/22(月) 17:24 質問
【73015】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/22(月) 19:52 回答
【73016】Re:データ数が変動するときの並び替えの設定 はる 12/10/23(火) 10:02 質問
【73017】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/23(火) 10:20 回答
【73018】Re:データ数が変動するときの並び替えの設定 はる 12/10/23(火) 10:47 お礼
【73019】Re:データ数が変動するときの並び替えの設定 ウッシ 12/10/23(火) 11:27 回答
【73020】Re:データ数が変動するときの並び替えの設定 はる 12/10/23(火) 11:46 お礼
【72999】Re:データ数が変動するときの並び替えの設定 UO3 12/10/22(月) 11:14 発言
【73002】Re:データ数が変動するときの並び替えの設定 はる 12/10/22(月) 13:01 お礼
【73008】Re:データ数が変動するときの並び替えの設定 UO3 12/10/22(月) 14:18 発言
【73010】Re:データ数が変動するときの並び替えの設定 はる 12/10/22(月) 15:30 お礼

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