EXCEL VBA op_zenpan

エクセル
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[エクセル][EXCEL VBA op_zenpan]





Sub Macro1()
'
' [オプション]-[全般]
'

' [R1C1 参照形式を使用する]
With Application
.ReferenceStyle = xlR1C1
.ReferenceStyle = xlA1
End With

' [保存時にプロパティを確認する]
With Application
.PromptForSummaryInfo = True
.PromptForSummaryInfo = False
End With

' [他のアプリケーションを無視する]
With Application
.IgnoreRemoteRequests = True
.IgnoreRemoteRequests = False
End With

' [操作の結果を音で知らせる]
With Application
.EnableSound = True
.EnableSound = False
End With

' [IntelliMouseのホイールで倍率を変更する]
With Application
.RollZoom = True
.RollZoom = False
End With

' [最近使用したファイルの一覧]
With Application
.DisplayRecentFiles = True
.DisplayRecentFiles = False
'[まで表示する]
.RecentFiles.Maximum = 1
.RecentFiles.Maximum = 2
.RecentFiles.Maximum = 0
End With

' [新しいブックのシート数]
With Application
.SheetsInNewWorkbook = 2
.SheetsInNewWorkbook = 1
End With

' [標準フォント]
With Application
.StandardFont = "MS Pゴシック"
.StandardFont = "MS P明朝"
End With

' [サイズ]
With Application
.StandardFontSize = "9"
.StandardFontSize = "10"
End With

' [カレントフォルダ名]
With Application
.DefaultFilePath = "C:\Documents and Settings\All Users"
.DefaultFilePath = "C:\Documents and Settings\All Users\デスクトップ"
End With

' [XLSTART代替フォルダ名]
With Application
.AltStartupPath = "デスクトップ"
End With

' [ユーザー名]
With Application
.UserName = "www.jp-ia.com"
End With

End Sub





Production Japan Import Application. Since 1998