Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6988 / 76732

←次へ　｜　前へ→


	【75339】Re:マクロ複数のワークシートがソートできない

菊池　早男

- 14/2/13(木) 14:12 -


	引用なし

	パスワード

▼菊池　早男さん：
>いつも大変お世話になっております。
>質問箱を拝見し非常に参考になっております。
>早速ですが、下記に内容について先輩諸氏のご指導をいただきたくて投稿いたしました。
>エクセル2007でワークシート上(シート名は１０ｍ)に『並べ替え』コマンドボタンでユーザーフォームを出し、ユーザーフォームの「成績順」「氏名順」コマンドボタンでソート出来るようにいたしました。１０ｍのシートをコピーし８ｍ、６ｍのワークシートを作り同様にソートしようといたしましたが、ソートしないため８ｍ、６ｍのＶＢＡコードのシート名を確認したところ１０ｍとなっておりました。（シートコピーが原因か？）８ｍのＶＢＡコードのシート名を８ｍに変更すると、今度は１０ｍのワークシートがソート出来ずＶＢＡコードを見たら８ｍに変わっておりました。どなたかリンク変わらない方法をご教授願います。ご多忙中のところと存じますが宜しくお願いいたします。
>
>Macro1 Macro
>'
>　　Range("C2").Select
>　　ActiveWorkbook.Worksheets("10ｍ").Sort.SortFields.Clear
>　　ActiveWorkbook.Worksheets("10ｍ").Sort.SortFields.Add Key:=Range("C2"), _
>　　　　SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
>　　With ActiveWorkbook.Worksheets("10ｍ").Sort
>　　　　.SetRange Range("B3:C12")
>　　　　.Header = xlNo
>　　　　.MatchCase = False
>　　　　.Orientation = xlTopToBottom
>　　　　.SortMethod = xlPinYin
>　　　　.Apply
>　　End With
>End Sub
>
>
>Sub Macro2()
>'
>' Macro2 Macro
>'

マナさん
お忙しい中で早速のご指導大変有難うございました。
ご指導の内容でＶＢＡコードを修正いたしましたら懸案の内容が解決いたしました。誠に感謝いたしております。
これからもご指導いただく機会が多々あると思いますので変わらぬご指導をお願いいたします。

2 hits

▼

【75325】マクロ複数のワークシートがソートできない 菊池　早男 14/2/12(水) 17:55