ＶＢＡ マクロ 他ファイル 毀損 防止 の件

質問

マクロの初心者です。ＶＢＡ　マクロでタイマープログラムを作成しましたが、実行中に、他のファイルをオープンにすると、他ファイル上にタイマー数字が出現し、困っています。どなたか、他ファイル保護のためのプログラム作成方法を教えていただけないでしょうか？よろしくお願いします。

回答No.2

aoyama984 · ベストアンサー

Ｓｕｂ　作業台1作業開始（）
With　ThisWorkBook.Sheets("Sheet1")
．Ｒａｎｇｅ（”Ｋ１６”）＝．Ｒａｎｇｅ（”Ｋ１６”）＋１
End　With

Sub やりたいこと（）
　Ｔｏｔａｌ１＝ＨＨ１＆”：”＆ＭＭ１＆”：”＆ＳＳ１
With　ThisWorkBook.Sheets("Sheet1")
．Ｒａｎｇｅ（”Ｅ６”）＝Ｔｏｔａｌ１
End　With

ブックまで指定すれば
同じSheet1を持っていても
同じK16セルを持っていても
目的の場所を更新できます

http://www.excellenceweb.net/vba/object/active_this_book.html

お礼

お返事遅くなりまして、申し訳ありませんでした。aoyama984様のおっしゃられました通り、bookの指定をすることで、ファイル毀損問題は解決しました。本当にありがとうございました。その上、ネットのリンク先でEXCELのインストラクトまでしていただいて感謝の限りです。これからもよろしくお願いします。

回答No.1

aoyama984

どんなプログラムなのでしょうか
実行中の別ブックに　ということは
ブックを指定していないのではないでしょうか
Range("A1").Value = タイマー
アクティブなブック　アクティブなシート　に書いてしまうので
ブック.シート.Range("A1").Value = タイマー
ブックもシートも指定するとよいのでは
困っているプログラムを提示して質問してもらえると助かります

補足

aoyama984様へ
ご質問の件、以下に記します。

変数の宣言
Ｓｕｂ　作業台1作業開始（）
ｍywait1= 1
指定時刻１=Ｎｏｗ＋TimeSerial(0,0,ｍｙwait1)
Ｉｆ　ZAN1 >=1 Then
　　If MacroStop1=False Then
Application.On.Time 指定時刻1，"作業台1作業開始"
Ｃａｌｌ　やりたいこと
Ｅｌｓｅ
Ｅｎｄ　Ｉｆ
ＭａｃｒｏＳｔｏｐ1＝Ｆａｌｓｅ
Ｅｎｄ　Ｉｆ
Ｉｆ　ＺＡＮ１　＝１　Ｔｈｅｎ
Ｓｈｅｅｔｓ（”ｓｈｅｅｔ１”）．Ｒａｎｇｅ（”Ｋ１６”）＝Ｓｈｅｅｔｓ（”ｓｈｅｅｔ１”）．Ｒａｎｇｅ（”Ｋ１６”）＋１
Ｅnd If
Sub やりたいこと（）
　Ｔｏｔａｌ１＝ＨＨ１＆”：”＆ＭＭ１＆”：”＆ＳＳ１
Ｓｈｅｅｔｓ（”ｓｈｅｅｔ１”）．Ｒａｎｇｅ（”Ｅ６”）＝Ｔｏｔａｌ１
・・・
Ｓｕｂ　Ｉｎｉｔ（）
ＭａｃｒｏＳｔｏｐ１＝Ｆａｌｓｅ
ＺＡＮ１＝１
Ｔotal1=1
．．．．
以上です。
もし説明不足の点があればご質問ください。
お手数おかけします。