Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: UF, cmdButtons en arrays/collections  (gelezen 26514 keer)

0 leden en 2 gasten bekijken dit topic.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: UF, cmdButtons en arrays/collections
« Reactie #30 Gepost op: 01 juli 2023, 19:31:24 »
Hey BlackDevil,

Oei, te vroeg gejuicht dus...

Evenwel: heel vaak kom ik zelf tot de conclusie dat het net goed is om een project in stukjes op te delen (het bos en de bomen, weet je wel), en ze één voor één compleet af te werken. Ik snap je drang wel om het 'in zijn geheel' te bekijken, maar eigenlijk vind ik dat persoonlijk meer iets als voorbereiding om aan een totaal nieuw project te beginnen. Wat niet wil zeggen dat we er hetzelfde moeten over denken, hé!

Bovendien acht ik het mogelijk dat je net iets te gefocust bent geraakt op de 'moeilijkheden' die een klassemodule meebrengt. Alles wat tot nu toe in je project zat hadden we net zo goed zonder klassemodule kunnen realiseren. Ik gebruikte die enkel om te vermijden dat je voor elke commandbutton een aparte code zou moeten schrijven, en dan vooral omdat je er wel wat op je userforms had staan.

Hebben we vroeger niet nog iets in die stijl gedaan? Als je denkt dat het jou meer gemoedsrust kan opleveren, waarom dan niet?
Kort: voor del- en ok-knoppen kan je de code gewoon achter het userform steken, voor de 31 andere knoppen ook en telkens een code met één instructie die de 'caption' meegeeft  aan een globale code die de verdere verwerking doet, en that's it. Méér code is ook niet per se verkeerd, hé, als je maar zorgt dat er geen onnodige wordt uitgevoerd.

In jouw plaats zou ik het toch nog even laten bezinken (paniek is een slechte raadgever...)

Wat mijn opmerking uit vorige post betreft toch nog even: heb je die code ook getest met de aansturende knop (die op een ander werkblad staat)?

O ja, als het allemaal te onoverzichtelijk wordt, valt het dan niet te overwegen om er veeleer een sjabloon van te maken, en voor elk nieuw project een afzonderlijk bestand te maken (ook weer zomaar een ideetje dus ;))

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #31 Gepost op: 01 juli 2023, 20:57:59 »
Hey Molly,

Bedankt voor je uitgebreide reactie  ;).

1) ik vrees dat ik mijn vorig bericht een beetje te snel geschreven en geplaatst heb (mijn eten was net klaar dus heb me extra gehaast) waardoor
ik het eigenlijk niet goed verwoord had.
Het complete (afgewerkte) bestand zal uiteindelijk uit drie onderdelen bestaan : voorbereiding van een nieuw borduurwerk, het borduren zelf en dan het archiveren van het afgewerkte borduurwerk.
Meestal als ik aan een VBA-project begin bekijk ik het eerst globaal (wat is het volledige doel?, hoe moet/wil ik da bereiken?, wat heb ik er voor nodig?) en vervolgens hak ik het geheel in stukjes dat ik één voor één afwerk en uittest om dan uiteindelijk het geheel samen te brengen.
Ditmaal echter, omdat ik afgelopen jaar al eens een borduur-bestand had gemaakt dat ik als voorbeeld/basis kon gebruiken, ben ik rechtstreeks met de aparte onderdelen afzonderlijk begonnen zonder eerst eens (ter voorbereiding) het globaal te bekijken. Maw, ik ben eerst begonnen met een procedure om het papieren telpatroon over te nemen en ben vervolgens van daaruit aan de andere delen beginnen werken waarbij ik dan eerst het gedeelte "nieuw project" volledig heb afgewerkt.
Dat deel van het bestand is wat mij betreft qua werking op zich ok, eventueel mogen er wel nog wat extra opties bij inzake werkrichting van het inkleuren ed alsook de lay-out van de benodigde werkbladen.

