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 -

引用なし
パスワード
   初めて投稿させていただきます。
今、表題の件で困っているのです。
シートが1〜4まであり、AUTO_OPEN時に下のコードで
メニューバーを非表示にしています。
  Dim myCB As CommandBar

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

この状態で、シート1の内容をシート4にCOPYしています。
  Dim Ws1 As Worksheet, Ws2 As Worksheet
  Set Ws1 = Worksheets("シート1")
  Set Ws2 = Worksheets("シート2")
      
  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 = "MS Pゴシック"
    .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

この作業が終わった時に、メニューバーが表示される部分が
グレーになってしまうのです。
この状態はシート4だけでなく他のシートも同様の状態です。
なにが原因なのかまったくわかりません。
どうぞよろしくお願いいたします。

【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 さん
>他に余分なマクロはなく、提示したコードだけで検証しましたか?
シート1〜3に対してAUTO_OPENで保護をかけてます。
'  Application.ScreenUpdating = False
'  Set Ws1 = Worksheets("シート1")
'  Set Ws2 = Worksheets("シート2")
'  Set Ws3 = Worksheets("シート3")
'  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 = "MS Pゴシック"
    .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