Menuへ
三角くじを作ってみよう

Step 13　オープン時、枠線と行列番号を消す

枠線と行列番号は使用しないのと、ない方がよさそうですので開始前に消します。
枠線はDisplayGridlinesをFalseに、行列番号はDisplayHeadingsをFalseにします。
ActiveWindowを使用しないとうまくいかないようなので、それぞれのシートをActivateとにし設定しています。
ThisWorkbookのコード
下記のコードを追加してください。

Option Explicit

Private Sub Workbook_Open()
    Sheets("くじ引き").Activate
    '枠線
    ActiveWindow.DisplayGridlines = False
    '行列番号
    ActiveWindow.DisplayHeadings = False

    Sheets("くじ作成").Activate
    '枠線
    ActiveWindow.DisplayGridlines = False
    '行列番号
    ActiveWindow.DisplayHeadings = False
End Sub


Topへ
■このサイトの内容を利用して発生した、いかなる問題にも一切の責任は負いませんのでご了承下さい。■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します。

Copyright (c) 2006-2007 Excel-Excel ! All rights reserved.