ck ()
Application.QuitSubSub UserForm_Activate ()
Workbooks ("Main.xls"). Worksheets ("1"). Activate
Caption = Space (95) & "Головне меню" & Space (75) Sub
// Workbook (Main.xls) Module1
Public ex As Integerколвз As Double, колдт As DoubleОформіть (nrow, max)
'Workbooks ("Firms"). Unprotect Password: = "Firms1"
'ActiveSheet.Unprotect Password: = "list"
Range (Cells (nrow, 1), Cells (nrow, max)). Select
With Selection
. HorizontalAlignment = xlCenter
. VerticalAlignment = xlCenter
. WrapText = True
. Orientation = 0
. AddIndent = False
. IndentLevel = 0
. ShrinkToFit = False
. ReadingOrder = xlContext
. MergeCells = False
End With
Selection.Borders (xlDiagonalDown). LineStyle = xlNone
Selection.Borders (xlDiagonalUp). LineStyle = xlNone
With Selection.Borders (xlEdgeLeft)
. LineStyle = xlContinuous
. Weight = xlMedium
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeTop)
. LineStyle = xlContinuous
. Weight = xlMedium
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. Weight = xlMedium
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeRight)
. LineStyle = xlContinuous
. Weight = xlMedium
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlInsideVertical)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection
. HorizontalAlignment = xlCenter
. VerticalAlignment = xlCenter
. WrapText = True
. Orientation = 0
. AddIndent = False
. IndentLevel = 0
. ShrinkToFit = False
. ReadingOrder = xlContext
. MergeCells = False
End With
With Selection.Font
. FontStyle = "напівжирний"
. Size = 8
. Strikethrough = False
. Superscript = False
. Subscript = False
. OutlineFont = False
. Shadow = False
End WithSubNewZa ()
ex = 1
Workbooks ("Main.xls"). Worksheets ("Замовлення"). Activate
i = 3
Do
i = i + 1
Loop While Cells (i, 1). Value <> ""
В
If Cells (4, 1). Value = "" Then
num = 1
Else
num = Cells (i - 1, 1). Value + 1
End If
Range (Cells (i, 1), Cells (i, 18)). Select
With Selection
. HorizontalAlignment = xlCenter
. VerticalAlignment = xlCenter
. WrapText = True
. Orientation = 0
. AddIndent = False
. IndentLevel = 0
. ShrinkToFit = False
. ReadingOrder = xlContext
. MergeCells = False
...