Het wass nu vooral dat tweede deel, het borduren zelf, waarbij ik met complexe procedures zit waarbij in elke procedure vaak een codeblok herhaald wordt, dat ik vast kwam te zitten.
Om een voorbeeld te geven : de bijhorende RGB-code opzoeken van een symbool en/of vice versa... om dan die connectie te gebruiken binnen de procedure.
Dit wordt nu elke keer opnieuw gedaan in meerdere subs en dat lijkt mij nogal overbodig en te vermijden.
In dit geval lijkt het mij aangewezen om even het onderdeel "borduren" in zijn geheel te bekijken en te kijken of het niet zinvoller is om dat vaak voorkomende code-blok te elimineren door die gegevens standaard in een collectie of dergelijke te steken die rechtstreeks vanuit elke sub gebruikt kan worden voor de benodigde handelingen.

Het gebruik van de klasse-module is inderdaad meer dan wenselijk omdat ik het niet zie zitten om tot 40 commandbuttons allemaal apart dezelfde code-structuur te gaan geven en dit op twee aparte UF's.
Ook op de UF_borduren was het me grotendeels gelukt om het via de klasse-module volledig werkend te krijgen.

Het was pas bij de laatste commandbutton "verwerken" dat ik kwam vast te zitten.
Ik hoopte gewoon mijn sub in een gewone module te kunnen schrijven (was voor mij het simpelste omdat ik met een gewone module het meest vertrouwd ben voor complexere subs) en deze vervolgens vanuit de klasse-module bij het klikken op de knop 'verwerken' aan te roepen. Maar ik raakte er totaal niet uit hoe ik dat dan moest gaan doen. Ik had eerst geprobeerd om de betreffende sub achter "verwerken" gewoon rechtstreeks in de click sub van de button zelf te plaatsen maar dat gaf steeds een foutmelding... Dus ja, na een drietal uren hiermee constant tegen een muur aan te lopen zag ik het even niet meer zitten  ;D :-[ .

Panikeren heb ik zeker niet gedaan maar in het verleden heb ik al vaak ervaren dat, wanneer ik vastloop, ik dan gewoon eventjes alles terug 'globaal' bekijk en het vanuit een andere hoek aanpak, het dan meestal wel beter lijkt te lukken. Vandaar mijn voorstel om even op de reset-knop te drukken en het volledig te herbekijken met een 'clean slate'.

2) ivm jouw verwijzing naar de sub 'rastermaken' heb ik deze inderdaad uitgevoerd via die opdrachtknop op het werkblad "legende" en dat werkte gewoon...

3) jouw idee om een sjabloon te maken en voor elk nieuw project een afzonderlijk bestand te maken heb ik zelf ook al meermaals aan gedacht alleen wist ik niet zo goed op welke wijze ik dat dan best kon aanpakken  :-[ ;D ...


Conclusie :
Om te vermijden dat ik hier uiteindelijk met 101 verschillende versies van het bestand zou eindigen met elk een andere manier van werken denk ik inderdaad dat een sjabloon maken (dat voor elk toekomstig project kan worden gebruikt) de beste optie is en compleet mijn voorkeur geniet.
Maar daar zal ik dan, vrees ik, toch wel wat hulp bij kunnen gebruiken...  :D .


groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: UF, cmdButtons en arrays/collections
« Reactie #32 Gepost op: 02 juli 2023, 11:34:18 »
Hallo BlackDevil,

Juist, dat werpt nogmaals een ander licht op de zaak :D

Sorry hoor, maar ik wil toch nog één keer terugkomen op die ene constructie die volgens mij niet zou werken. Niet alleen voor jou, maar ook en nog meer voor mezelf, heb ik daarom nu bijgaand filmpje opgenomen, dat laat weinig aan de verbeelding over.

Mijn drie vorige ideeën, 1) het per onderdeel bekijken, 2) klassemodules terugfluiten, én 3) met sjabloon werken, zijn, na lezing van je laatste post, veel minder relevant geworden, en zeker omdat er inderdaad al veel klaar is. Jawel, ook de sjabloon-kwestie. Die zou namelijk enkel later, als alles klaar is, voordeliger kunnen zijn, maar tijdens de ontwikkelfase eea nog wat lastiger maken. Misschien is een pseudo-sjabloon wel handiger, een 'gewone' Excel dus die bij de keuze 'nieuw' een nieuw bestand klaarzet voor gebruik.

