Excel VBA質問箱 IV

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

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


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

39491 / 76732

←次へ　｜　前へ→


	【42351】.Saveでは設定できないプロパティがある？

ハチ - 06/9/7(木) 16:52 -


	引用なし

	パスワード

もうちょっと検証してみました。
先ほどのTest()だと、ActiveCellのところで2回動いてました。すいません。

Option Explicit

Sub Test()
　　Dim T As Date
　　T = Now
　　Debug.Print Format(T, "mmss")
　　With Application
　　　　.ThisWorkbook.Worksheets(1).Name = Format(T, "mmss") & "_Test"　'×
　　　　'.ThisWorkbook.Worksheets(1).Visible = Not .ThisWorkbook.Worksheets(1).Visible '×
　　　　'.ThisWorkbook.Worksheets(1).Move _
　　　　After:=.ThisWorkbook.Worksheets(.ThisWorkbook.Worksheets.Count) '×
　　　　.ActiveSheet.Name = Format(T, "mmss") '×
　　　　
　　　　.EnableEvents = False　 '○
　　　　　　.ActiveCell.Value = Format(T, "mmss") '○
　　　　　　.ActiveSheet.Rows(1).Hidden = Not .ActiveSheet.Rows(1).Hidden　 '×
　　　　.EnableEvents = True　　'○
　　　　
　　　　.Caption = Format(T, "mmss") & "_Cap" '○
　　　　.CommandBars("Formatting").Visible = Not .CommandBars("Formatting").Visible '○
　　　　.DisplayFormulaBar = Not .DisplayFormulaBar '×
　　　　Debug.Print .DisplayFormulaBar　'○
　　　　
　　End With
End Sub

なんとなくなんですが
「子オブジェクトがあるとダメっぽい」のかなぁと。
でも、.DisplayFormulaBar　もダメですし・・・
わかりません＞＜

0 hits

▼

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