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 26512 keer)

0 leden en 1 gast bekijken dit topic.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: UF, cmdButtons en arrays/collections
« Reactie #15 Gepost op: 28 juni 2023, 14:45:36 »
En in 4.2 de acties bij MouseMove nog een beetje aangepast, ik kon het weer niet laten...
Zoek het (kleine) verschil :)
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 #16 Gepost op: 28 juni 2023, 15:57:46 »
Hey Molly,

Ivm die "controle" achter de 'ok'-knop dat dit niet zo handig is in dit geval is inderdaad omdat ik soms al eens minder of héél soms enkele tekens meer
moet verwerken.

Wat in mijn werkblad reeds verwerkt is is inderdaad het echte resultaat. En het klopt dat ik vaak rijen heb waar ik soms 10, 20 of 30 x hetzelfde teken heb.
Ook komt het soms zelfs voor dat ik in een vierkant van 10x10 maar 1 of 2 andere karakters heb en de overige 98 of 99 allemaal hetzelfde karakter  :D.
Dus het zou inderdaad wel handig zijn om zo nu en dan eens ineens 5 of 10x hetzelfde karakter in te geven maar dan vermoed ik dat ik mijn UF nog verder
zal moeten uitbreiden met bvb een groepje van 3 optionbuttons voor respectievelijk 1x , 5x en 10x het volgend aangeklikte teken door te voeren.
Ook vermoed ik dat dan de code zelf ook iets ingewikkelder zal worden?
Maar zeker de moeite waard om het uit te proberen want ja, ik heb in totaal 6 telpatronen (6 borduurwerkjes in hetzelfde thema (horoscopen) met elk ca. 202 x 242 steken (dat zijn dan de betreffende patronen waar ik dan zelf ook nog een eigen stuk aan toevoeg met naam & °-datum). De betreffende patronen zelf zijn ca 165 x 165 steken.

wat dan je "out of the box" idee betreft is dit niet zo heel ver gezocht hoor...
de originele patronen zijn eigenlijk digitale patronen die ik gekocht heb. Het zijn PDF-files waarvan ik aanvankelijk hoopte dat ik binnen de PDF's zelf de tekstherkenning kon toepassen maar uiteindelijk blijkt dat dit gewoon afbeeldingen zijn die ze hebben ingevoegd in de PDF-files.
Vandaar dat ik ze dan afgeprint heb (wat héél veel inkt verbruikt omdat ze ook reeds ingekleurd zijn) om ze dan zelf over te zetten naar excel.
Maar om de verdere handelingen (codering) binnen het bestand simpeler te maken heb ik de symbolen van het originele patroon in mijn bestand gewijzigd naar gewoon
letters en cijfers omdat ik in mijn vorig project nogal wat problemen was tegen gekomen bij gebruik van die speciale symbolen...

Dus ja, ik denk wel dat het een enorme meerwaarde zal hebben om in de UF te voorzien dat ik met 1 klik meerdere vermeldingen van hetzelfde teken kan invoegen.

groetjes,
BlackDevil

P.S.: Ik ga zo meteen jouw versie 4.1 al eens bestuderen ;-)

Edit : en jouw versie 4.2 (zag pas je bijkomende reactie nadat ik dit bericht geplaatst had  :D
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 #17 Gepost op: 28 juni 2023, 16:17:45 »
Hey BlackDevil,

Citaat
soms al eens minder of héél soms enkele tekens meer
Juist, dat verklaart alles. Aangezien het maar zelden voorkomt (10 dus de standaard lengte is), zouden we de achtergrondkleur van de textboxen rood kunnen maken indien <> 10 en groen bij 10, dus enkel een visueel gegeven, waarbij er geen UDE (user defined error :D :D :D) optreedt bij een andere lengte dan 10 (weer zomaar een ideetje).

Als je effectief zo vaak dezelfde tekens zal nodig hebben lijkt het mij zeker aangewezen je formulier en code uit te breiden volgens onze laatste inzichten. Zo veel extra zal het niet zijn, en daar ga je nadien gegarandeerd de vruchten van plukken.

Zie je dat zitten om eens één zo'n pdf'je te bezorgen, heel kleine kans op succes, maar wie niet waagt...

Vandaag moet ik wel de boeken wat vroeger dicht doen dan gisteren, voordeel voor jou is dan weer dat je niet met verschillende versies overladen wordt 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 #18 Gepost op: 28 juni 2023, 16:36:13 »
Hey Molly,

Alvast al een enorm grote merci voor de hulp die je me tot hiertoe al gegeven hebt ;-)  _/-\o_ .