Als je meerdere keren hetzelfde stuk code in je procedures hebt staan zijn er wel wat mogelijkheden. Je kan die op één plaats in een module steken en ze aanroepen vanuit eender welke procedure, indien nodig met meegegeven parameters (dat is vroeger ook al aan bod gekomen). In het voorbeeld dat je gaf omtrent de rgb-waarden zou je die ook in het geheugen kunnen bewaren onder een of andere vorm, maar of je daar nu veel meetbare winst mee gaat boeken lijkt me twijfelachtig.

Ja, ik weet het, ik geef je weer meer denk- dan doe-werk... ;)

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #33 Gepost op: 02 juli 2023, 12:31:27 »
Goedemiddag Molly,

Eerst en vooral de kwestie ivm dat "rastermaken"... Blijkbaar zal ik de sub dan toch via het lint (macro's) uitgevoerd hebben want inderdaad, als ik op die opdrachtknop klik krijg ik ook een foutmelding... Mijn excuses voor de verwarring  :-[, heb de laatste dagen al zodanig veel code geschreven en getest dat ik uiteindelijk niet meer weet wat ik via welke weg heb uitgevoerd  :D .

Dan ivm mijn vorige reactie mbt een 'clean slate'.
Na er een half nachtje over geslapen te hebben ben ik vanmorgen een beetje beginnen brainstormen en heb ik eens alles uitgeschreven (eerst stappenplan voor gebruik eens gestart met borduren en vervolgens stappenplan ivm wat er allemaal nodig zal zijn tijdens het borduren zelf) en vervolgens hoe het verloop met gebruik van een sjabloon er zou kunnen uitzien.
Voor dat laatste kwam ik uit op een globale werking als volgt :
Een sjabloon-bestand waarin alle benodigde werkbladen, sub's, opdrachtknoppen en UF's reeds verwerkt zitten maar er nog geen echte gegevens in zitten.
Bij openen van het sjabloon-bestand vervolgens op de knop "nieuw" klikken die begint met een inputbox waarin de gebruiker een unieke naam dient te geven voor het nieuwe project en die naam dan onmiddellijk gebruikt wordt om binnen diezelfde sub het bestand "opslaan als..." uit te voeren waarna de sub in het dan hernoemde bestand gewoon verder loopt.
Binnen diezelfde sub "nieuw " zouden dan nog enkele inputboxen en msgboxen gebruikt worden om de basisgegevens in te geven die nodig zijn in de volgende stappen.

Ik ben met de aanmaak van dat sjabloon-bestand reeds begonnen gewoon om al eens te kijken hoe mijn idee er dan uit zou zien en of dit dan wel de gewenste werkwijze is. Ik ben momenteel bijna klaar met de sub "nieuw" en zodra die af is zal ik deze al eens aanhangen.

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: UF, cmdButtons en arrays/collections
« Reactie #34 Gepost op: 02 juli 2023, 12:44:52 »
Hey BlackDevil,

Geen excuses nodig, hoor, wel goed dat het is uitgeklaard.

Wat je nu beschrijft over hoe je een sjabloon wil ontwikkelen is exact hoe ik het voor me zag als ik het over een 'pseudo-sjabloon' had.
Aan de slag dus maar :D :D :D

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #35 Gepost op: 02 juli 2023, 15:17:07 »
Hey Molly,

Blij te lezen dat ik op dezelfde golflengte zit met mijn denkwijze  :D ...

In bijlage dan mijn eerste probeersel voor het sjabloon-bestand wat betreft de code achter "nieuw"...

Je zal zien dat ik het werkblad "dashboard" iets anders heb ingedeeld , ipv via één start-knop een UF aan te roepen om dan de onderdeel-keuze te maken heb ik het UF er tussenuit gelaten en de verschillende knoppen rechtstreeks op het werkblad geplaatst.
Verder heb ik enkel alle benodigde werkbladen toegevoegd en waar relevant de nodige lay-out toegevoegd en heb ik dus nog geen UF's toegevoegd voor de volgende stappen.

Enkel de sub "nieuw" (in mod_nieuw) heb ik volledig uitgewerkt.
Hier heb ik wel het lijntje code waar het bestand effectief onder de nieuwe naam wordt opgeslagen nog eventjes als "commentaar" gemarkeerd omdat dit in de 'testfase' van de rest van de code anders te storend zou worden.
Ook moeten er nog 2 codeblokken toegevoegd worden onderaan de sub "nieuw" waar ik wel al de commentaren mbt die codeblokken heb geplaatst. Het betreft de code voor het opzoeken van de ingevoerde DMC-nrs in de grote referentie-lijst (met alle bestaande DMC-nrs) om alzo hun bijhorende kleur en RGB-code te kunnen aanvullen op het werkblad waar de benodigde nummers geplaatst werden en dan ook nog de code voor het aanmaken van het raster adhv het ingegeven aantal kolommen en rijen dat het borduurwerk in beslag zal nemen.

Ik weet dat de afgewerkte code tot hiertoe al redelijk wat inputboxen zijn en in principe misschien wat overbodige controle-msgbox'en maar beter een keer te veel controleren dan een keer te weinig  ;D

Laat maar weten wat je er tot hiertoe van vind en welke bemerkingen/verbeteringen/tips of dergelijke je er bij hebt  ;)


