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:
' de gebeurtenismacro van de veranderingscel Privé SubWorksheet_Change (Doel ByVal als Waaier) Schemerige rng als Waaier Met Bladen („De prijs vaststellend van“) Reeks rng = Waaier (. Cellen („3“, „D“). Cellen („17“, „D“)) 'nota belangrijke periodes/punten Eind met Als niet Snijden (rng, Doel) dan niets is Vraag OverlapCalculator Vraag CalculateDrops Vraag CalculatePrice Eind als Sub van het eind Functie getPVCRow () Schemerig pvc als Koord pvc = Aantekenvellen („De prijs vaststellend van“). Waaier („D8“). Waarde Als pvc = "" toen MsgBox („te selecteren gelieve een type van pvc alvorens verder te gaan“) Beëindig als 'gekregen waarde nu moeten wij de juiste steun en het aantal inkepingen aan dit verbonden vinden 'vind eerst de waarde in de kolom van B getPVCRow = Aantekenvellen („Kosten“). Kolommen (2). Cells.Find (wat: =pvc, na: =ActiveCell, LookIn: =xlValues, _ LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, _ MatchCase: =False). Rij De Functie van het eind Sub OverlapCalculator () ' 'Macro OverlapCalculator ' 'Eerst en vooral moeten wij strookbreedte van de geselecteerde dropdown doos te weten komen 'Daarna moeten wij het aantal inkepingen op de steun dan controleren 'Definitief kunnen wij de waarden berekenen en toevoegen aan dropdown Schemerige selectedrow als Geheel selectedrow = getPVCRow