' Änderungszellenereignismakro
Privates VorWorksheet_Change (ByVal Ziel als Strecke)
Schwaches rng als Strecke
Mit Blättern („Preiskalkulation“)
Rng = Strecke einstellen (. Zellen („3“, „D“). Zellen („17“, „D“)) 'führende Zeiträume/Punkte merken
Mit beenden
Wenn nicht zu schneiden (rng, Ziel) nichts dann ist
OverlapCalculator benennen
CalculateDrops benennen
CalculatePrice benennen
Beenden wenn
Unterseeboot beenden
Funktion getPVCRow ()
Schwaches PVC als Schnur
PVC = Arbeitsblätter („Preiskalkulation“). Strecke („D8“). Wert
Wenn PVC = "" dann
MsgBox („eine PVC-Art bitte vorwählen, bevor Sie“ fortfahren)
Beenden wenn
'erhielt Wert, jetzt, das wir den rechten Haltewinkel und die Zahl den Kerben finden müssen, die mit diesem verbunden sind
'erste finden den Wert in der b-Spalte
getPVCRow = Arbeitsblätter („Kosten“). Spalten (2).Cells.Find (was: =pvc, nachher: =ActiveCell, LookIn: =xlValues, _
LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, _
MatchCase: =False). Reihe
Enden-Funktion
VorOverlapCalculator ()
'
'OverlapCalculator Makro
'
'Zuerst müssen wir Streifenbreite vom vorgewählten Drop-Down-Kasten herausfinden
'Zunächst müssen wir die Zahl Kerben am Haltewinkel dann überprüfen
'Schließlich können wir die Werte dem Drop-Down berechnen und hinzufügen
Schwaches selectedrow als ganze Zahl
selectedrow = getPVCRow
|