groetjes,
BlackDevil

*update*
was nog vergeten te melden dat er in het bijgevoegde bestand een klein detail-foutje zat in mijn input-boxen, namelijk dat de "titel"-parameter verkeerd stond, heb dit ondertussen aangepast.

Ook merkte ik nu net op dat er een fout zit in mijn wegschrijf-locatie voor de "deadline"-datum, dit moet niet rij1, kolom2 zijn maar wel rij2, kolom1.
Dit heb ik ondertussen ook aangepast.
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #36 Gepost op: 02 juli 2023, 19:50:31 »
Ondertussen heb ik de code-blok van de DMCtoRGB-handeling verwerkt gekregen binnen de wegschrijfcode vanuit de inputboxen naar het werkblad "stats".
Dat werkt momenteel allemaal perfect.

Er is maar één klein detail dat ik niet goed krijg en dat is ivm de datums (start- en deadline) die vanuit de inputboxen weggeschreven worden naar het werkblad "log".
Ondanks dat ik op zowel het werkblad als in de wegschrijfcode de juiste notatie (dd-mm-jjjj) heb ingesteld wordt de datum alsnog in de vorm "mm-dd-jjjj" geplaatst op het werkblad. Ik vind maar niet waar het probleem ligt...

In bijlage mijn meest recente versie (1.1) van het sjabloon-bestand.

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Pagadder

  • Volledig lid
  • **
  • Berichten: 183
Re: UF, cmdButtons en arrays/collections
« Reactie #37 Gepost op: 02 juli 2023, 20:22:50 »
Dit is een projectje tussen jou en MolllyVh en daar wil ik zeker niet tussenkomen,ik volg het wel op,misschien kan ik nog wat bijleren :glare:
Met  je ingebouwde msgboxes wordt iedere gebruiker gek, voor jou werkt het misschien maar zoals een van de beste Excelkenners die ik ken SNB, msgbxes is not done, je moet zorgen dat de gebruikers niet verder kunnen.
Maar ja wie ben ik?
Ja na twee keer klikken heb ik je bestand gewist.

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #38 Gepost op: 02 juli 2023, 21:39:46 »
@pagadder,

bedankt voor je respons en toelichting.

Zelf wordt ik ook gek van dat constant moeten wegklikken van talloze msgbox'en... die gaan er dan sowieso ook niet in aanwezig blijven en werden nu enkel toegevoegd voor de testfase.
Aangezien het uiteindelijk een bestand is dat enkel door mezelf gebruikt zal worden zijn die talloze msgboxen dan ook totaal overbodig eens het bestand volledig klaar is, omdat ik zelf maar al te goed weet hoe er met het bestand gewerkt zal moeten worden.
Anderzijds is die sub "nieuw" met die input- en msgboxen de enige waarin dit voltallig voorkomt en die sub hoeft ook maar één keer uitgevoerd te worden, vlak aan het begin van elk project (en een project duurt minstens 6 maanden dus). Maar goed...

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: UF, cmdButtons en arrays/collections
« Reactie #39 Gepost op: 02 juli 2023, 21:49:02 »
Hey BlackDevil,

