Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39449 / 76732

←次へ　｜　前へ→


	【42393】Re:.Saveでは設定できないプロパティがあ...

ハチ - 06/9/9(土) 7:50 -


	引用なし

	パスワード

▼漂流民さん：

こちらのサイトで「ThisWorkbook.Save バグ」で検索すると
ちょっと意味あいが違いますけど、過去ログにもありました。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=8874;id=excel

>ちなみに、Excell2000と2003で確認したところ、共に現象が確認できたので
>バージョンは関係なさそうです。
>.Saveを使用する際は注意するより仕方ないということですかね？！

.Saveというかイベント全般なのかもしれません。

.SaveからのCellsオブジェクトへのアクセスは問題なさそうなので
.Saveで任意セルに書き込み → Changeイベントでプロシージャをキック
としてみたのですがこれもダメでした。

'標準モジュール
Sub Test2()
'何らかの処理
'・・・・
ThisWorkbook.Save
End Sub

'-----------------
'ThisWorkbookモジュール
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　With Worksheets(1)
　　　　.Range("A1").Value = .Range("A1").Value + 1
　　End With
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　If Sh.Name <> Worksheets(1).Name Then Exit Sub
　　If Target.Address <> "$A$1" Then Exit Sub
　　
　　With Worksheets(1)
　　　　.Copy After:=Worksheets(Worksheets.Count)
　　　　Worksheets(Worksheets.Count).Name = .Range("A1").Value
　　　　.Activate
　　End With
End Sub

1 hits

▼

【41354】BeforeSaveイベントでOnTimeを再セットで... ハチ 06/8/7(月) 13:20