按鈕_復制期初 Macro
' xieheyq03 記錄的宏
'

'
  Dim bkname As String
  bkname = ThisWorkbook.Name
     copymsg = MsgBox("確定要更新期初數據嗎？注意更新后不能恢復！", vbOKCancel + vbExclamation, "警告")
    If copymsg = vbOK Then
   
    If (ActiveSheet.PRotectContents) Then
        ActiveSheet.Unprotect
    End If
    Sheets("損益表").Select
    application.Run "選項_顯示"
    Range("C5:C24").Select
    Selection.Copy
    Range("D5").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.Run "選項_隱藏累計"
    Range("C5").Select
    Sheets("費用明細").Select
    Application.Run "選項_顯示費用"
    Range("C6:C44").Select
    Selection.Copy
    Range("K6").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.Run "選項_隱藏費用"
    Range("C9").Select
    Sheets("試算平衡表").Select
   
    Range("B261:AU261").Select
    Selection.Copy
    ActiveWindow.LargeScroll ToRight:=-9
    ActiveWindow.SmallScroll Down:=6
    Range("B272").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
   
   
    ActiveWindow.SmallScroll Down:=-9
    Range("b4:bD258").Select
    Selection.ClearContents
    Range("B3").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
    End If
End Sub

學習語句和期初復制，簡單講就是更新數據設置。目前正在逐句學習