Excel VBA質問箱 IV

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

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


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

【75325】マクロ複数のワークシートがソートできない 菊池 早男 14/2/12(水) 17:55 質問[未読]
【75327】Re:マクロ複数のワークシートがソートでき... マナ 14/2/12(水) 19:31 発言[未読]
【75339】Re:マクロ複数のワークシートがソートでき... 菊池 早男 14/2/13(木) 14:12 お礼[未読]

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

引用なし
パスワード
   いつも大変お世話になっております。
質問箱を拝見し非常に参考になっております。
早速ですが、下記に内容について先輩諸氏のご指導をいただきたくて投稿いたしました。
エクセル2007でワークシート上(シート名は10m)に『並べ替え』コマンドボタンでユーザーフォームを出し、ユーザーフォームの「成績順」「氏名順」コマンドボタンでソート出来るようにいたしました。10mのシートをコピーし8m、6mのワークシートを作り同様にソートしようといたしましたが、ソートしないため8m、6mのVBAコードのシート名を確認したところ10mとなっておりました。(シートコピーが原因か?)8mのVBAコードのシート名を8mに変更すると、今度は10mのワークシートがソート出来ずVBAコードを見たら8mに変わっておりました。どなたかリンク変わらない方法をご教授願います。ご多忙中のところと存じますが宜しくお願いいたします。

Macro1 Macro
'
  Range("C2").Select
  ActiveWorkbook.Worksheets("10m").Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("10m").Sort.SortFields.Add Key:=Range("C2"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  With ActiveWorkbook.Worksheets("10m").Sort
    .SetRange Range("B3:C12")
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
End Sub


Sub Macro2()
'
' Macro2 Macro
'

【75327】Re:マクロ複数のワークシートがソートで...
発言  マナ  - 14/2/12(水) 19:31 -

引用なし
パスワード
   ボタンのあるシート(ActiveSheet)をソートしたいのであれば

ActiveWorkbook.Worksheets("10m")
の部分を
ActiveSheetにしたらどうでしょうか

【75339】Re:マクロ複数のワークシートがソートで...
お礼  菊池 早男 E-MAIL  - 14/2/13(木) 14:12 -

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

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

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