Snasui Excel Forum

Code: Select all

Sub backfile5to1()

    Sheets("Sheet5").Select
    Sheets("Sheet1").Visible = True
    Sheets("Sheet5").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveSheet.Unprotect Password:="1234"
    Cells.Select
    Selection.NumberFormat = "General"
    
    Range("N9:Q9,T9:W9,AJ10,AK10,D57,D59:E60").Select
    Selection.NumberFormat = "m/d/yyyy"
    
    Range("V39:W40,BA10").Select
    Selection.NumberFormat = "h:mm"
   
    Range("U10:W10").Select
    Selection.NumberFormat = "0;;;@"
    
    ActiveSheet.Protect Password:="1234"
    Range("Q13").Activate
    
End Sub

Code: Select all

Sub Macro2()
Dim x As Integer
    x = MsgBox("ต้องการพิมพ์ใบจ่ายงาน ใช่หรือไม่", vbOKCancel)
    If x = vbCancel Then
    Sheets("Sheet1").Select
    Else
MsgBox "ใส่ใบจ่ายงานด้วยครับ"
 ActiveSheet.Unprotect Password:="1234"
 
  'บันทึก DataBase
    Application.Goto Reference:="OFFSET(R9C30,1,0,COUNTA(C1)-1,33)"
    Selection.Copy
    Workbooks.Open Filename:="\\ACCOUNT\Data (D)\SALE\DataBase.xlsx"
    Sheets("Sheet1").Select
    Application.Goto Reference:="OFFSET(R1C1,COUNTA(C1),0)"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    ThisWorkbook.Activate
  
    'สั่งพิมพ์
    Range("Q13:W13").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$W$60"
    Application.ActivePrinter = "HART_EPSON on Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=3, ActivePrinter:= _
            "HART_EPSON on Ne00:", Collate:=True, IgnorePrintAreas:=False
    Range("Q13:W13").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
 
    ActiveSheet.Protect Password:="1234"
    MsgBox ("บันทึกข้อมูลเรียบร้อย"), vbInformation
End If
End Sub

Code: Select all

Sub backfile5to1()

    Sheets("Sheet5").Select
    Sheets("Sheet1").Visible = True
    Sheets("Sheet5").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveSheet.Unprotect Password:="1234"
    Cells.Select
    Selection.NumberFormat = "General"
    
    Range("N9:Q9,T9:W9,AJ10,AK10,D57,D59:E60").Select
    Selection.NumberFormat = "m/d/yyyy"
    
    Range("V39:W40,BA10").Select
    Selection.NumberFormat = "h:mm"
   
    Range("U10:W10").Select
    Selection.NumberFormat = "0;;;@"
    
    ActiveSheet.Protect Password:="1234"
    Range("Q13").Activate
    
End Sub

Code: Select all

Application.ScreenUpdating = False
'Your code
Application.ScreenUpdating = True