Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10752 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20047】メニューバー位置にグレーの帯が表示され... あおい 04/11/26(金) 11:34 質問[未読]
【20048】Re:メニューバー位置にグレーの帯が表示さ... IROC 04/11/26(金) 11:42 回答[未読]
【20049】Re:メニューバー位置にグレーの帯が表示... あおい 04/11/26(金) 11:50 質問[未読]
【20050】Re:メニューバー位置にグレーの帯が表示... あおい 04/11/26(金) 12:02 質問[未読]
【20051】Re:メニューバー位置にグレーの帯が表示... IROC 04/11/26(金) 12:57 回答[未読]
【20052】Re:メニューバー位置にグレーの帯が表示... あおい 04/11/26(金) 13:06 質問[未読]
【20053】Re:メニューバー位置にグレーの帯が表示... IROC 04/11/26(金) 13:09 回答[未読]
【20054】Re:メニューバー位置にグレーの帯が表示... あおい 04/11/26(金) 13:39 質問[未読]
【20055】Re:メニューバー位置にグレーの帯が表示... IROC 04/11/26(金) 14:08 回答[未読]
【20057】Re:メニューバー位置にグレーの帯が表示... あおい 04/11/26(金) 14:36 質問[未読]
【20058】Re:メニューバー位置にグレーの帯が表示... IROC 04/11/26(金) 15:20 回答[未読]
【20063】Re:メニューバー位置にグレーの帯が表示... あおい 04/11/26(金) 17:07 質問[未読]
【20047】メニューバー位置にグレーの帯が表示され...
質問  あおい  - 04/11/26(金) 11:34 -
引用なし
パスワード
   初めて投稿させていただきます。
今、表題の件で困っているのです。
シートが１〜４まであり、AUTO_OPEN時に下のコードで
メニューバーを非表示にしています。
　　Dim myCB As CommandBar

　　For Each myCB In CommandBars
　　　 '---使用可能/使用不可能を切り替える
　　　 myCB.Enabled = False
　　Next

この状態で、シート１の内容をシート４にCOPYしています。
　　Dim Ws1 As Worksheet, Ws2 As Worksheet
　　Set Ws1 = Worksheets("シート１")
　　Set Ws2 = Worksheets("シート２")
　　　　　　
　　Ws1.Range(Cells(6, "A"), Cells(nrow, "A")).Copy
　　Ws2.Range("A5").PasteSpecial　　
　　Application.CutCopyMode = False

この間複数列のコピーをしています
　　
　　Sheets("確認用").Select
　　Ws2.Cells.Select
　　With Selection.Font
　　　　.Name = "ＭＳ Ｐゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 9
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = 1
　　End With
　　Selection.Interior.ColorIndex = xlNone
　　Ws2.Range("A5").Select
　　Ws2.Range("A:BM").EntireColumn.AutoFit

この作業が終わった時に、メニューバーが表示される部分が
グレーになってしまうのです。
この状態はシート４だけでなく他のシートも同様の状態です。
なにが原因なのかまったくわかりません。
どうぞよろしくお願いいたします。
【20048】Re:メニューバー位置にグレーの帯が表示...
回答  IROC  - 04/11/26(金) 11:42 -
引用なし
パスワード
   >メニューバーを非表示にしています。
Application.CommandBars("Worksheet Menu Bar").Enabled = False
メニューバーだけなら、ループしなくても、これだけでできますよ。


もしツールバーも非表示にするなら
Application.DisplayFullScreen = True
で全画面表示にしても良いかと思います。
【20049】Re:メニューバー位置にグレーの帯が表示...
質問  あおい  - 04/11/26(金) 11:50 -
引用なし
パスワード
   IROC さんありがとうございます。

>もしツールバーも非表示にするなら
>Application.DisplayFullScreen = True
>で全画面表示にしても良いかと思います。

これでグレーの帯もきえるのでしょうか。
早速、試してみます。
【20050】Re:メニューバー位置にグレーの帯が表示...
質問  あおい  - 04/11/26(金) 12:02 -
引用なし
パスワード
   IROCさん

試しましたが、グレーの帯の解決に至りません。
帯の幅が丁度、コマンドバーの幅のような気がするのですが。
よろしくお願いします。
【20051】Re:メニューバー位置にグレーの帯が表示...
回答  IROC  - 04/11/26(金) 12:57 -
引用なし
パスワード
   他に余分なマクロはなく、提示したコードだけで検証しましたか？

Excelと、Windowsのバージョンもお教え下さい。
【20052】Re:メニューバー位置にグレーの帯が表示...
質問  あおい  - 04/11/26(金) 13:06 -
引用なし
パスワード
   IROC さん
>他に余分なマクロはなく、提示したコードだけで検証しましたか？
シート１〜３に対してAUTO_OPENで保護をかけてます。
'　　Application.ScreenUpdating = False
'　　Set Ws1 = Worksheets("シート１")
'　　Set Ws2 = Worksheets("シート２")
'　　Set Ws3 = Worksheets("シート３")
'　　Ws1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'　　Ws2.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'　　Ws3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'　　Sheets("給与支払報告書").Select
'　　Range("k1").Select
です。
これをコメントにして試したところ上手く動作しました。
なにがいけなかったんでしょうか。

>Excelと、Windowsのバージョンもお教え下さい。
EXCEL2000 WINDOWS ME です。
【20053】Re:メニューバー位置にグレーの帯が表示...
回答  IROC  - 04/11/26(金) 13:09 -
引用なし
パスワード
   Application.ScreenUpdating = False

では？
【20054】Re:メニューバー位置にグレーの帯が表示...
質問  あおい  - 04/11/26(金) 13:39 -
引用なし
パスワード
   ▼IROC さん
>Application.ScreenUpdating = False
>では？
そのとおりでした。
画面のちらつきをなくしたかったのです。
他の方法でちらつきを無くすことは可能なのでしょうか。
よろしくお願いします。
【20055】Re:メニューバー位置にグレーの帯が表示...
回答  IROC  - 04/11/26(金) 14:08 -
引用なし
パスワード
   Select　などの選択をしないように記述すればよいと思います。
【20057】Re:メニューバー位置にグレーの帯が表示...
質問  あおい  - 04/11/26(金) 14:36 -
引用なし
パスワード
   IROC さん
>Select　などの選択をしないように記述すればよいと思います。

どのように記述をすれば良いのかわからないのです。
VBA初心者なものでして、すいません。
【20058】Re:メニューバー位置にグレーの帯が表示...
回答  IROC  - 04/11/26(金) 15:20 -
引用なし
パスワード
   SelectとSelectionをつなげて消すようにします。

　Sheets("確認用").Select '不要

　　With Ws2.Cells.Font
　　　　.Name = "ＭＳ Ｐゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 9
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = 1
　　End With

　　Ws2.Cells.Interior.ColorIndex = xlNone
　　Ws2.Range("A5").Select '不要
【20063】Re:メニューバー位置にグレーの帯が表示...
質問  あおい  - 04/11/26(金) 17:07 -
引用なし
パスワード
   IROC さん

ありがとうございます。
試してみます。
結果について、またお知らせします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10752 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free