Excel VBA 実践授業準備@鶴見のパソコン教室キュリオステーション

日本IBM出身ホームページビルダー元開発責任者鎌田裕二責任指導
パソコン教室案内はこちらをタップ
お問い合わせ TEL:045-567-8393

Option Explicit

Sub ribbon_off()
Dim window1 As Window

Set window1 = Windows(“表示.xlsm”)
window1.DisplayWorkbookTabs = False
window1.DisplayVerticalScrollBar = False
window1.DisplayHorizontalScrollBar = False
window1.DisplayGridlines = False
window1.DisplayFormulas = False
window1.DisplayHeadings = False
‘ 数式バーを非表示
Application.DisplayFormulaBar = False
‘ ステータスバーを非表示
Application.DisplayStatusBar = False

window1.WindowState = xlNormal
window1.Height = Application.UsableHeight / 2
window1.Width = Application.UsableWidth / 2
End Sub

Private Sub Workbook_open()
‘Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””, False)”
End Sub

横浜鶴見の
パソコン教室案内へ>>

無料相談会 毎日実施中
スマホ・タブレット・ホームページ作成

℡045-567-8393