削除

スケジュールのVBA 削除

Message#1 2014年12月26日(金)09時38分
From: スケジュールのVBA

初心者ですが、どなたか教えて頂けませんでしょうか？
当日スケジュールというエクセルでVBAを作っておりまして、会議室.xlsファイルからデータをコピーして張り付けるというVBAを作っております。

会議室.xlsファイルが開いていなかったら開き、その後また作業をしたいのですが、
開いたら会議室.xlsの中のアクティブになったシートのＶＢＡが走ってしまいま
した。
開いたあと、そのまま次のＶＢＡを続けて走らせる方法はありますでしょうか？

Sub 会議室予約自動コピー()

Dim f As Integer
For f = 1 To Workbooks.Count
If (Workbooks(f).Name = "会議室.xls") Then
Exit For
End If
Next
If (f > Workbooks.Count) Then Workbooks.Open Filename:="I:\\\2014_会議
室.xls"

Dim i As Long
Dim v As Long

v = 1

For i = 1 To 31

v = v + 6

If ActiveSheet.Name = i Then Exit For

・
・
・
と続きます。

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。