Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9018 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【29791】行列番号を非表示（Windowをアクティブに... わさび 05/10/13(木) 19:17 質問[未読]
【29796】Re:行列番号を非表示（Windowをアクティブ... ichinose 05/10/13(木) 20:11 発言[未読]
【29798】Re:行列番号を非表示（Windowをアクティ... hine 05/10/13(木) 20:28 発言[未読]
【29802】Re:行列番号を非表示（Windowをアクティブ... わさび 05/10/13(木) 21:17 お礼[未読]
【29791】行列番号を非表示（Windowをアクティブに...
質問  わさび  - 05/10/13(木) 19:17 -
引用なし
パスワード
   いつもお世話になっております。
またまたお助けください。

今、２枚あるシートの行列番号を
下記のコードで非表示にするところまでは確認できております。
----------
　　ThisWorkbook.Worksheets("Sheet1").Activate
　　ActiveWindow.DisplayHeadings = False
　　ThisWorkbook.Worksheets("Sheet2").Activate
　　ActiveWindow.DisplayHeadings = False
----------

このとき、シートをいちいちアクティブにしないでも
行列番号を非表示にすることはできないでしょうか。

イメージとしては、
----------
　　With ThisWorkbook
　　　　.Worksheets("Sheet1").○○Window.DisplayHeadings = False
　　　　.Worksheets("Sheet2").○○Window.DisplayHeadings = False
　　End With
----------
という形で考えているのですが、
「○○」の部分に「Active」ではなく、何を入れればいいのかよくわかりません。
そもそも、このWindowの概念がよくわかっていないような気もします。

もしくはもっと簡単な方法や別の方法はありますでしょうか。
ご指南のほど、どうかよろしくお願い致します。
【29796】Re:行列番号を非表示（Windowをアクティ...
発言  ichinose  - 05/10/13(木) 20:11 -
引用なし
パスワード
   ▼わさび さん：
こんばんは。

>
>今、２枚あるシートの行列番号を
>下記のコードで非表示にするところまでは確認できております。
>----------
>　　ThisWorkbook.Worksheets("Sheet1").Activate
>　　ActiveWindow.DisplayHeadings = False
>　　ThisWorkbook.Worksheets("Sheet2").Activate
>　　ActiveWindow.DisplayHeadings = False
>----------
>
>このとき、シートをいちいちアクティブにしないでも
>行列番号を非表示にすることはできないでしょうか。
いちいちではなく、一度に選択してしまうのはいかがでしょうか？


'==========================================
Sub test()
　　Set sht = ActiveSheet
　　Worksheets(Array("sheet1", "sheet2")).Select
　　ActiveWindow.DisplayHeadings = false
　　sht.Select
End Sub
確認してください。
【29798】Re:行列番号を非表示（Windowをアクティ...
発言  hine  - 05/10/13(木) 20:28 -
引用なし
パスワード
   ▼わさび さん：
こんばんは

ichinoseさん
後からすいません
おゆるしを

Dim myArr As Variant
Dim f As Long

myArr = Array("Sheet1", "Sheet2")
For f = 0 To 1
　　With Worksheets(myArr(f))
　　　　.Activate
　　　　ActiveWindow.DisplayFormulas = False
　　　　ActiveWindow.DisplayHeadings = False
　　End With
Next

ichinoseさんのほうがスマートだと思います。
【29802】Re:行列番号を非表示（Windowをアクティ...
お礼  わさび  - 05/10/13(木) 21:17 -
引用なし
パスワード
   ichinoseさん、hineさん

Arrayを使うとはまったく思いつきませんでした。
これを元に、望んでいる動きが実現しそうです。
また何かわからないところがあったら質問させてください。
本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9018 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free