Excel VBA質問箱 IV

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

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


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

【37482】ツールバーの非表示 ペーロケ 06/5/9(火) 14:08 質問[未読]
【37483】Re:ツールバーの非表示 ぴかる 06/5/9(火) 14:59 回答[未読]
【37484】Re:ツールバーの非表示 ペーロケ 06/5/9(火) 15:19 発言[未読]
【37485】Re:ツールバーの非表示 ぴかる 06/5/9(火) 15:24 発言[未読]
【37486】Re:ツールバーの非表示 ペーロケ 06/5/9(火) 15:30 発言[未読]
【37487】Re:ツールバーの非表示 ぴかる 06/5/9(火) 15:38 発言[未読]
【37488】Re:ツールバーの非表示 ペーロケ 06/5/9(火) 15:52 発言[未読]
【37489】Re:ツールバーの非表示 ぴかる 06/5/9(火) 15:55 発言[未読]
【37490】どうもでした ペーロケ 06/5/9(火) 16:06 お礼[未読]
【37491】Re:どうもでした Jaka 06/5/9(火) 16:48 発言[未読]
【37492】ついでに質問いいですか? ペーロケ 06/5/9(火) 17:42 質問[未読]
【37493】Re:ついでに質問いいですか? ゆみ 06/5/9(火) 19:02 発言[未読]
【37494】Re:ついでに質問いいですか? ペーロケ 06/5/9(火) 19:37 お礼[未読]

【37482】ツールバーの非表示
質問  ペーロケ  - 06/5/9(火) 14:08 -

引用なし
パスワード
   ファイルを開いた際に、全てのツールバーを非表示にさせたいんですが
一括で設定する方法はどうやればいいのか分かりません・・・
ご教授願います。

Application.CommandBars.("????")Visible = False

【37483】Re:ツールバーの非表示
回答  ぴかる  - 06/5/9(火) 14:59 -

引用なし
パスワード
   ペーロケさん、こんにちは。

こんなんでどうです?
Sub AUTO_OPEN()
  
  With Application
    .DisplayFullScreen = True
    .CommandBars("Full Screen").Visible = False
  End With

End Sub
Sub AUTO_CLOSE()
  
  Application.DisplayFullScreen = False

End Sub

【37484】Re:ツールバーの非表示
発言  ペーロケ  - 06/5/9(火) 15:19 -

引用なし
パスワード
   ぴかるさん 早速ありがとうございます。

