class= " lineNumbers "
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
|
class=
id= " codeSnippet940513 " class= " ' макрос случая клетки изменения
Приватное Sub Worksheet_Change (цель ByVal как ряд)
Тусклое rng как ряд
С листами («оценка»)
Установите rng = ряд (. Клетки («3», «d»). Клетки («17», «d»)) 'заметьте ведущий периоды/fullstops
Закончитесь с
Если не пересечь (rng, цель) ничего после этого
Вызовите OverlapCalculator
Вызовите CalculateDrops
Вызовите CalculatePrice
Закончитесь если
Закончите подводную лодку
getPVCRow функции ()
Тусклый pvc как шнур
pvc = рабочий лист («оценка»). Ряд («D8»). Значение
Если pvc = "" после этого
MsgBox («пожалуйста выберите тип PVC перед продолжать»)
Закончитесь если
'получил значение теперь, котор нам нужно найти правый кронштейн и число зазубрин ассоциированных с этим
'первые находят значение в колонке b
getPVCRow = рабочий лист («цены»). Колонки (2).Cells.Find (: =pvc, поже: =ActiveCell, LookIn: =xlValues, _
LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, _
MatchCase: =False). Рядок
Функция конца
Sub OverlapCalculator ()
'
'Макрос OverlapCalculator
'
'Сперва всех, котор нам нужно найти вне ширину прокладки от выбранной коробки падающей вниз
'Затем нам нужно после этого проверить число зазубрин на кронштейне
'Окончательно мы можем высчитать и добавить значения к падающему вниз
Тусклое selectedrow как интежер
selectedrow = getPVCRow
|