Ik heb je laatste bestand nog niet kunnen bekijken, maar misschien ga je zelf wel nog even door (is het niet vanavond, dan misschien morgen in de vroegte ;)), dus vlug even meegeven hoe je dat kan doen met die datums:
Cells(rij, kolom) = CDate(InputBox("Datum?"))Mits de goede opmaak op je werkblad zal dat volstaan.

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #40 Gepost op: 03 juli 2023, 07:23:15 »
Goedemorgen Molly,

De CDate-functie heeft het datum-probleem opgelost dus bedankt  _/-\o_ .

Gezien de tot hiertoe reeds opgebouwde code exact doet wat het moet doen heb ik in mijn volgende versie de onderdelen mbt de 'testfase'
uit de code verwijderd.
Voor wat betreft de handelingen achter de knop "nieuw" dient enkel de sub "rastermaken" nog toegevoegd te worden maar gezien die ene
foutmelding in een deel van de originele code zou die sub eens herbekeken moeten worden.

Ondertussen ben ik begonnen met de ontwerpfase van de UF's voor de volgende stap.

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #41 Gepost op: 03 juli 2023, 11:52:47 »
***UPDATE***

Alvorens aan de ontwerpfase van de UF's van de volgende stap te beginnen kon ik het mij toch niet laten om eerst die
code voor het maken van het raster nog eens deftig te bekijken.
Mits toevoeging van één lijntje code heb ik hem werkend gekregen zonder foutmelding en hem ook gewoon in de sub "nieuw"
geplaatst vlak na de invoerboxen mbt het aantal rijen en kolommen.

Elk code-onderdeel is dus af in die zin dat het doet wat het moet doen maar de sub "nieuw" kan vermoedelijk in zijn geheel
wel nog wat overzichtelijker gemaakt worden aangezien deze nu toch wel vrij lang is en zeker omwille van alle toegevoegde
commentaar niet zo overzichtelijk meer is.

In bijlage hang ik even mijn versie 1.2 aan daar dit de recentste versie is.

Dan voor de volgende stap :

Inzake de tekens (letter/cijfer) voor het inkleuren van het raster heb ik gemerkt dat het gebruik van letters en/of cijfers uiteindelijk
niet zo goed werk in het telpatroon op visueel vlak. Ook bij het overnemen van het papieren telpatroon (met echte symbool-tekens)
was de fysieke omzet van symbool naar letter/cijfer nogal verwarrend soms.
Dus zou ik opnieuw gebruik willen maken van echte symbool-tekens zoals ik deed in mijn vorig borduur-project.
Ik hoopte binnen het lettertype "Segoe UI Symbol" alle gebruikte symbolen in het papieren telpatroon te kunnen terugvinden zodat
de fysieke omzet van papieren telpatroon naar het excel-werkblad veel vlotter zou verlopen maar dit is spijtig genoeg maar deels gelukt.
In de PDF-file (telpatroon) is in de legende elk symbool apart toegevoegd maar alweer als afbeelding dus tekstherkenning kan ik hier natuurlijk weer niet toepassen.

Nu vraag ik me dus af of het niet mogelijk zou zijn om zo een symbool-afbeelding op één of andere manier om te zetten naar een effectief
symbool-teken of lettertype-karakter om vervolgens te gebruiken in excel.

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: UF, cmdButtons en arrays/collections
« Reactie #42 Gepost op: 03 juli 2023, 13:11:30 »
Hoi BlackDevil,

Ik zal het minstens gans deze week nogal druk hebben maar heb toch al je laatste werkstuk kunnen bekijken.
Nog 2 weetjes?
1. Met CDate maakt het niet uit welke 'opmaak' je in de inputbox gebruikt. Wél belangrijk is dat je input moet kunnen herkend worden als datum.
2. Je (nood)oplossing 'Sheets("raster").Select' kan natuurlijk, voor de duidelijkheid zou ik dan daaronder iedere 'With Sheets("raster")...' weghalen, dat komt al een héél klein beetje tegemoet aan:
Citaat
sub "nieuw" kan vermoedelijk in zijn geheel wel nog wat overzichtelijker gemaakt worden aangezien deze nu toch wel vrij lang is en zeker omwille van alle toegevoegde commentaar niet zo overzichtelijk meer is.
Die kan ook een beetje korter gemaakt worden want er staan een aantal instructies in die zonder meer weg mogen. Meermaals komt bv. LineStyle en ColorIndex terug terwijl die al op de gekozen manier waren ingesteld. Om heel precies te bepalen wat weg mag kan je best één keer met F8  door die code gaan en het meteen aanpassen. Je zal dan ook zien dat sommige 'With...End With'-constructies nog slechts één instructie overhouden en dus tot één regeltje kunnen herleid worden.