Aangezien mijn patroon een 'gekocht' exemplaar is heb ik de PDF uitgedund tot 1 'patroon'-pagina (zijn er 16 in totaal) welke ik hier in bijlage aanhang.


Ik zal me de rest van de dag (tussen de wekelijkse kuis door  :D ) eens wat amuseren met het uitbreiden van de UF  ;) .
Zodra ik een deftig resultaat heb zal ik de nieuwe versie hier eventjes plaatsen en ik hoor (lees) dan morgen ergens wel de eventuele
bedenkingen/aanpassingen :) .

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 #19 Gepost op: 28 juni 2023, 18:03:13 »
***UPDATE***

Het ging sneller/vlotter dan verwacht  ;D ...

Ik heb een groepsvak met 3 OptionButtons toegevoegd aan het UF en daarmee ook de indeling inzake de "del"- en "ok"-knoppen alsook van de TextBoxen
wat aangepast.

Ik heb de noodzakelijke code mbt de OptionButtons geplaatst in zowel de initialize van de UF als in de class-module
en tenslotte heb ik nog wat code toegevoegd om de achtergrondkleur van de tweede TextBox (teller) van kleur te wijzigen volgens aantal ingevoerde tekens.

Ik heb alles getest en het lijkt op het eerste zicht in orde te zijn.
Vermoedelijk heb ik het opnieuw wat te omslachtig gecodeerd maar het doet wat het moet doen dus ik ben trots op mezelf  :D .

Bedenkingen/aanpassingen en/of nog extra tips zijn zeker altijd welkom aangezien ik altijd gemotiveerd ben om bij te leren.

In bijlage versie 4.3 met de allerlaatste aanpassingen.

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 #20 Gepost op: 29 juni 2023, 09:33:23 »
Hoi BlackDevil,

Geen echt slecht nieuws, want hier waren we al ongeveer 99% zeker van: met die pdf's zullen we niet verder raken. Ik hoopte zo een heel klein beetje dat we er leesbare karakters zouden in aantreffen, en dan was het natuurlijk nog afwachten, en vooral experimenteren.

Citaat
Vermoedelijk heb ik het opnieuw wat te omslachtig gecodeerd maar het doet wat het moet doen dus ik ben trots op mezelf
Groot gelijk  \o/
Het werkt zoals jij het wil, en snel genoeg, dat is altijd het belangrijkste.
Wie zich dan nog druk zou maken om een regeltje code dat weg mag gaat echt de muggenziftertoer op. Dus enkel omdat je er specifiek om vraagt: je hebt een paar keer 'Select' staan (wat in principe altijd kan vermeden worden), en je gebruikt soms een overbodige variabele, maar ik zou daar in dit geval geen punten voor aftrekken.
M.a.w.: :thumbsup:

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 #21 Gepost op: 29 juni 2023, 16:41:14 »
Hey Molly,

Toen ik gisteren klaar was met het aanpassen van de UF en bijhorende code was ik zodanig enthousiast
over de  snelheid waarmee me dit gelukt was dat ik mijn bericht met bijgevoegd bestand heb geplaatst
alvorens ik mijn code nog eventjes had "opgeschoond"  :D, iets wat ik meestal altijd doe nadat ik (een onderdeel
van) een bestand tot een goed einde heb gebracht.

Toen ik deze namiddag dan eventjes tijd had heb ik me daar dan ook eens deftig aan gezet.
Ik heb een aantal (overbodige) rijtjes code en (overbodige) variabelen verwijderd en heb terwijl ook uitgebreid
commentaar toegevoegd bij de diverse onderdelen in de code zodat ik na enige tijd tenminste nog zou weten
waarvoor elk onderdeel dient  ;D .

