エクセルマクロで「今作業をしているファイルを指定す

質問

る方法について」
上書きのマクロについて質問をしましてｘｌｓ８８さんからお答えいただき無事うまくいきました。そこで次の場合どうすればよういかご教授お願いします。
Sub 全体名簿へ2組()
'
' 全体名簿へ2組 Macro
'

'
Windows("全体名簿.xlsm").Activate
Sheets("★生徒名簿").Select
If MsgBox("Ｂ列で前のクラスの生徒の次のセルを選択していますか？", vbYesNo) = vbYes Then
Range("B" & ActiveCell.Row, "n" & Range("B65536").End(xlUp).Row).ClearContents
Else: Worksheets("★生徒名簿").Activate

Windows("２組.xlsm").Activate
Sheets("★生徒名簿").Select
開始 = Range("r3").Value
終了 = Range("s3").Value
Range("B" & 開始 + 1 & ":n" & 終了 + 1).Select
Selection.Copy

Windows("全体名簿.xlsm").Activate
Sheets("★生徒名簿").Select
ActiveSheet.Paste
End If
End Suｂ

上記の文で「Windows("２組.xlsm").Activate」でここを今作業しているファイル名を使わずに「２組」と特定しない方法です。なぜかというと全体名簿のフィルをコピーして１組から３組までのクラスに分けるからです。２組と特定してしまうと１，３組は使えなくなってしまうからです。何かいい方法があったらお願いします。

回答No.3

junichihirobe · ベストアンサー

ANo.1です。

だから、1組、2組、3組で別々にマクロを作成して、
マクロボタンに登録して、順番にマクロ呼び出せばいいのでは？

CALL 1組
CALL 2組
CALL 3組

でできると思います。

無理してファイル名を変数にしないでもできると思いますけど・・・。

補足

ご回答ありがとうございます。全体名簿から１から３組を呼び出す方法のアイデア参考になりました。そこで，そのＣａｌｌを使ったマクロの具体例を教えていただければありがたいのですがよろしくお願いします。

回答No.2

mshr1962

Sub 全体名簿へ2組()
'
' 全体名簿へ2組 Macro
'

'
Dim WBA,WBB As String
WBA = ActiveWorkBooks.Name '自分のブック名
WBB = "全体名簿.xlsm" '全体のブック名

Windows(WBB).Activate
Sheets("★生徒名簿").Select
If MsgBox("Ｂ列で前のクラスの生徒の次のセルを選択していますか？", vbYesNo) = vbYes Then
Range("B" & ActiveCell.Row, "n" & Range("B65536").End(xlUp).Row).ClearContents
Else: Worksheets("★生徒名簿").Activate

Windows(WBA).Activate
Sheets("★生徒名簿").Select
開始 = Range("r3").Value
終了 = Range("s3").Value
Range("B" & 開始 + 1 & ":n" & 終了 + 1).Select
Selection.Copy

Windows(WBB).Activate
Sheets("★生徒名簿").Select
ActiveSheet.Paste
End If
End Suｂ

補足

ご回答ありがとうございます。質問ですがWBA = ActiveWorkBooks.Name '自分のブック名
WBB = "全体名簿.xlsm" '全体のブック名で'自分のブック名と'全体のブック名には何を入れればよろしいのでしょうか。ちなみに試してみましたが，オブジェクトが必要ですとエラーがでてしまいWBA = ActiveWorkBooks.Name '自分のブック名のところが黄色くなってしまいます。なにか対処方法ありますか。

回答No.1

junichihirobe

別に1組と3組のマクロを作成すればよいのでは？

補足

ご回答ありがとうございます。１から３組までできたデータを全体で合体させ，次の年クラス替えした名簿，データを分け次の年のデータを入力してもらいまた，合体するためです。ずっと１から３組まで同じ名簿だったら簡単なんですが・・・・・。