In orde… zo na vele uren van onderzoek, vond ik het antwoord aan mijn vraag aangezien het oorspronkelijk… werd verklaard
„In onze meningen, het werken=zou= als dit… De gebruiker opent met Werkboek (dat voor het aantekenvel van de Rekening) opent en selecteert het type van rekening zij die (geselecteerd uit een popup vorm met de lijst van de types van Rekening) vullen. Op het klikken 'O.K.“, wordt BizCode genoemd de verwijzing van de waaiercel veranderd.“
Veronderstel het belangrijkste aantekenvel „Rekening“ wordt genoemd en het bedrijfscodesaantekenvel „BusinessCodes“ wordt genoemd. Veronderstel ook er 3 genoemde waaiers (u kon nochtans velen hebben u) wilde, met een adellijke titel „BusCodes“, „TravelCodes“ en „ActivityCodes“ zijn. Elk van de genoemde (enkel) vermelde waaiers verwijst naar één enkele lijst van codes. Er zijn (zoals vermeld in de eerste post), verscheidene variaties van elke lijst aangezien elke afdeling binnen het bedrijf verschillende codes voor boekhoudingsduidelijkheid en scheiding gebruikt. Aldus de behoefte de genoemde van verwijzingen voorzien waaier kunnen veranderen op bestelling afhankelijk van het type van Rekening die worden ingevuld. Opnieuw, is de rekeningslay-out voor elke afdeling precies zelfde, slechts de verandering van lijstcodes.
Aldus, zou de eenvoudigste oplossing die geen herontwerp van het werkboek vereist als volgt zijn:
1) Cre�ër een Vorm die een „controledoos“ omvat (of listbox), bevat dat de verschillende Rekeningen beschikbaar voor gebruik.
2) Gebruik een „op klik“ gebeurtenis om de Genoemde de verwijzingsverandering van de Waaier in werking te stellen. Gebruikend een „controledoos“, zou de code VB als volgt…. verschijnen
Privé SubInvoiceType1_CheckBox_Click ()
Als Me.InvoiceType1_CheckBox.Value = waar toen
Bladen („BusinessCodes“). Zichtbaar = Waar
Bladen („BusinessCodes“). Selecteer
Strek me uit („A1: A100“). Naam = „BusCodes“
Waaier („B1: B100“). Naam = „TravelCodes“
Waaier („C1: C100“). Naam = „ActivityCodes“
Bladen („BusinessCodes“). Zichtbaar = Vals
Bladen („Rekening“). Selecteer
Application.ScreenUpdating = Waar
Sub van de uitgang
Maak me leeg
Anders
'herhaling boven code voor elke optie van het Type van Rekening.
Eind als
Sub van het eind
Natuurlijk, zou deze code ongeacht waar de lijsten worden gevestigd of hoe kunnen worden gebruikt zij worden opgemaakt omdat de code uitdrukkelijk elk gamma en aantekenvel noemt.
Met de bovengenoemde code, konden de niet technische individuen blijven toevoegen/schrappen/veranderingsinformatie in de uitgestrekte lijsten en zolang de lijstgegevens niet de waaier overschreden.
Geen twijfel, zou deze code kunnen worden gewijzigd om van het eind van elke lijst, die dan om het even welke behoefte aan een persoon van IT zou verwijderen om de codage behalve opnieuw ooit te wijzigen om de beschikbare opties van het Type van Rekening toe te voegen of te verwijderen… maar van de schoonheid van deze codage dynamisch de plaats te bepalen is dat het eenvoudig is.
