class= " lineNumbers " del
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= del
id= " codeSnippet940513 " class= " del ' macro di evento delle cellule del cambiamento
Worksheet_Change secondario riservato (obiettivo di ByVal come gamma)
Rng fioco come gamma
Con gli strati (“valutazione„)
Regolare il rng = la gamma (. Cellule (“3„, “D„). Cellule (“17„, “D„)) 'notare i periodi principali/punti
Concluder con
Se non intersecare (rng, obiettivo) è niente allora
Denominare OverlapCalculator
Denominare CalculateDrops
Denominare CalculatePrice
Concluder se
Concludere il sommergibile
getPVCRow di funzione ()
PVC fioco come stringa
PVC = manuali (“valutazione„). Gamma (“D8„). Valore
Se PVC = "" allora
MsgBox (“selezionare prego un tipo del PVC prima della continuazione„)
Concluder se
'ha ottenuto il valore ora che dobbiamo trovare la staffa di destra ed il numero delle tacche connesse con questa
'i primi trovano il valore nella colonna di B
getPVCRow = manuali (“costi„). Colonne (2).Cells.Find (che cosa: =pvc, dopo: =ActiveCell, LookIn: =xlValues, _
LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, _
MatchCase: =False). Fila
Funzione di conclusione
OverlapCalculator secondario ()
'
'Macro di OverlapCalculator
'
'In primo luogo di tutti che dobbiamo scoprire la larghezza della striscia dalla scatola a discesa selezionata
'Dopo dovremo allora controllare il numero delle tacche sulla staffa
'Infine possiamo calcolare ed aggiungere i valori al a discesa
Selectedrow fioco come numero intero
selectedrow = getPVCRow
|