Excel VBA質問箱 IV

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

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


7170 / 13644 ツリー ←次へ | 前へ→

【40733】セルルの枠線をファイル起動と同時に自動で消すには カド 06/7/21(金) 17:15 質問[未読]
【40735】Re:セルルの枠線をファイル起動と同時に自... ぱっせんじゃー 06/7/21(金) 17:34 発言[未読]
【40737】Re:セルルの枠線をファイル起動と同時に自... ぱっせんじゃー 06/7/21(金) 17:40 発言[未読]
【40752】Re:セルルの枠線をファイル起動と同時に自... カド 06/7/22(土) 18:36 お礼[未読]
【40738】Re:セルルの枠線をファイル起動と同時に自... Kein 06/7/21(金) 18:59 回答[未読]
【40753】Re:セルルの枠線をファイル起動と同時に自... カド 06/7/22(土) 18:37 お礼[未読]

【40733】セルルの枠線をファイル起動と同時に自動...
質問  カド  - 06/7/21(金) 17:15 -

引用なし
パスワード
   エクセルって最初からセルに薄い枠線がついていますよね。
この枠線は消すことが出来ますが、消した状態に慣れてしまうと
枠線がわずらわしく感じられます。

マクロが書いてあるファイルA.xlsが起動している状態で、新たに任意の
ファイルB.xlsやC.xlsを開くと、自動でBやCの枠線を消すマクロがAに書けたら、
便利だと思ったのですが、こんなことって出来ましたっけ。

【40735】Re:セルルの枠線をファイル起動と同時に...
発言  ぱっせんじゃー  - 06/7/21(金) 17:34 -

引用なし
パスワード
   WorkbookAの
ThisWorkbookモジュールで
DeActivateイベントで
アクティブなブックに対して枠線
を表示しない、というマクロを
起動させてはいかがでしょう?
※思いつきのみで未検証です。

【40737】Re:セルルの枠線をファイル起動と同時に...
発言  ぱっせんじゃー  - 06/7/21(金) 17:40 -

引用なし
パスワード
   ↓で"一応は"できます。
ただし、ブックBを開いている状態で
さらにブックCを開くとイベントが働
きません。

Private Sub Workbook_Deactivate()
 ActiveWindow.DisplayGridlines = False
End Sub

【40738】Re:セルルの枠線をファイル起動と同時に...
回答  Kein  - 06/7/21(金) 18:59 -

引用なし
パスワード
   >新たに任意のファイルB.xlsやC.xlsを開くと
ブックレベルのイベントではなく、アプリケーションレベルのイベントを使います。
ファイルA.xlsのVBEで「挿入」「クラスモジュール」を選択し、"Class1"という
モジュールが追加されるのを確認して下さい。そのモジュールの先頭から

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
  Dim WS As Worksheet

  Application.ScreenUpdating = False
  For Each WS In Wb.Worksheets
   WS.Activate
   ActiveWindow.DisplayGridlines = False
  Next
  Application.ScreenUpdating = True
End Sub

そしてThisWorkbookモジュールには、先頭から

Dim X As New Class1

Private Sub Workbook_Open()
  Set X.App = Application
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Set X.App = Nothing: ThisWorkbook.Save  
End Sub

というマクロを入れて、ファイルA.xlsを再起動してみてください。

【40752】Re:セルルの枠線をファイル起動と同時に...
お礼  カド  - 06/7/22(土) 18:36 -

引用なし
パスワード
   ▼ぱっせんじゃー さん 回答ありがとうございます。

確かにおっしゃるとおりの動きのため、実用には今ひとつと言ったところですね。

【40753】Re:セルルの枠線をファイル起動と同時に...
お礼  カド  - 06/7/22(土) 18:37 -

引用なし
パスワード
   ▼Kein さん 回答ありがとうございます。

期待通りの動きが確認できました。
こんなこと出来るなんて、質問していながらなんですが、びっくりしました。

7170 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free