Ik zag nog iets wat ik zelf anders zou doen. Tijdens het ingeven van de verschillende DMC-nrs worden deze gewoon geaccepteerd en doe je pas achteraf een controle op het bestaan ervan. Logischer zou misschien zijn om die controle meteen bij de input te doen(?)

Citaat
Nu vraag ik me dus af of het niet mogelijk zou zijn om zo een symbool-afbeelding op één of andere manier om te zetten naar een effectief symbool-teken of lettertype-karakter
Oei, ooit heb ik nog met software gewerkt waarmee je zelf bestaande karakters kon hertekenen (pre-Windows tijdperk), maar hoe we dit in Excel zouden kunnen verzinnen  :(
Er later nog eens over nadenken blijft natuurlijk wél een optie 0:-)

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #43 Gepost op: 03 juli 2023, 15:31:18 »
Hey Molly,

Bedankt dat je in jouw drukte toch nog de moeite neemt om na te kijken en toelichting te geven  _/-\o_ .

Inzake het inkorten/opschonen van de sub "nieuw" zal ik me daar in de loop van de avond eens grondig aan zetten.
Ivm die rastermaken-sub was ik ook al aan het denken geweest of die herhaaldelijke border-instellingen niet gewoon
éénmalig konden ingegeven worden. Ben eigenlijk de hele voormiddag (sinds 6u vanmorgen) aan het bestuderen
geweest hoe die rastermaken-sub drastisch zou kunnen ingekort worden maar omdat ik er niet zo meteen echt mijn
focus kon opzetten dacht ik van 'ik kopieer hem gewoon zoals hij is en werk snel die foutmelding weg en de "opschoning"
doe ik later wel als ik mij beter kan focussen'  :D .

Voor wat betreft die originele symbolen heb ik het al zo ver gekregen dat ik elke afbeelding afzonderlijk in een map heb
staan. Het zijn allemaal .svg bestanden die normaliter via een gratis web-applicatie simpel te converteren en samen te voegen
zijn tot een nieuw lettertype-bestand (ttf). Echter, toen ik dit wou doen blijkt dat 2/3e van de afbeeldingen niet 'zuiver' genoeg
zijn.
Dus nu ben ik deze allemaal aan het converteren naar .png zodat ik ze kan bewerken (en dus scherper maken) waarna ik ze
dan opnieuw converteer naar .svg en alzo dan toch in de web-applicatie kan laden om er dan een custom lettertype van te maken.

Ik laat nog weten of dit al dan niet succesvol afloopt  ;D

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Pagadder

  • Volledig lid
  • **
  • Berichten: 183
Re: UF, cmdButtons en arrays/collections
« Reactie #44 Gepost op: 03 juli 2023, 15:44:10 »
Dit is half off topic.
Eerst en vooral,ik ken niets van borduren en haken.
Mijn vrouw is echter een frequente haakster.
ik heb jaren terug eens een lettertype gemaakt om haar eigen patronen te maken.
Een rechtopstaand streepje is een stokje,een rechtopstaand streepje met een horizontaal streepje in de midden is een half stokje,een bolletje is een losse, enz...
Iemand die iets van handwerken kent zal dit (denk ik) wel begrijpen.
Als voorbeeld een patroon en de symbolen. (voor haken,niet voor borduren)
De font maken viel wel mee, ik kon de symbolen vinden en daarna een font collectie van gemaakt.
Omdat ik dit een leuk postje vind ben ik eens gaan kijken wat de symbolen zijn voor borduren en ik kwam op volgende website terecht:
http://stitchingjoy.com/patternmaker.html
Voor de lol heb ik eens het logo van Oplossing gebruikt als test.
Zie het resultaat in de PDF.
Wat mij opvalt is,er worden daar alleen karakters voor gebruikt die op een toetsenbord voorkomen.

 


www.combell.com