60 lines
1.9 KiB
QBasic
60 lines
1.9 KiB
QBasic
Attribute VB_Name = "Module3"
|
||
Sub Button3_Click()
|
||
Set wb_calc = ActiveWorkbook
|
||
Set sumSheet_init = wb_calc.Worksheets("SUMMARY")
|
||
Set dealsSheet_init = wb_calc.Worksheets("DEALS")
|
||
|
||
sumSheet_init.Copy
|
||
ActiveSheet.Select
|
||
Set target_wb = ActiveWorkbook
|
||
For Each cShape In ActiveSheet.Shapes
|
||
cShape.Delete
|
||
Next
|
||
|
||
Cells.Copy
|
||
Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
|
||
:=False, Transpose:=False
|
||
Application.CutCopyMode = False
|
||
|
||
dealsSheet_init.Copy After:=target_wb.Sheets(1)
|
||
|
||
target_wb.Theme.ThemeColorScheme.Load ("F:\_DCM\03 - GENERAL\CORP STYLE\RSHB.xml")
|
||
|
||
'ActiveWorkbook.SaveAs Filename:= _
|
||
' "C:\Users\Smirnov-SD\Documents\rep_new\Отчет_UW_08112020.xlsx", FileFormat:= _
|
||
' xlOpenXMLWorkbook, CreateBackup:=False
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
Sub Button4_Click()
|
||
|
||
Application.ScreenUpdating = False
|
||
Application.Calculation = xlCalculationManual
|
||
|
||
Set sumSheet = Worksheets("SUMMARY")
|
||
Set prevSheet = Worksheets("SUMMARY_T-1")
|
||
Set histSheet = Worksheets("RES_HISTORY")
|
||
|
||
sumSheet.Cells.Copy
|
||
prevSheet.Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
|
||
:=False, Transpose:=False
|
||
Application.CutCopyMode = False
|
||
|
||
hist_lr = histSheet.Cells(histSheet.Rows.Count, 1).End(xlUp).Row + 1
|
||
histSheet.Cells(hist_lr, 1) = sumSheet.Range("REP_DT")
|
||
histSheet.Cells(hist_lr, 2) = sumSheet.Cells(4, 2)
|
||
histSheet.Cells(hist_lr, 3) = sumSheet.Cells(6, 2)
|
||
histSheet.Cells(hist_lr, 4) = sumSheet.Cells(7, 2)
|
||
histSheet.Cells(hist_lr, 5) = sumSheet.Cells(9, 2)
|
||
histSheet.Cells(hist_lr, 6) = sumSheet.Cells(10, 2)
|
||
histSheet.Cells(hist_lr, 7) = sumSheet.Cells(11, 2)
|
||
histSheet.Cells(hist_lr, 8) = sumSheet.Cells(13, 2)
|
||
|
||
Application.ScreenUpdating = True
|
||
Application.Calculation = xlCalculationAutomatic
|
||
|
||
End Sub
|
||
|