Dit is dan het eindresultaat geworden voor de 'sub knop_Click()' :
Sub knop_Click()
'---bepaal aantal x zelfde teken adhv van geselecteerde optionbutton---
If UserForm1.OptionButton1.Value = True Then aantal = 1
If UserForm1.OptionButton2.Value = True Then aantal = 5
If UserForm1.OptionButton3.Value = True Then aantal = 10
'---verwerk ingedrukte "teken"-knop
If Len(knop.Caption) = 1 Then
  '---For...Next-loop op basis van geselecteerde optionbutton---
  For s = 1 To aantal
    groep = groep & knop.Caption & " "
  Next s
  '---omzeiling overslaan registratie bij te snel klikken---
  UserForm1.CommandButton42.SetFocus
  '---zet standaard terug naar 1x---
  UserForm1.OptionButton1.Value = True
End If
'---verwerk ingedrukte "del last"-knop (om laatst ingevoerde teken te wissen)---
If knop.Caption = "del last" Then
  groep = Left(groep, Len(groep) - 2)
End If
'---verwerk "clear all"-knop (om volledige invoer te wissen)---
If knop.Caption = "clear all" Then
  groep = ""
End If
'---weergave in de TextBoxen---
'---ingevoerde tekens met bijhorende spatie---
UserForm1.TextBox1.Value = groep
'---aantal ingevoerde tekens---
UserForm1.TextBox2.Value = Len(groep) / 2
'---visuele check-weergave bij wel/niet standaard aantal ingevoerde tekens---
If UserForm1.TextBox2.Value <> 10 Then
  UserForm1.TextBox2.BackColor = vbMagenta
Else
  UserForm1.TextBox2.BackColor = vbCyan
End If
'---verwerk ingedrukte "ok"-knop---
If knop.Caption = "OK" Then
'---invoer omzetten naar array voor wegschrijven---
  '---declareer variabele voor aanmaak array
  Dim groeplijst() As String
  '---verwijder laatste ingevoerde spatie
  groep = RTrim(groep)
  '---maak array met alle waardes die gescheiden zijn door een spatie---
  groeplijst = Split(groep, " ")
  '---array wegschrijven naar werkblad---
  With Sheets("testjes")
    '---bepaal de locatie waar de inhoud van de array moet weggeschreven worden
    drij = Selection.Row
    dkol = Selection.Column
    For a = LBound(groeplijst) To UBound(groeplijst)
      .Cells(drij, dkol).Value = groeplijst(a)
      '----- corresponderende kleur zoeken nav waarde array-element
        With Sheets("dmcprjct")
          i = .Columns(6).Find(groeplijst(a)).Row
          r = .Cells(i, 3)
          g = .Cells(i, 4)
          b = .Cells(i, 5)
        End With
      '---geef de betreffende cel de corresponderende kleur---
      .Cells(drij, dkol).Interior.Color = RGB(r, g, b)
      '---ga naar de volgende cel (naar rechts)---
      dkol = dkol + 1
    Next a
    '---selecteer de nieuwe locatie voor invoer op de volgende rij
    .Cells(drij + 1, Selection.Column).Select
  End With
  '---zet alles terug naar start-waarde---
  groep = ""
  UserForm1.TextBox1.Value = ""
  UserForm1.TextBox2.Value = ""
  UserForm1.OptionButton1.Value = True
End If

End Sub

Ik denk (hoop) dat er nu nog weinig tot niets meer overbodigs tussen staat  :D.

groetjes,
BlackDevil

P.S.: Vermoedelijk zal ik bij de volgende onderdelen van het bestand ook nog hulp/tips kunnen gebruiken dus ik laat nog wel iets horen  ;).
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 #22 Gepost op: 30 juni 2023, 08:44:53 »
Hoi BlackDevil,

Ik zeg ook dikwijls tegen mezelf dat ik er een gewoonte van zou moeten maken om mijn codes van commentaar te voorzien, maar het komt er bijna nooit van. Mezelf op dat vlak wat discipline aanleren is blijkbaar moeilijker dan dat het met bv. vba het geval was :D
Bonuspunt voor jou dus voor het nog opschonen van je code!

