マクロって便利だね

複数シートに並び替え　オートフィルタを一括で行おうとすると

ボタンがアクティブにならず、並び替えができません

並び替えるシート数が少ないなら手動でいいのですが

シート数が100

毎月やらなくちゃならない

となると、毎回やるのはめんどくさいですよねぇ

並び替えのマクロを組もう！！

と、VBA、マクロの参考本を買って読んでも

いろんなサイト見てまわったりしても

自分のやりたいやり方を書いているところは

ありません（苦）

マクロ登録ボタンを押して

シート毎に並び替え

登録！！

できたマクロは長ったらしくて美しくない！！！

最初はそれで我慢していましたが、どうにか短縮できないものかと

で、試行錯誤して作ってみましたところ

こうなりました

Sub ボタン_Click()




Dim シート As Integer

For シート = 1 To 100

Sheets(シート).Select
ActiveWorkbook.Worksheets(シート).SORT.SortFields.Clear
ActiveWorkbook.Worksheets(シート).SORT.SortFields.Add Key:=Range( _
"A1:A40"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets(シート).SORT.SortFields.Add Key:=Range( _
"B1:B40"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets(シート).SORT
.SetRange Range("A1:C40")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
Range("A1").Select

End With

Next

End Sub

シート1番めからスタートして100番目になるまで繰り返し

A1:C40を選択して

A列が第一候補

B列が第二候補

に昇順に並び替えです

理解さえすればどうってことなかったのですorz

ジャックと天空の巨人（ネタバレ注意）

面白そうだなと思っていたので、

ブルーレイを買ってきました

近年まれに見るクソ映画でした

内容もなんもない

ツッコミどころ満載

以下ネタバレにつき注意

・水に濡れると成長する豆

→主人公ジャックがポケットにいれているときに全身びしょ濡れになるほどの大雨

→なぜか豆は無事

→は？？？

・世界観ブチ壊しの千原せいじによる大阪弁吹き替え

・棒読み南海キャンディーズ山さん

・豆の木を切り倒す

→いや、キャンプの火で燃やせよｗ

・城にかえるぞー

→あれ？軍隊少なすぎるよね？ｗｗｗ

・水に落ちても消えない火ｗｗｗｗ

・巨木をいともたやすく投げる巨人と人間が綱引きでいい勝負ｗ

・でもやっぱり負ける→門をしめろーーーー！！

最初っからしめとけよｗｗｗｗｗｗ

・巨人に食べられそうになるジャック

→もたもたと○を取り出し

→ゆっくり○を落とす

いや、そこは投げろよｗｗｗｗ

・「なんでだ？」

いや、そこは「なにが起きた」とか、「なんだあれは」だろｗｗｗｗ

オチもバレバレで、最後までつまらんかった

トマ美ちゃん

最近太ってきたー

ダイエットしたいけど、なかなか続かないですよね

そこで楽に痩せたいなぁと思っているところへ

トマトのリコピンでダイエットーー

みたいなＴＶ通販をやっていたのですよ

トマトにダイエット効果？？？？

父はトマト大好きで毎日のように食っていたけど

太ってるぞ？？

なんか嘘くさい・・・

けど、まあ観るテレビもないので最後までみる（観るんかいっ）

うん、で、最後に価格が出てきて

6,000円

（高いよ）

・・・のところを！

先着100名様に2,980円で提供！！

おおっ半額！！！買おうかなとちょっと揺らいだ自分がアホらしい

ここまで前置き

で、薬局に用事があって昨日店内をフラーっとしていたら

ありましたよトマ美ちゃん

でもお高いんでしょう？？と価格をみたら

2,980円

おいっ

なんだよこの詐欺みたいな通販の仕方は