試してみたんですが、
ツールバーが非表示になりません(泣

何故でしょうか・・・


>Sub AUTO_OPEN()
>  
>  With Application
>    .DisplayFullScreen = True
>    .CommandBars("Full Screen").Visible = False
>  End With
>
>End Sub
>Sub AUTO_CLOSE()
>  
>  Application.DisplayFullScreen = False
>
>End Sub

【37485】Re:ツールバーの非表示
発言  ぴかる  - 06/5/9(火) 15:24 -

引用なし
パスワード
   ▼ペーロケ さん:
そしたらですね、[表示→全画面表示]の操作を手動で行ってみて下さい。
どうなります?

【37486】Re:ツールバーの非表示
発言  ペーロケ  - 06/5/9(火) 15:30 -

引用なし
パスワード
   ぴかるさん どうもです。

>そしたらですね、[表示→全画面表示]の操作を手動で行ってみて下さい。
>どうなります?

やってみたんですが、やはりツールバーは残ったままになります。
目標としては、ファイルを開いた時に全画面(解決)にして、ツールバーを
全て非表示にすることです。
そして、ファイルを閉じる際に、全てを元に戻したいなぁと考えてます。。

自動記録でツールバーの非表示は分かったんですが
これを一括してやる方法はあるのかなぁ・・・というのがテーマです(汗

【37487】Re:ツールバーの非表示
発言  ぴかる  - 06/5/9(火) 15:38 -

引用なし
パスワード
   ▼ペーロケ さん:
メニューバーも非表示という事でしたら、こんな感じです。
どうです?

Sub AUTO_OPEN()
  
  On Error Resume Next
  With Application
    .DisplayFullScreen = True
    .CommandBars("Full Screen").Visible = False
    .CommandBars("Worksheet Menu Bar").Enabled = False
  End With

End Sub
Sub AUTO_CLOSE()
  
  On Error Resume Next
  With Application
    .DisplayFullScreen = False
    .CommandBars("Worksheet Menu Bar").Enabled = True
  End With

End Sub

【37488】Re:ツールバーの非表示
発言  ペーロケ  - 06/5/9(火) 15:52 -

引用なし
パスワード
   ぴかるさん 度々すいません!

メニュバーまそのままにしておいて、
別途、選択させないようにしているので問題ないのですが、
あくまで、ツールバーの表示、非表示を行いたいです!

自動記録だと↓のように

Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("3-D Settings").Visible = False
・・・
・・・
・・・

全てのツールバーの設定を余儀なくされるのかな・・・と思っているんですが
どうなんでしょうか??

うまく説明できていないようでしたスイマセン!!

【37489】Re:ツールバーの非表示
発言  ぴかる  - 06/5/9(火) 15:55 -

引用なし
パスワード
   ▼ペーロケ さん:
ゴメンナサイです。手動の全画面表示がうまく行かないのなら、私では無理の様です。どなた様かよろしくです!

【37490】どうもでした
お礼  ペーロケ  - 06/5/9(火) 16:06 -

引用なし
パスワード
   ぴかるさん すいませんでした・・・ 上手く伝わっていないようでした・・・

>ゴメンナサイです。手動の全画面表示がうまく行かないのなら、私では無理の様です。どなた様かよろしくです!

とりあえず、ツールバーに関しては長くなっちゃいますが
一つずつ記述して今は乗り切ろうと思います!

ありがとうございました!

【37491】Re:どうもでした
発言  Jaka  - 06/5/9(火) 16:48 -

引用なし
パスワード
   これでコマンドバーの名前とインデックス番号が解りますから
インデックス番号で分岐させてみては...。
中には、.Visible = False と出来ない物もありますから、
色々テストしてみてください。
数式バー、Chart Menu Bar、Formatting、他などがダメみたいでした。
(グラフシートの時などの違いもあると思いますが...)
後は、自分で調べてください。

Sub AAA()
  Dim mnb As CommandBar
  For Each mnb In Application.CommandBars
    i = i + 1
    Cells(i, 2).Value = mnb.Name
    Cells(i, 1).Value = mnb.Index
    'mnb.Visible = False
  Next
End Sub

【37492】ついでに質問いいですか?
質問  ペーロケ  - 06/5/9(火) 17:42 -

引用なし
パスワード
   Jakaさん わざわざありがとうございます。

>これでコマンドバーの名前とインデックス番号が解りますから
>インデックス番号で分岐させてみては...。

インデックス番号については、ちょうど調べていたところでした(汗
たまたまネットサーフしていたらインデックス・・・とあったので
チャレンジ中です。。

>中には、.Visible = False と出来ない物もありますから、

これは知りませんでした。参考にします!

>数式バー、Chart Menu Bar、Formatting、他などがダメみたいでした。
>(グラフシートの時などの違いもあると思いますが...)
>後は、自分で調べてください。

地道にやってみます!


ついでにですが、質問です。
まだまだVBAの事が勉強不足で恐縮ですが、
非表示にしてあるシートを、コマンドボタンを介して表示させることって
できないんでしょうか?

例えば、シート1,2,3があって
シート3を非表示にしておいて
シート1にコマンドボタンで

sub test()
sheet3.select
end sub

とすると、エラーが出ます。

sheets("sheet3").select

としてもエラーが出ます。

教えて頂ければ幸いです。

【37493】Re:ついでに質問いいですか?
発言  ゆみ  - 06/5/9(火) 19:02 -

引用なし
パスワード
   ▼ペーロケ さん:

>ついでにですが、質問です。
>まだまだVBAの事が勉強不足で恐縮ですが、
>非表示にしてあるシートを、コマンドボタンを介して表示させることって
>できないんでしょうか?
>
>例えば、シート1,2,3があって
>シート3を非表示にしておいて
>シート1にコマンドボタンで
>
>sub test()
>sheet3.select
>end sub
>
>とすると、エラーが出ます。
>
>sheets("sheet3").select
>
>としてもエラーが出ます。
>
>教えて頂ければ幸いです。

別の質問は別のスレッドを立てるべきだと思いますよ。
他の方々は、いろいろ検索をしています。
この質問箱の中を検索しています。
よって、質問のタイトルは分かりやすいタイトルにしたほうが検索の際にも便利になります。
「教えてください」とか「質問いいですか?」とかは一番嫌われます。
質問の掲示板なんですから、質問するのは当然のことです。
質問しちゃダメというのなら質問掲示板の意味がありませんから。

ところで、非表示のシートをセレクトする方法ですが、
まずコードの回答を聞く前に自分でできることをやってみましょう。
マクロの自動記録をやってみれば自ずと答えは見えてきます。

非表示のシートを選択する場合は、非表示の解除というか再表示をしますよね。
再表示をさせるときに、マクロの自動記録をやれば求めているコードが得られますよ。
その得られたコードをコマンドボタンに貼り付ければ問題ないと思います。

見当違いのことを書いてましたら申し訳ありません。

【37494】Re:ついでに質問いいですか?
お礼  ペーロケ  - 06/5/9(火) 19:37 -

引用なし
パスワード
   ゆみさん 厳しいご指摘ありがとうございます。

自動記録の方法、すっかりやるのを忘れてました・・・
すいません・・・

で、一応解決できました。
ちょっと急いでたので、冷静さを失ってました(汗

もう少し研究してます!
ありがとうございました!

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