Excel VBA質問箱 IV

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

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


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

【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 -

引用なし
パスワード
   いつもお世話になっております。
またまたお助けください。

今、2枚あるシートの行列番号を
下記のコードで非表示にするところまでは確認できております。
----------
  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 -

引用なし
パスワード
   ▼わさび さん:
こんばんは。

>
>今、2枚あるシートの行列番号を
>下記のコードで非表示にするところまでは確認できております。
>----------
>  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を使うとはまったく思いつきませんでした。
これを元に、望んでいる動きが実現しそうです。
また何かわからないところがあったら質問させてください。
本当にありがとうございました。

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