Excel VBA質問箱 IV

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

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


61306 / 76732 ←次へ | 前へ→

【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だけでなく他のシートも同様の状態です。
なにが原因なのかまったくわかりません。
どうぞよろしくお願いいたします。

0 hits

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

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