class= " lineNumbers " de
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= de
id= " codeSnippet940513 " class= " de ' macro d'événement de cellules de changement
Worksheet_Change secondaire privé (cible de ByVal comme gamme)
Faible rng comme gamme
Avec des feuilles (« évaluation »)
Placer le rng = la gamme (. Cellules (« 3 », « D »). Cellules (« 17 », « D »)) 'noter les principales périodes/points
Finir avec
Sinon intersecter (rng, cible) n'est rien alors
Appeler OverlapCalculator
Appeler CalculateDrops
Appeler CalculatePrice
Finir si
Finir le sous-marin
getPVCRow de fonction ()
Faible PVC comme corde
PVC = feuilles de travail (« évaluation »). Gamme (« D8 »). Valeur
Si PVC = puis ""
MsgBox (« choisir svp un type de PVC avant la continuation »)
Finir si
'a obtenu la valeur maintenant que nous devons trouver la parenthèse droite et le nombre d'entailles liées à ceci
les 'premiers trouvent la valeur dans la colonne de B
getPVCRow = feuilles de travail (« coûts »). Colonnes (2).Cells.Find (ce qui : =pvc, ensuite : =ActiveCell, LookIn : =xlValues, _
LookAt : =xlPart, SearchOrder : =xlByRows, SearchDirection : =xlNext, _
MatchCase : =False). Rangée
Fonction de fin
OverlapCalculator secondaire ()
'
'Macro d'OverlapCalculator
'
'D'abord de tous que nous devons découvrir la largeur de bande de la boîte dropdown choisie
'Après nous devons vérifier alors le nombre d'entailles sur la parenthèse
'Enfin nous pouvons calculer et ajouter les valeurs au dropdown
Faible selectedrow comme nombre entier
selectedrow = getPVCRow
|
