--.--.-- (--)

スポンサーサイト 

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
EDIT |  --:-- |  スポンサー広告  | Top↑
2013.07.23 (Tue)

 

'thisworkbook####################################
Option Explicit
'当該ファイルを開いた時最初に実行
Private Sub Auto_Open()

End Sub
'Auto_Open実行後実行
Private Sub Workbook_Open()
Call mdlSave.ShortcutKey
End Sub

'mdSave###############################################
Option Explicit

Sub DefaultSetting()
Dim ActSheet As Object
Dim zoomValue As Integer

'初期値のセット
zoomValue = 100

Application.ScreenUpdating = False

'各シート毎に初期値を設定する。
For Each ActSheet In ActiveWorkbook.Worksheets
With ActiveWorkbook.Worksheets(ActSheet.Name)
.Select
.Cells(1, 1).Select
End With
Application.ActiveWindow.zoom = zoomValue
Next ActSheet

'終了処理
ActiveWorkbook.Worksheets(1).Select
Application.ScreenUpdating = True
End Sub

Sub FunctionSave()
Call DefaultSetting
ActiveWorkbook.Save
End Sub
'ショートカットキーの設定
Public Sub ShortcutKey()
'保存ショートカット[倍率100%][セルA1指定]
Application.OnKey "^s", "FunctionSave"
End Sub
スポンサーサイト
EDIT |  02:13 |  Maple  | TB(0)  | CM(0) | Top↑

コメントを投稿する

URL
COMMENT
PASS  編集・削除に必要
SECRET  管理者だけにコメントを表示
 

この記事のトラックバックURL

この記事へのトラックバック


 | HOME | 

ブログ内検索

カレンダー

最近のコメント

リンク

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。