Excel VBA質問箱 IV

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

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


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

【65086】枠線の非表示 おとと 10/4/14(水) 12:59 質問[未読]
【65089】Re:枠線の非表示 Jaka 10/4/14(水) 14:10 発言[未読]
【65099】Re:枠線の非表示 おとと 10/4/16(金) 9:51 質問[未読]
【65100】Re:枠線の非表示 mura 10/4/16(金) 10:15 回答[未読]
【65105】Re:枠線の非表示 おとと 10/4/17(土) 8:26 お礼[未読]

【65086】枠線の非表示
質問  おとと  - 10/4/14(水) 12:59 -

引用なし
パスワード
   はじまして、おととと申します。

'シート1の書き込み
  Set objSheet = objBook.Sheets(1)
  
  'セル全体の設定
  With objSheet
    
    .Name = "ガス切れ伝票"
    .Cells.Font.Name = "MS Pゴシック"
    .Cells.Font.Size = 11
    .Columns("A:A").ColumnWidth = 11.5     'A列の列幅を指定する例

全てではないですがこんな感じで他シートを操作しています。この流れで
オプション-ツールの枠線非表示をしたいのですが方法が判りません。
出来ましたらご教授ください。

【65089】Re:枠線の非表示
発言  Jaka  - 10/4/14(水) 14:10 -

引用なし
パスワード
   >オプション-ツールの枠線非表示をしたいのですが方法が判りません。
マクロ記録でコードが作れますよ。

Sub Macro1()
  ActiveWindow.DisplayGridlines = False
  ActiveWindow.DisplayGridlines = True
End Sub

Windowオブジェクトなので、個別に指定したい場合は、個別にアクティブにしてください。
後で戻すこと。
画面更新をとめれば、シートの切り替えがばれにくいと思います。

【65099】Re:枠線の非表示
質問  おとと  - 10/4/16(金) 9:51 -

引用なし
パスワード
   Jakaさん返信有難う御座います。
説明不足ですみません。枠線消すコードは分かるのですが
対象のブックをアクティブにする所が分かりません。
以下のコードで

  objApp.Workbooks.Add
  '非表示にする
  objApp.Application.Visible = False
  '確認ダイアログを表示させない
  objApp.DisplayAlerts = False
  
  Set objBook = objApp.ActiveWorkbook
  Set objSheets = objBook.Worksheets
  'シート1のみ残して後は削除
  For i = 2 To objSheets.Count
    objBook.Sheets(2).Delete
  
    
  Next

  'シート1の書き込み
  Set objSheet = objBook.Sheets(1)
  
  'セル全体の設定
  With objSheet
    
    .Name = "ガス切れ伝票"
    .Cells.Font.Name = "MS Pゴシック"
    .Cells.Font.Size = 11
    .Columns("A:A").ColumnWidth = 11.5     'A列の列幅を指定する例

       
  End With

全てのコードでは無いのですが単純に.Columnsの下に
ActiveWindow.DisplayGridlines = False
を入れたのですがエラーになってしまいました。
もしよろしければご教授ください。

【65100】Re:枠線の非表示
回答  mura  - 10/4/16(金) 10:15 -

引用なし
パスワード
   >全てのコードでは無いのですが単純に.Columnsの下に
>ActiveWindow.DisplayGridlines = False
>を入れたのですが

ちょっと見ですが、
変数 objApp は Excel.Application であると解釈できますが、
であれば、
ActiveWindow.DisplayGridlines = False は無いでしょう。
objApp.ActiveWindow.DisplayGridlines = False なのでは。

また、変数 objApp がなぜ必要なのかも分かりません。
はしょらず説明すべきでは。

あと、↓も最初からシート1のブックを作ればいいのでは。
'シート1のみ残して後は削除

【65105】Re:枠線の非表示
お礼  おとと  - 10/4/17(土) 8:26 -

引用なし
パスワード
   muraさん、返信有難う御座います。
思うとおりに出来ました。

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