Copy of Калькулятор Админ

Sub CreatePriceList() Dim ws As Worksheet Dim r As Long ' ============================================= ' 1. СОЗДАЁМ ЛИСТ "Прайс" ' ============================================= On Error Resume Next Application.DisplayAlerts = False ThisWorkbook.Sheets("Прайс").Delete ThisWorkbook.Sheets("Условия").Delete Application.DisplayAlerts = True On Error GoTo 0 Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ws.Name = "Прайс" r = 1 ' --- ЗАГОЛОВКИ --- ws.Cells(r, 1) = "Цена (руб/час)" ws.Cells(r, 2) = "Тоннаж" ws.Cells(r, 3) = "Высота (м)" ws.Cells(r, 4) = "Объём (м3)" ws.Cells(r, 5) = "Длина (м)" ws.Cells(r, 6) = "Мин. время (час)" ws.Cells(r, 7) = "Паллет" ws.Cells(r, 8) = "Тип" ws.Cells(r, 9) = "Стоимость 1 км (руб)" r = r + 1 ' ============================================= ' 2. ДАННЫЕ ' ============================================= ' ---- 1.5 ТОННЫ - ТЕНТ 3м ---- Call AddRow(ws, r, 1200, 1.5, 1.6, 8, 3, 2, 4, "Тент", 32) Call AddRow(ws, r, 1200, 1.5, 1.8, 10, 3, 2, 4, "Тент", 32) Call AddRow(ws, r, 1200, 1.5, 2, 10, 3, 2, 4, "Тент", 32) Call AddRow(ws, r, 1200, 1.5, 2, 12, 3, 2, 4, "Тент", 32) Call AddRow(ws, r, 1200, 1.5, 2.2, 12, 3, 2, 5, "Тент", 32) ' ---- 1.5 ТОННЫ - БУДКА 3м ---- Call AddRow(ws, r, 1100, 1.5, 1.6, 8, 3, 2, 4, "Будка", 32) Call AddRow(ws, r, 1200, 1.5, 1.8, 10, 3, 2, 4, "Будка", 32) Call AddRow(ws, r, 1200, 1.5, 2, 10, 3, 2, 4, "Будка", 32) Call AddRow(ws, r, 1200, 1.5, 2, 12, 3, 2, 4, "Будка", 32) Call AddRow(ws, r, 1200, 1.5, 2.2, 12, 3, 2, 5, "Будка", 32) ' ---- 1.5 ТОННЫ - ТЕРМОС 3м ---- Call AddRow(ws, r, 1200, 1.5, 1.6, 8, 3, 2, 4, "Термос", 32) Call AddRow(ws, r, 1200, 1.5, 1.8, 10, 3, 2, 4, "Термос", 32) Call AddRow(ws, r, 1200, 1.5, 2, 10, 3, 2, 4, "Термос", 32) Call AddRow(ws, r, 1200, 1.5, 2, 12, 3, 2, 4, "Термос", 32) Call AddRow(ws, r, 1200, 1.5, 2.2, 12, 3, 2, 4, "Термос", 32) ' ---- 1.5 ТОННЫ - ТЕНТ 4м ---- Call AddRow(ws, r, 1200, 1.5, 1.6, 14, 4, 2, 6, "Тент", 33) Call AddRow(ws, r, 1400, 1.5, 1.8, 16, 4, 3, 6, "Тент", 33) Call AddRow(ws, r, 1400, 1.5, 2, 16, 4, 3, 6, "Тент", 33) Call AddRow(ws, r, 1400, 1.5, 2.2, 18, 4, 3, 6, "Тент", 33) Call AddRow(ws, r, 1600, 1.5, 2.3, 18, 4, 3, 6, "Тент", 33) Call AddRow(ws, r, 1700, 1.5, 2.4, 20, 4, 3, 6, "Тент", 33) ' ---- 1.5 ТОННЫ - БУДКА 4м ---- Call AddRow(ws, r, 1200, 1.5, 1.6, 14, 4, 2, 6, "Будка", 33) Call AddRow(ws, r, 1400, 1.5, 1.8, 16, 4, 3, 6, "Будка", 33) Call AddRow(ws, r, 1400, 1.5, 2, 16, 4, 3, 6, "Будка", 33) Call AddRow(ws, r, 1400, 1.5, 2.2, 18, 4, 3, 6, "Будка", 33) Call AddRow(ws, r, 1600, 1.5, 2.3, 18, 4, 3, 6, "Будка", 33) Call AddRow(ws, r, 1700, 1.5, 2.4, 20, 4, 3, 6, "Будка", 33) ' ---- 1.5 ТОННЫ - ТЕРМОС 4м ---- Call AddRow(ws, r, 1200, 1.5, 1.6, 14, 4, 2, 6, "Термос", 33) Call AddRow(ws, r, 1400, 1.5, 1.8, 16, 4, 3, 6, "Термос", 33) Call AddRow(ws, r, 1400, 1.5, 2, 16, 4, 3, 6, "Термос", 33) Call AddRow(ws, r, 1400, 1.5, 2.2, 18, 4, 3, 6, "Термос", 33) Call AddRow(ws, r, 1600, 1.5, 2.3, 18, 4, 3, 6, "Термос", 33) Call AddRow(ws, r, 1700, 1.5, 2.4, 20, 4, 3, 6, "Термос", 33) ' ---- 2 ТОННЫ - ТЕНТ 3м ---- Call AddRow(ws, r, 1200, 2, 1.6, 10, 3, 2, 4, "Тент", 34) Call AddRow(ws, r, 1200, 2, 1.8, 10, 3, 3, 4, "Тент", 34) Call AddRow(ws, r, 1200, 2, 2, 12, 3, 3, 4, "Тент", 34) Call AddRow(ws, r, 1400, 2, 2.2, 14, 3, 3, 4, "Тент", 34) Call AddRow(ws, r, 1600, 2, 2.3, 14, 3, 3, 4, "Тент", 34) Call AddRow(ws, r, 1700, 2, 2.4, 14, 3, 3, 4, "Тент", 34) ' ---- 2 ТОННЫ - БУДКА 3м ---- Call AddRow(ws, r, 1200, 2, 1.6, 10, 3, 2, 4, "Будка", 34) Call AddRow(ws, r, 1200, 2, 1.8, 10, 3, 3, 4, "Будка", 34) Call AddRow(ws, r, 1200, 2, 2, 12, 3, 3, 4, "Будка", 34) Call AddRow(ws, r, 1400, 2, 2.2, 14, 3, 3, 4, "Будка", 34) Call AddRow(ws, r, 1600, 2, 2.3, 14, 3, 3, 4, "Будка", 34) Call AddRow(ws, r, 1700, 2, 2.4, 14, 3, 3, 4, "Будка", 34) ' ---- 2 ТОННЫ - ТЕРМОС 3м ---- Call AddRow(ws, r, 1200, 2, 1.6, 10, 3, 2, 4, "Термос", 34) Call AddRow(ws, r, 1200, 2, 1.8, 10, 3, 3, 4, "Термос", 34) Call AddRow(ws, r, 1200, 2, 2, 12, 3, 3, 4, "Термос", 34) Call AddRow(ws, r, 1400, 2, 2.2, 14, 3, 3, 4, "Термос", 34) Call AddRow(ws, r, 1600, 2, 2.3, 14, 3, 3, 4, "Термос", 34) Call AddRow(ws, r, 1700, 2, 2.4, 14, 3, 3, 4, "Термос", 34) ' ---- 2 ТОННЫ - ТЕНТ 4м ---- Call AddRow(ws, r, 1200, 2, 1.6, 14, 4, 3, 6, "Тент", 35) Call AddRow(ws, r, 1400, 2, 1.8, 16, 4, 3, 6, "Тент", 35) Call AddRow(ws, r, 1400, 2, 2, 16, 4, 3, 6, "Тент", 35) Call AddRow(ws, r, 1400, 2, 2.2, 18, 4, 3, 6, "Тент", 35) Call AddRow(ws, r, 1600, 2, 2.3, 18, 4, 3, 6, "Тент", 35) Call AddRow(ws, r, 1700, 2, 2.4, 20, 4, 3, 8, "Тент", 35) Call AddRow(ws, r, 1900, 2, 2.5, 20, 4, 4, 8, "Тент", 35) ' ---- 2 ТОННЫ - БУДКА 4м ---- Call AddRow(ws, r, 1200, 2, 1.6, 14, 4, 3, 8, "Будка", 35) Call AddRow(ws, r, 1400, 2, 1.8, 16, 4, 3, 8, "Будка", 35) Call AddRow(ws, r, 1400, 2, 2, 16, 4, 3, 8, "Будка", 35) Call AddRow(ws, r, 1400, 2, 2.2, 18, 4, 3, 8, "Будка", 35) Call AddRow(ws, r, 1600, 2, 2.3, 18, 4, 3, 8, "Будка", 35) Call AddRow(ws, r, 1700, 2, 2.4, 20, 4, 3, 8, "Будка", 35) Call AddRow(ws, r, 1900, 2, 2.5, 20, 4, 4, 8, "Будка", 35) ' ---- 2 ТОННЫ - ТЕРМОС 4м ---- Call AddRow(ws, r, 1200, 2, 1.6, 14, 4, 3, 8, "Термос", 35) Call AddRow(ws, r, 1400, 2, 1.8, 16, 4, 3, 8, "Термос", 35) Call AddRow(ws, r, 1400, 2, 2, 16, 4, 3, 8, "Термос", 35) Call AddRow(ws, r, 1400, 2, 2.2, 18, 4, 3, 8, "Термос", 35) Call AddRow(ws, r, 1600, 2, 2.3, 18, 4, 3, 8, "Термос", 35) Call AddRow(ws, r, 1700, 2, 2.4, 20, 4, 3, 8, "Термос", 35) Call AddRow(ws, r, 1900, 2, 2.5, 20, 4, 4, 8, "Термос", 35) ' ---- 3 ТОННЫ - ТЕНТ 4м ---- Call AddRow(ws, r, 1400, 3, 1.6, 14, 4, 3, 6, "Тент", 42) Call AddRow(ws, r, 1400, 3, 1.8, 16, 4, 3, 6, "Тент", 42) Call AddRow(ws, r, 1400, 3, 2, 16, 4, 3, 6, "Тент", 42) Call AddRow(ws, r, 1400, 3, 2.2, 18, 4, 3, 6, "Тент", 42) Call AddRow(ws, r, 1600, 3, 2.3, 20, 4, 3, 6, "Тент", 42) Call AddRow(ws, r, 1700, 3, 2.4, 20, 4, 3, 8, "Тент", 42) Call AddRow(ws, r, 1900, 3, 2.5, 20, 4, 4, 8, "Тент", 42) ' ---- 3 ТОННЫ - БУДКА 4м ---- Call AddRow(ws, r, 1400, 3, 1.6, 14, 4, 3, 8, "Будка", 42) Call AddRow(ws, r, 1400, 3, 1.8, 16, 4, 3, 8, "Будка", 42) Call AddRow(ws, r, 1400, 3, 2, 16, 4, 3, 8, "Будка", 42) Call AddRow(ws, r, 1400, 3, 2.2, 18, 4, 3, 8, "Будка", 42) Call AddRow(ws, r, 1600, 3, 2.3, 20, 4, 3, 8, "Будка", 42) Call AddRow(ws, r, 1700, 3, 2.4, 20, 4, 3, 8, "Будка", 42) Call AddRow(ws, r, 1900, 3, 2.5, 20, 4, 4, 8, "Будка", 42) ' ---- 3 ТОННЫ - ТЕРМОС 4м ---- Call AddRow(ws, r, 1400, 3, 1.6, 14, 4, 3, 8, "Термос", 42) Call AddRow(ws, r, 1400, 3, 1.8, 16, 4, 3, 8, "Термос", 42) Call AddRow(ws, r, 1400, 3, 2, 16, 4, 3, 8, "Термос", 42) Call AddRow(ws, r, 1400, 3, 2.2, 18, 4, 3, 8, "Термос", 42) Call AddRow(ws, r, 1600, 3, 2.3, 20, 4, 3, 8, "Термос", 42) Call AddRow(ws, r, 1700, 3, 2.4, 20, 4, 3, 8, "Термос", 42) Call AddRow(ws, r, 1900, 3, 2.5, 20, 4, 4, 8, "Термос", 42) ' ---- 5 ТОНН ---- Call AddRow(ws, r, 1600, 5, 2, 25, 5, 3, 10, "Тент", 48) Call AddRow(ws, r, 1600, 5, 2.1, 25, 5, 3, 10, "Тент", 48) Call AddRow(ws, r, 1600, 5, 2.2, 25, 5, 3, 10, "Тент", 48) Call AddRow(ws, r, 1600, 5, 2.3, 25, 5, 3, 10, "Тент", 48) Call AddRow(ws, r, 1700, 5, 2.4, 30, 5, 3, 10, "Тент", 48) Call AddRow(ws, r, 1900, 5, 2.5, 30, 5, 4, 10, "Тент", 48) Call AddRow(ws, r, 1600, 5, 2, 25, 5, 3, 10, "Будка", 48) Call AddRow(ws, r, 1600, 5, 2.1, 25, 5, 3, 10, "Будка", 48) Call AddRow(ws, r, 1600, 5, 2.2, 25, 5, 3, 10, "Будка", 48) Call AddRow(ws, r, 1600, 5, 2.3, 25, 5, 3, 10, "Будка", 48) Call AddRow(ws, r, 1700, 5, 2.4, 30, 5, 3, 10, "Будка", 48) Call AddRow(ws, r, 1900, 5, 2.5, 30, 5, 4, 10, "Будка", 48) Call AddRow(ws, r, 1600, 5, 2, 25, 5, 3, 10, "Термос", 48) Call AddRow(ws, r, 1600, 5, 2.1, 25, 5, 3, 10, "Термос", 48) Call AddRow(ws, r, 1600, 5, 2.2, 25, 5, 3, 10, "Термос", 48) Call AddRow(ws, r, 1600, 5, 2.3, 25, 5, 3, 10, "Термос", 48) Call AddRow(ws, r, 1700, 5, 2.4, 30, 5, 3, 10, "Термос", 48) Call AddRow(ws, r, 1900, 5, 2.5, 30, 5, 4, 10, "Термос", 48) ' ---- 7 ТОНН ---- Call AddRow(ws, r, 1800, 7, 2.2, 30, 6, 4, 12, "Тент", 54) Call AddRow(ws, r, 1800, 7, 2.3, 35, 7, 4, 16, "Тент", 54) Call AddRow(ws, r, 1900, 7, 2.4, 40, 8, 4, 20, "Тент", 54) Call AddRow(ws, r, 1900, 7, 2.4, 45, 8, 4, 20, "Тент", 54) Call AddRow(ws, r, 1900, 7, 2.5, 50, 9, 4, 20, "Тент", 54) Call AddRow(ws, r, 1800, 7, 2.2, 30, 6, 4, 12, "Будка", 54) Call AddRow(ws, r, 1800, 7, 2.3, 35, 7, 4, 16, "Будка", 54) Call AddRow(ws, r, 1900, 7, 2.4, 40, 8, 4, 20, "Будка", 54) Call AddRow(ws, r, 1900, 7, 2.4, 45, 8, 4, 20, "Будка", 54) Call AddRow(ws, r, 1900, 7, 2.5, 50, 9, 4, 20, "Будка", 54) Call AddRow(ws, r, 1800, 7, 2.2, 30, 6, 4, 14, "Термос", 54) Call AddRow(ws, r, 1800, 7, 2.3, 35, 7, 4, 16, "Термос", 54) Call AddRow(ws, r, 1900, 7, 2.4, 40, 8, 4, 20, "Термос", 54) Call AddRow(ws, r, 1900, 7, 2.4, 45, 8, 4, 20, "Термос", 54) Call AddRow(ws, r, 1900, 7, 2.5, 50, 9, 4, 20, "Термос", 54) ' ---- 10 ТОНН ---- Call AddRow(ws, r, 2000, 10, 2.2, 30, 6, 5, 12, "Термос", 65) Call AddRow(ws, r, 2000, 10, 2.3, 35, 8, 5, 14, "Тент", 65) Call AddRow(ws, r, 2000, 10, 2.5, 40, 10, 5, 24, "Тент", 65) Call AddRow(ws, r, 2100, 10, 2.2, 45, 10, 5, 24, "Тент", 65) Call AddRow(ws, r, 2100, 10, 2.4, 50, 8, 5, 20, "Тент", 65) Call AddRow(ws, r, 2100, 10, 2.5, 60, 10, 5, 24, "Тент", 65) Call AddRow(ws, r, 2000, 10, 2.2, 30, 6, 5, 14, "Будка", 65) Call AddRow(ws, r, 2000, 10, 2.3, 35, 8, 5, 20, "Будка", 65) Call AddRow(ws, r, 2000, 10, 2.5, 40, 10, 5, 24, "Будка", 65) Call AddRow(ws, r, 2100, 10, 2.2, 45, 10, 5, 24, "Будка", 65) Call AddRow(ws, r, 2100, 10, 2.4, 50, 8, 5, 20, "Будка", 65) Call AddRow(ws, r, 2100, 10, 2.5, 60, 10, 5, 24, "Будка", 65) Call AddRow(ws, r, 2000, 10, 2.2, 30, 6, 5, 14, "Термос", 65) Call AddRow(ws, r, 2000, 10, 2.3, 35, 8, 5, 20, "Термос", 65) Call AddRow(ws, r, 2000, 10, 2.5, 40, 10, 5, 24, "Термос", 65) Call AddRow(ws, r, 2100, 10, 2.2, 45, 10, 5, 24, "Термос", 65) Call AddRow(ws, r, 2100, 10, 2.4, 50, 8, 5, 20, "Термос", 65) Call AddRow(ws, r, 2100, 10, 2.5, 60, 10, 5, 24, "Термос", 65) ' ---- БОРТОВЫЕ ---- Call AddRow(ws, r, 1300, 1.5, "", "", 3, 2, 4, "Борт", 36) Call AddRow(ws, r, 1300, 1.5, "", "", 4, 2, 6, "Борт", 38) Call AddRow(ws, r, 1600, 1.5, "", "", 5, 3, 10, "Борт", 42) Call AddRow(ws, r, 1800, 1.5, "", "", 6, 3, 12, "Борт", 46) Call AddRow(ws, r, 1300, 2, "", "", 3, 2, 4, "Борт", 38) Call AddRow(ws, r, 1300, 2, "", "", 4, 2, 6, "Борт", 40) Call AddRow(ws, r, 1700, 2, "", "", 5, 3, 10, "Борт", 44) Call AddRow(ws, r, 1800, 2, "", "", 6, 3, 12, "Борт", 48) Call AddRow(ws, r, 1600, 3, "", "", 4, 3, 8, "Борт", 42) Call AddRow(ws, r, 1600, 3, "", "", 5, 3, 10, "Борт", 44) Call AddRow(ws, r, 1700, 3, "", "", 6, 3, 12, "Борт", 48) Call AddRow(ws, r, 1800, 5, "", "", 5, 3, 10, "Борт", 50) Call AddRow(ws, r, 1800, 5, "", "", 6, 3, 12, "Борт", 54) Call AddRow(ws, r, 2000, 7, "", "", 8, 4, 16, "Борт", 58) Call AddRow(ws, r, 2300, 10, "", "", 8, 5, 20, "Борт", 70) ' ---- РЕФРИЖЕРАТОРЫ ---- Call AddRow(ws, r, 1200, 1.5, 1.6, 8, 3, 3, 4, "Рефрижератор", 36) Call AddRow(ws, r, 1200, 1.5, 1.8, 10, 3, 3, 4, "Рефрижератор", 36) Call AddRow(ws, r, 1300, 1.5, 2, 10, 3, 3, 5, "Рефрижератор", 36) Call AddRow(ws, r, 1300, 1.5, 1.8, 10, 4, 3, 6, "Рефрижератор", 38) Call AddRow(ws, r, 1300, 1.5, 2, 12, 4, 3, 6, "Рефрижератор", 38) Call AddRow(ws, r, 1300, 1.5, 2.2, 14, 4, 4, 6, "Рефрижератор", 38) Call AddRow(ws, r, 1400, 2, 1.8, 8, 3, 3, 4, "Рефрижератор", 40) Call AddRow(ws, r, 1400, 2, 2, 10, 3, 3, 4, "Рефрижератор", 40) Call AddRow(ws, r, 1400, 2, 2, 12, 3, 3, 6, "Рефрижератор", 40) Call AddRow(ws, r, 1400, 2, 2.2, 15, 3, 3, 6, "Рефрижератор", 40) Call AddRow(ws, r, 1500, 3, 2, 15, 4, 4, 6, "Рефрижератор", 44) Call AddRow(ws, r, 1500, 3, 2.2, 20, 4, 4, 8, "Рефрижератор", 44) Call AddRow(ws, r, 1700, 5, 2.2, 20, 5, 4, 9, "Рефрижератор", 50) Call AddRow(ws, r, 1700, 5, 2.2, 20, 6, 4, 10, "Рефрижератор", 52) Call AddRow(ws, r, 1700, 5, 2.5, 25, 7, 4, 11, "Рефрижератор", 52) Call AddRow(ws, r, 1700, 5, 2.5, 25, 7, 4, 12, "Рефрижератор", 52) Call AddRow(ws, r, 2000, 7, 2.5, 30, 6, 5, 12, "Рефрижератор", 56) Call AddRow(ws, r, 2000, 7, 2.5, 35, 7, 5, 14, "Рефрижератор", 56) Call AddRow(ws, r, 2000, 7, 2.5, 40, 8, 5, 16, "Рефрижератор", 56) Call AddRow(ws, r, 2300, 10, 2.5, 35, 8, 5, 14, "Рефрижератор", 65) Call AddRow(ws, r, 2300, 10, 2.5, 40, 8, 5, 18, "Рефрижератор", 65) Call AddRow(ws, r, 2300, 10, 2.5, 45, 8, 5, 20, "Рефрижератор", 65) ' ---- ВЫВОЗ МУСОРА ---- Call AddRow(ws, r, 4000, 1.5, 1.8, 10, 3, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 6500, 1.5, 2, 18, 4, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 8000, 1.5, 2.2, 25, 6, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 5000, 2, 2, 10, 3, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 6500, 2, 2, 18, 4, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 8000, 3, 2.2, 25, 6, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 6500, 3, 1.8, 16, 4, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 6500, 3, 2, 18, 4, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 8000, 5, 2.2, 25, 6, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 8000, 5, 2.2, 30, 6, 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 7000, 5, "", 5, "", 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 8000, 10, "", 10, "", 1, "", "Вывоз мусора", "") Call AddRow(ws, r, 8000, 15, "", 10, "", 1, "", "Вывоз мусора", "") ' --- ФОРМАТИРОВАНИЕ --- ws.Columns("A:I").AutoFit ws.Rows("1:1").Font.Bold = True ws.Rows("1:1").Interior.Color = RGB(200, 200, 200) ' ============================================= ' 3. СОЗДАЁМ ЛИСТ "Условия" ' ============================================= Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ws.Name = "Условия" r = 1 ws.Cells(r, 1) = "ДОПОЛНИТЕЛЬНЫЕ УСЛОВИЯ И ТАРИФЫ" ws.Cells(r, 1).Font.Bold = True ws.Cells(r, 1).Font.Size = 14 r = r + 2 ' 1. Безналичный расчёт ws.Cells(r, 1) = "1. БЕЗНАЛИЧНЫЙ РАСЧЁТ:" ws.Cells(r, 1).Font.Bold = True r = r + 1 ws.Cells(r, 1) = " При оплате по безналичному расчёту применяется коэффициент 1,111" r = r + 2 ' 2. Экспедирование ws.Cells(r, 1) = "2. ЭКСПЕДИРОВАНИЕ (работа с документами):" ws.Cells(r, 1).Font.Bold = True r = r + 1 ws.Cells(r, 1) = " В пределах города Новосибирск: 200 рублей за точку/клиента" r = r + 1 ws.Cells(r, 1) = " На междугородних направлениях (1.5-3т): 350 рублей" r = r + 1 ws.Cells(r, 1) = " На междугородних направлениях (5т): 400 рублей" r = r + 1 ws.Cells(r, 1) = " На междугородних направлениях (7т): 500 рублей" r = r + 1 ws.Cells(r, 1) = " На междугородних направлениях (10т): 600 рублей" r = r + 2 ' 3. Выступающий груз ws.Cells(r, 1) = "3. ВЫСТУПАЮЩИЙ ГРУЗ:" ws.Cells(r, 1).Font.Bold = True r = r + 1 ws.Cells(r, 1) = " Если груз выступает за пределы кузова свыше 0,5 метра — оплата по вышестоящей категории" r = r + 2 ' 4. Ложный вызов ws.Cells(r, 1) = "4. ЛОЖНЫЙ ВЫЗОВ:" ws.Cells(r, 1).Font.Bold = True r = r + 1 ws.Cells(r, 1) = " Оплачивается в половину стоимости от минимального заказа ТС" r = r + 2 ' 5. Зимний период ws.Cells(r, 1) = "5. ЗИМНИЙ ПЕРИОД (температура -25°С и ниже):" ws.Cells(r, 1).Font.Bold = True r = r + 1 ws.Cells(r, 1) = " +100 рублей к часу по тарифу" r = r + 1 ws.Cells(r, 1) = " +2 рубля/км на междугородних перевозках" r = r + 2 ' 6. Перевозка животных ws.Cells(r, 1) = "6. ПЕРЕВОЗКА ЖИВОТНЫХ:" ws.Cells(r, 1).Font.Bold = True r = r + 1 ws.Cells(r, 1) = " +2 рубля/км + 1000 рублей за мойку" r = r + 2 ' 7. Ночной простой ws.Cells(r, 1) = "7. НОЧНОЙ ПРОСТОЙ (с 21:00 до 08:00):" ws.Cells(r, 1).Font.Bold = True r = r + 1 ws.Cells(r, 1) = " 1.5 тонны: 2000 рублей" r = r + 1 ws.Cells(r, 1) = " 2 тонны: 2500 рублей" r = r + 1 ws.Cells(r, 1) = " 3 тонны: 3000 рублей" r = r + 1 ws.Cells(r, 1) = " 5 тонн: 3500 рублей" r = r + 1 ws.Cells(r, 1) = " 7 тонн: 4000 рублей" r = r + 1 ws.Cells(r, 1) = " 10 тонн: 4500 рублей" r = r + 2 ' 8. Рабочее время ws.Cells(r, 1) = "8. РАБОЧЕЕ ВРЕМЯ:" ws.Cells(r, 1).Font.Bold = True r = r + 1 ws.Cells(r, 1) = " Дневное время: с 6:00 до 22:00" r = r + 1 ws.Cells(r, 1) = " Ночное время: с 22:00 до 6:00" r = r + 1 ws.Cells(r, 1) = " Подача авто с 21:30, 30 минут на подачу" r = r + 2 ' 9. Аппарель/Бабочка ws.Cells(r, 1) = "9. АППАРЕЛЬ/БАБОЧКА:" ws.Cells(r, 1).Font.Bold = True r = r + 1 ws.Cells(r, 1) = " +100 рублей к часу + 2 рубля/км" ws.Columns("A:A").AutoFit MsgBox "Прайс-лист создан!" & vbCrLf & _ "Лист 'Прайс' - " & (r - 1) & " строк с тарифами" & vbCrLf & _ "Лист 'Условия' - все дополнительные условия", _ vbInformation, "Готово" End Sub Sub AddRow(ws As Worksheet, ByRef r As Long, price As Variant, tonnage As Variant, height As Variant, _ volume As Variant, length As Variant, minTime As Variant, pallets As Variant, _ typeCar As String, kmPrice As Variant) ws.Cells(r, 1) = price ws.Cells(r, 2) = tonnage ws.Cells(r, 3) = height ws.Cells(r, 4) = volume ws.Cells(r, 5) = length ws.Cells(r, 6) = minTime ws.Cells(r, 7) = pallets ws.Cells(r, 8) = typeCar ws.Cells(r, 9) = kmPrice r = r + 1 End Sub