大変お世話になっております。
以下ですと、Sheet3に対してしか実行出来ないマクロとなってしまいます…。
シート名に関わらず、開いているシートに対してマクロを実行するコードに変更をお願い申し上げます。
ご回答を、心よりお待ちしております。
どうぞ宜しくお願い申し上げます。
(Win11 Office365です)
Sub Macro11()
'
' Macro11 Macro
'
'
ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Add2 Key:=Range("C2:C323" _
), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="〇,×", _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Add2 Key:=Range("G2:G323" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet3").Sort
.SetRange Range("A1:FI323")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは
現在のアクティブなシートで良ければ、
シートを指定している
>ActiveWorkbook.Worksheets("Sheet3")
の部分を
ActiveSheet
に変えれば良いのでは?
最初に、
Set sht = ActiveSheet
などとして変数に代入しておいて、後はそれを用いるか、あるいは
With ActiveSheet
~~~
End With
として記述する方法もあります。
fujillin様
いつも大変お世話になっております…!
『シートを指定している
>ActiveWorkbook.Worksheets("Sheet3")
の部分を
ActiveSheet
に変えれば良いのでは?』
お教え下さいました通りに変更しました所、とても上手くいきました…!!
マクロの記録を初めて使用し、実行しましたが、fujillin様のアドバイスのお陰です…! マクロの記録が、結構良い、かなり良いことを実感しました!!
fujillin様、いつも本当に有難うございます…!
また質問をさせていただきますため、是非宜しくお願い申し上げます!
今後共、どうぞ宜しくお願い申し上げます!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
【お題】 ・存在しそうで存在しないモノマネ芸人の名前を教えてください
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
これ何て呼びますか Part2
あなたのお住いの地域で、これ、何て呼びますか?
-
【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
【お題】 ・買ったばかりの自転車を分解してひと言
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
マクロを複数シートに実行するには?
Excel(エクセル)
-
Excel マクロを各シートごとに実行したい
Excel(エクセル)
-
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
-
4
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
5
VBAでセルに入っている日付をシート名にする
Excel(エクセル)
-
6
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
7
エクセルでマウスカーソルの形が十字のままになってしまう
Excel(エクセル)
-
8
Excel-VBAでInputBox+Pulldownは可能??
Visual Basic(VBA)
-
9
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
10
Excelで重複データの件数ではなく、何番目かを求める方法
Excel(エクセル)
-
11
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
12
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
13
Excel > ピボットテーブル「(空白)」非表示
Excel(エクセル)
-
14
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
15
別シートのマクロを実行する方法
Excel(エクセル)
-
16
excelで直前に参照していたブックに戻るマクロは作れますか?
Excel(エクセル)
-
17
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
18
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
19
セル入力文字が、「右のセルにはみ出す場合と」「はみ出さない場合」の違い
Excel(エクセル)
-
20
Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAでPDFを閉じるソース
-
エクセルで特定の列が0表示の場...
-
エクセルに張り付けた写真のフ...
-
ExcelのVBA。public変数の値が...
-
Excel・Word リサーチ機能を無...
-
メッセージボックスのOKボタ...
-
エクセルのマクロをセルの値に...
-
特定のPCだけ動作しないVBAマク...
-
一つのTeratermのマクロで複数...
-
マクロで空白セルを詰めて別シ...
-
Excel_マクロ_現在開いているシ...
-
VBAコードのインデント表示
-
VBAにて別ワークブック上の実行...
-
マクロ実行時、ユーザーフォー...
-
Excelで特定の文字のところで自...
-
Excel マクロでShearePoint先の...
-
毎日指定時刻に自動でエクセル...
-
wordを起動した際に特定のペー...
-
UWLSの記録でマクロを作成し使...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルに張り付けた写真のフ...
-
ExcelのVBA。public変数の値が...
-
Excel マクロでShearePoint先の...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
特定文字のある行の前に空白行...
-
Excel VBAからAccessマクロを実...
-
wordを起動した際に特定のペー...
-
マクロ実行時、ユーザーフォー...
-
エクセルで別のセルにあるふり...
-
マクロで空白セルを詰めて別シ...
-
ソース内の行末に\\
-
Excel_マクロ_現在開いているシ...
-
ダブルクリックで貼り付けた画...
おすすめ情報