Met je P.S. heb je me nu natuurlijk weeral benieuwd gemaakt naar het vervolg :-[

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 #23 Gepost op: 30 juni 2023, 16:34:31 »
Hey Molly,

Met je P.S. heb je me nu natuurlijk weeral benieuwd gemaakt naar het vervolg :-[

 ;D ben er al de hele dag volop mee bezig ;-) nog wel wat werk aan qua ontwerp alvorens ik er hier een volledige versie
kan van plaatsen  ;).

Brengt me meteen bij een allereerste probleem met de reeds afgewerkte code uit mijn bericht #21 (welke ondertussen versie 4.4 was van het bestand geworden was).

Omdat het verdere verloop een ferme uitbreiding is en ook een aantal stappen betreft die moeten gedaan worden alvorens het effectief overnemen van het
papieren telpatroon op het betreffende werkblad, was ik een compleet nieuw bestand begonnen dat ik dan versie 5 heb gegeven.

Heb netjes de UF eerst geëxporteerd uit versie 4.4 en vervolgens geïmporteerd naar versie 5, heb vervolgens de code uit de klassemodule netjes gekopieerd
naar versie 5 waar ik dezelfde naam heb gegeven aan de module. Wel heb ik de naam van de UF aangepast.
Vervolgens heb ik in de code van de klassemodule de nodige aanpassingen gemaakt inzake verwijzingen naar de werkbladen (andere namen) en de UF.
Voor zover ik kan zien heb ik niets meer of niets minder gewijzigd dan noodzakelijk was.

Maar nu, als ik nu in versie 5 via de UF een reeks tekens wil ingeven stoot ik op 2 problemen :

1) hij vervangt telkens het reeds ingevoerde teken in de textbox waardoor het aantal ingevoerde tekens steeds 1 blijft
2) als ik dan met 1 ingevoerd teken op "ok" klik dan zakt de geselecteerde cel wel 1 rij omlaag maar de achtergrond kleur van de net verlaten cel blijft ongewijzigd.

Blijkbaar is er toch iets in de code dat fout loopt (zit vaak in klein hoekje ik weet het) maar ik vind het dus totaal niet.

dit is de huidige en volledige code in de klassemodule in versie 5 :
Public WithEvents knop As MSForms.CommandButton

Sub knop_Click()
'---bepaal aantal x zelfde teken adhv van geselecteerde optionbutton---
If UF_inkleuren.OptionButton1.Value = True Then aantal = 1
If UF_inkleuren.OptionButton2.Value = True Then aantal = 5
If UF_inkleuren.OptionButton3.Value = True Then aantal = 10
'---verwerk ingedrukte "teken"-knop
If Len(knop.Caption) = 1 Then
  '---For...Next-loop op basis van geselecteerde optionbutton---
  For s = 1 To aantal
    groep = groep & knop.Caption & " "
  Next s
  '---omzeiling overslaan registratie bij te snel klikken---
  UF_inkleuren.CommandButton42.SetFocus
  '---zet standaard terug naar 1x---
  UF_inkleuren.OptionButton1.Value = True
End If
'---verwerk ingedrukte "del last"-knop (om laatst ingevoerde teken te wissen)---
If knop.Caption = "del last" Then
  groep = Left(groep, Len(groep) - 2)
End If
'---verwerk "clear all"-knop (om volledige invoer te wissen)---
If knop.Caption = "clear all" Then
  groep = ""
End If
'---weergave in de TextBoxen---
'---ingevoerde tekens met bijhorende spatie---
UF_inkleuren.TextBox1.Value = groep
'---aantal ingevoerde tekens---
UF_inkleuren.TextBox2.Value = Len(groep) / 2
'---visuele check-weergave bij wel/niet standaard aantal ingevoerde tekens---
If UF_inkleuren.TextBox2.Value <> 10 Then
  UF_inkleuren.TextBox2.BackColor = vbMagenta
Else
  UF_inkleuren.TextBox2.BackColor = vbCyan
