納品用の仕様書Excelの準備用です。
・A1を選択
・表示倍率指定
・Windows枠固定解除
・オートフィルター解除
・Windows分割解除
・先頭シート選択
Sub A1_Select_Save()
' A1セレクト後保存
On Error Resume Next 'エラーでも継続
Dim lngMagnification As Long '倍率
Dim lngFont As Long 'フォントサイズ
Dim lngFontSize As Long 'フォント種類
Dim lngFontType As String 'フォント種類名
Dim varSheet As Variant 'シート
'IME OFFでINPUTBOX入力したい場合
If IMEStatus <> vbIMEModeOff Then
SendKeys "{kanji}"
End If
lngMagnification = InputBox("倍率を指定して下さい。例:75", Default:=100)
If lngMagnification = False Then Exit Sub
For Each varSheet In Worksheets 'ブック中の各シートに対して繰り返す
With varSheet '各シートについて
.Activate 'アクティブにする
Cells.Select 'セル全選択
シート名 = .Name 'シート名を取得する
ActiveWindow.Zoom = lngMagnification '倍率指定
ActiveWindow.FreezePanes = False 'ウィンドウ枠の固定解除
With ActiveWindow 'ウィンド分割解除
.SplitColumn = 0
.SplitRow = 0
End With
If ActiveSheet.AutoFilterMode Then 'オートフィルタ判断
Selection.AutoFilter 'オートフィルタの解除
End If
Application.GoTo Reference:=Range("A1"), Scroll:=True
Range("A1").Select 'A1セレクト
End With
Next
Sheets(1).Select '1枚目のシート選択
ActiveWorkbook.Save '保存
End Sub
管理人Nのmy Pick