Gut… so nach vielen Stunden der Forschung, fand ich die Antwort zu meiner Frage, während es angegeben ursprünglich…
„In unserem Verstand, funktionieren es so,…, das der Benutzer mit Arbeitsbuch öffnet (das zum Rechnungsarbeitsblatt öffnet) und die Art der Rechnung sie füllend vorwählt (vorgewählt von einer Popup- Form mit der Liste der Rechnungsarten). Nach dem Klicken 'OKAY“, geändert das BizCode, das Streckenzellenhinweis genannt.“
Annehmen, dass das Hauptarbeitsblatt „Rechnung“ genannt und das Geschäftscodearbeitsblatt „BusinessCodes“ genannt. Auch annehmen, dass es 3 genannte Strecken gibt (Sie konnten viele jedoch haben, die Sie wünschten), betitelt „BusCodes“, „TravelCodes“ und „ActivityCodes“. Jede der genannten Strecken (gerade erwähnt) beziehen eine auf einzelne Tabelle von Codes. Es gibt (wie im ersten Pfosten erwähnt), einige Veränderungen jeder Tabelle, während jede Abteilung innerhalb der Firma verschiedene Codes für Buchhaltungklarheit und -abtrennung verwendet. So die Notwendigkeit, in der Lage zu sein, die genannte Strecke zu ändern Bedarfs- bezogen abhängig von der Art der Rechnung, die ergänzt. Wieder ist der Rechnungsplan für jede Abteilung genau der selbe, nur die Tabellencodes ändern.
So sein die einfachste Lösung, die nicht eine Neukonstruktion des Arbeitsbuches erfordert, wie folgt:
1) Eine Form, die einen „Überprüfungskasten“ (umfaßt oder listbox), die verursachen enthält die verschiedenen Rechnungen, die für Gebrauch vorhanden sind.
2) Ein „auf Klicken“ Ereignis verwenden, um die genannte Rangebezugsänderung einzuleiten. Using einen „Überprüfungskasten“, erscheinen der VB Code, wie folgt….
Privates Unterseeboot InvoiceType1_CheckBox_Click ()
Wenn Me.InvoiceType1_CheckBox.Value = dann ausrichten
Blätter („BusinessCodes“). Sichtbar = ausrichten
Blätter („BusinessCodes“). Auserwählt
Strecke („A1: A100“). Name = „BusCodes“
Strecke („B1: B100“). Name = „TravelCodes“
Strecke („C1: C100“). Name = „ActivityCodes“
Blätter („BusinessCodes“). Sichtbar = falsch
Blätter („Rechnung“). Auserwählt
Application.ScreenUpdating = ausrichten en
Unterseeboot herausnehmen
Mich leeren
Sonst
'Verdoppelung über Code für jede Rechnungs-Art Wahl.
Beenden wenn
Unterseeboot beenden
Selbstverständlich könnte dieser Code verwendet werden unabhängig davon, wo die Tabellen lokalisiert, oder wie sie ausgebreitet, weil der Code ausdrücklich jede Strecke und Arbeitsblatt nennt.
Mit dem oben genannten Code konnten nicht technische Einzelpersonen/Löschung- hinzuzufügen fortsetzen/Änderungsinformationen in den erstreckten Tabellen und solange die Tabellendaten nicht die Strecke überstiegen.
Kein Zweifel, dieser Code könnte geändert werden, um das Ende jeder Tabelle, das dynamisch zu lokalisieren dann jede mögliche Notwendigkeit an ES Person entfernen, die Kodierung überhaupt wieder zu ändern ausgenommen, um vorhandene Rechnungs-Art Wahlen zu addieren oder zu entfernen…, aber die Schönheit dieser Kodierung ist, dass sie einfach ist.