End If
'---verwerk ingedrukte "ok"-knop---
If knop.Caption = "OK" Then
'---invoer omzetten naar array voor wegschrijven---
  '---declareer variabele voor aanmaak array
  Dim groeplijst() As String
  '---verwijder laatste ingevoerde spatie
  groep = RTrim(groep)
  '---maak array met alle waardes die gescheiden zijn door een spatie---
  groeplijst = Split(groep, " ")
  '---array wegschrijven naar werkblad---
  With Sheets("raster-klr")
    '---bepaal de locatie waar de inhoud van de array moet weggeschreven worden
    drij = Selection.Row
    dkol = Selection.Column
    For a = LBound(groeplijst) To UBound(groeplijst)
      .Cells(drij, dkol).Value = groeplijst(a)
      '----- corresponderende kleur zoeken nav waarde array-element
        With Sheets("legende")
          i = .Columns(6).Find(groeplijst(a)).Row
          r = .Cells(i, 3)
          g = .Cells(i, 4)
          b = .Cells(i, 5)
        End With
      '---geef de betreffende cel de corresponderende kleur---
      .Cells(drij, dkol).Interior.Color = RGB(r, g, b)
      '---ga naar de volgende cel (naar rechts)---
      dkol = dkol + 1
    Next a
    '---selecteer de nieuwe locatie voor invoer op de volgende rij
    .Cells(drij + 1, Selection.Column).Select
  End With
  '---zet alles terug naar start-waarde---
  groep = ""
  UF_inkleuren.TextBox1.Value = ""
  UF_inkleuren.TextBox2.Value = ""
  UF_inkleuren.OptionButton1.Value = True
End If

End Sub

Private Sub knop_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  With knop
    Set frm = .Parent
    If frm.Tag <> "" Then frm.Controls(frm.Tag).BackStyle = 0
    If Len(.Caption) = 1 Then
      .BackStyle = 1
      frm.Tag = .Name
    End If
  End With
End Sub

Kan jij op deze manier opmerken waar het fout zou kunnen lopen?
Het volledige bestand kan ik nog niet aanhangen omdat er nog te veel onvoltooide onderdelen zijn die voor te veel verwarring zouden zorgen.
Dus indien het bestand echt nodig is zal ik dit pas laat vanavond of morgen voormiddag hier kunnen plaatsen.

Alvast dank op voorhand.

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 #24 Gepost op: 30 juni 2023, 23:36:07 »
Hoi BlackDevil,

Heb enkel een phone bij de hand, en kan niet meteen iets fout zien.
Maar: heb je ook module 1 gekopieerd? Daar staat weinig in maar is wel belangrijk.
Anders morgen verder...

Welterusten,
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 #25 Gepost op: 01 juli 2023, 06:24:04 »
Hey Molly,

Maar: heb je ook module 1 gekopieerd? Daar staat weinig in maar is wel belangrijk.

Zoals ik al zei, het zit vaak in een klein hoekje  :).
Ik wist dat er een regeltje code in module1 stond maar bij het overzetten was me dit dus totaal ontgaan  :-[ ....
Nu werkt alles weer zoals het hoort...  :thumbsup:

Heb ondertussen al mooie vordering gemaakt in de verdere uitbreiding en heb alweer enkele kleinigheidjes waar ik niet meteen uit geraak  ;D .
Ik hang in de loop van de voormiddag mijn bijgewerkt bestandje (versie 5) nog aan met de betreffende vragen, nu eerst nog eventjes wat
verder het ontwerp op punt zetten.

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 #26 Gepost op: 01 juli 2023, 12:41:01 »
@Molly en anderen,

Na meerdere keren alles nog eens grondig doorlopen te hebben denk (hoop) ik dat mijn bestand klaar is om hier geplaatst te worden, dus bij deze :)


Toelichting bij het bestand :

Ik heb dus héél wat toegevoegd ondertussen en om er wat overzicht in te behouden heb ik een bijkomend werkblad “draaiboek” toegevoegd met een overzicht/checklist, in eerste instantie voor mezelf maar uiteindelijk ook als extra informatie voor de potentiële helpers hier op het forum ;)

Sommige codeblokken en/of subroutines die nog moeten geschreven worden ga ik nog maken adhv de basiscode uit mijn vorig project-bestand (huwkado dochter) dus hiervoor zullen op een later tijdstip misschien nog vragen komen.

De subroutines die ik wel reeds volledig heb afgewerkt zijn diegenen in de module ‘mod_nwprjct’.
Daarmee is ook meteen het eerste onderdeel ‘nieuw project’ (1e commandbutton op UF_start) in principe afgewerkt. (verbeteringen zijn echter altijd mogelijk en welkom  ;D )

