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 del acontecimiento de la célula del cambio
Worksheet_Change secundario privado (blanco de ByVal como gama)
Rng dévil como gama
Con las hojas (“tasación”)
Fijar el rng = la gama (. Células (“3”, “D”). Células (“17”, “D”)) 'observar los períodos principales/los puntos
Terminar con
Si no intersecarse (rng, blanco) entonces no es nada
Llamar OverlapCalculator
Llamar CalculateDrops
Llamar CalculatePrice
Terminar si
Terminar el submarino
getPVCRow de la función ()
Pvc dévil como secuencia
pvc = hojas de trabajo (“tasación”). Gama (“D8”). Valor
Si pvc = "" después
MsgBox (“seleccionar por favor un tipo del PVC antes de continuar”)
Terminar si
'consiguió valor ahora que necesitamos encontrar el soporte derecho y el número de muescas asociadas a esto
el 'primeros encuentran el valor en la columna de B
getPVCRow = hojas de trabajo (“costes”). Columnas (2).Cells.Find (qué: =pvc, después: =ActiveCell, LookIn: =xlValues, _
LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, _
MatchCase: =False). Fila
Función del final
OverlapCalculator secundario ()
'
'Macro de OverlapCalculator
'
'En primer lugar necesitamos descubrir anchura de la tira de la caja dropdown seleccionada
'Necesitamos después entonces comprobar el número de muescas en el soporte
'Finalmente podemos calcular y agregar los valores al dropdown
Selectedrow dévil como número entero
selectedrow = getPVCRow
|