Naast het UF_start heb ik nog UF toegevoegd (UF_borduren) welke gelijkaardig is aan het UF met de klasse-module voor het inkleuren (UF_inkleuren). Het UF-ontwerp is volledig klaar en de initialize-code is ook reeds geschreven en werkend. Waar ik hier vast zit is opnieuw in die klasse-module omdat ik hier totaal geen ervaring mee heb. Ik heb wel de (tweede) klasse-module reeds aangemaakt waarbij ik bij wijze van commentaar proberen te verduidelijken heb wat exact de bedoeling is van de UF (hopelijk heb ik deze commentaren correct verwoord zodat alles voldoende duidelijk is).
Voor beter inzicht te krijgen in de totale werking verwijs ik dus naar het overzicht/checklist op werkblad “draaiboek”.
Moest er toch iets niet geheel duidelijk zijn of er twijfel zou zijn over iets dan hoor (lees) ik het graag.


Alvast oprechte dank aan de potentiële helpers, tipgevers en/of meedenkers  _/-\o_

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 #27 Gepost op: 01 juli 2023, 15:46:23 »
***UPDATE***

Nadat ik bedacht dat ik nog één klein detail was vergeten op men UF_borduren kon ik het mij niet laten om toch maar eens te proberen
de code in elkaar gepuzzeld te krijgen in de klasse-module voor wat ik met het UF wou bereiken.
En tot mijn grote verbazing heb ik dit tot een goed (althans werkend) einde kunnen brengen  ;D .

Nu ga ik eerst nog de code achter de knop 'verwerken' in elkaar puzzelen en dan kan ik het resultaat (versie 5.1) hier nog eventjes plaatsen.

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 #28 Gepost op: 01 juli 2023, 18:44:02 »
Hey BlackDevil,

Mooi zo, dan is mijn medewerking in principe meteen herleid tot eens bekijken :D

Dat ziet er echt wel al helemaal anders uit dan waar we mee begonnen zijn, dus ik ben niet mee in het hele verhaal, maar dat hoeft misschien ook niet (borduren is niet mijn ding, dus het bestand ook voor mezelf gebruiken zal allicht niet gebeuren ;))

Zou het kunnen dat je nog niet alles uitgebreid hebt getest? In Sub 'rastermaken' heb je op regel 60:With Sheets("raster-klr").Range(Cells(1, 1), Cells(rijen, kols))en diezelfde constructie komt nog een paar keer terug. Als dat bij jou werkt heb je waarschijnlijk een speciale Office-versie :)

Maar als we die even buiten beschouwing laten moet ik wel vaststellen dat je weer significante vorderingen hebt gemaakt :thumbsup:

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 #29 Gepost op: 01 juli 2023, 18:58:40 »
Goedenavond allen,

:-[ :-[  ik kom er totaal niet meer uit  :-[ :-[
De code uit mijn vorig project-bestand ivm al de handelingen mbt het borduren zelf zijn zo complex en herhalend dat ik niet weet hoe ik deze moet gaan beginnen ombouwen om in de klasse-module werkend te krijgen gezien klasse-modules toch wel helemaal anders werken dan gewone modules.

Ik denk dat het dan misschien toch beter eens bekeken word in zijn geheel, ipv elke sub van elk onderdeel apart aan te pakken.
Op die manier kan er misschien voor gezorgd worden dat alles vlotter samen vloeit en er minder herhalende onderdelen moeten plaatsvinden in de diverse subs.

Als iemand zich geroepen zou voelen om dit samen eens grondig onder de loep te nemen dan zou ik dat ten zeerste appreciëren.

groetjes,
BlackDevil

@Molly

net toen ik bovenstaande bericht wilde plaatsen zag ik dat je een reactie had gestuurd.

wat jouw vraag betreft mbt "raster maken" is dit inderdaad getest geweest en werkt (tot hiertoe) perfect ;-).

En ja, ik vond van mezelf ook dat ik significante vorderingen aan het maken was maar uit mijn bovenstaande tekst kan je dus afleiden dat
ik er totaal geen zicht meer op heb :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

 


www.combell.com