VBA voor Word,Stand van schuifje omzetten naar getallen/percentages

[route99]

De titel zegt het al.
Ik heb het voorbeeld in een testdoc staan en eea daarin toegelicht (deels zichtbaat op plaatje onder).

Het werkt super simpel met het schuifje en snel, visueel ook heel duidelijk.
De gebruikers vinden het heel prettig om het zo te doen en het gaat best snel.
In de praktijk zit er nog een kleurenschaal van rood (links) naar helemaal groen (100%) bij.
Het is voor een kleine testgroep op het werk en die doen niks anders dan dit.
Het is een keuring voor materiaal dat visueel beoordeeld kan worden en gesplitst wordt in 6 stromen, neen een camera met pc kan dit nog niet....
Het werkt al jaren probleemloos, maar ik wil graag de persoon die het leidt en geen idee heeft van VBA helpen om het wat te automatiseren qua resultaat verwerking. Zelf ben ik ook maar een VBA-amateurtje... zie onder.

De "meting" is een inschatting, een "gestelde" nauwkeurigheid van +/- 5% is goed genoeg ongeveer wat ik wel kon halen als ik een inschatting maakt van het gewenste percentage en vervolgens in VBA keek welke digitale waarde eruit kwam.

Edit: ik heb als wens erbij gezet dat de %-waarde voor tester zichtbaar moet zijn als extra hulpmiddel.
De tester kan geen getal invullen, hij gebruikt alleen een muis voor het schuifje.
Nu wordt het wat extra makkelijk in te stellen als de % waarde meteen mee veranderd, maar 50% blijft 50 +/- 5%, nauwkeurig genoeg als instelfout. Het moet wel een continue schaal blijven!!! Alle waarden tussen 0% en 100% mag, het hoeft geen mooi rond getal als 50% te zijn, het had ook 56% kunnen zijn als dat die uitkomst door de tester waargenomen zou zijn.

De metingen worden een aantal keren herhaald, het totale resultaat opgeteld en gemiddeld.


Met alle respect: Het schuifjes systeem moet overeind blijven, omdat het al in gebruik is en werkt naar grote tevredenheid.
Wat er "onderwater" (VBA) gebeurd is voor de gebruiker niet zo belangrijk, maar wel voor mij. De eindwaarde wordt als input gebruikt om de eindwaarde schuif op het juiste plekje te zetten. Eigenlijk dus als gemiddelde uit de zichtbare % waarden berekend worden (of uit de digitale VBA waarden, als het maar klopt).

Het schuifje helemaal naar links is de startwaarde, nvt, als een meting overgeslagen mag worden. Dat weet de tester als het overgeslagen mag worden, Voor het ontbreken van die optie is geen apart formulier gemaakt, de tester weet het en kan het ook duidelijk zelf zien wanneer het overgeslagen moet worden. We hebben daar nog nooit fouten meegemaakt. Immers standaard staat het schuifje op "nvt", een soort "uit" toestand.

Om 0% echt te kunnen weergeven maar ook de n.v.t waarde heb ik voor de n.v.t. waarde -700 als startpunt aangemaakt in VBA.
Het schuifje wil ik niet smaller maken en de n.v.t./ de uit-toestand moet duidelijk zijn ten opzichte van de 0% meetwaarde!
Ik wil daar geen extra vinkje of zo voor invoeren. Immers het werkt zo al jaren goed, het gaat vooral om de betere verwerking van de gegevens.

Ik krijg het meeste wel aan de praat, maar ben geen IT-er, dus het is altijd wat zoeken, op zich niet erg, maar dit is een stap te ver.
Ik heb geen idee hoe ik de VBA waarde uit kan lezen en hoe ik het in een tabel krijg. Heb al gegoogled maar kon niet er over vinden.
Ik had voor het rekenen het liever in Excel gedaan was makkelijker geweest voor mij ook, maar dat mag helaas niet. Waarschijnlijk krijg ik het rekenen in Word wel aan de praat (heb het nog nooit gedaan, een voorbeeld is wel handig; ik reken nl normaal altijd in Excel)

Een voorbeeld op het plaatje, de rest zit in het testdocje.

Bekijk bijlage testdoc.docx


Suggesties welkom! Tnx!!!

 

[OctaFish]

Vraag: Hoe lees je de digitale waarde uit van de plaats van die schuif?
Heel simpel: zet eerst je 'formulier' in de Ontwerpmodus, dan rechtsklikken op de schuifbalk, vervolgens <Probrammacode> en dan dit bijvoorbeeld om de schuif uit te lezen:

Private Sub ScrollBar1111_Change()
    MsgBox Me.ScrollBar111.Value
End Sub

Mij is nog totaal niet duidelijk wat je nu precies wilt terugzien in je tabel; daar heb je maar een 5 cellen staan, terwijl je schuifbalk staat ingesteld op de waarden -700 - 32767. Dat is natuurlijk belachelijk veel hoger (of lager) dan die 100%. Dus ik ben eigenlijk wel benieuwd naar wat je nu in die cellen wilt zien.
Jouw schuifbalk doet het trouwens niet goed, dus die heb ik vervangen door een nieuwe die het wel doet. Wellicht dat dit documentje je op wat ideeën brengt.

 

[snb]

Ik heb de naam van de schuifbalk voor Meting 1 de naam meting_01 gegeven.
Voor Meting 2 meting_02 en meting 3 meting_03
De waarden van de werkbakk worden in de tabel geschreven.

Hoe gebruikers gemiddelden kunnen instellen is me een raadsel. Gemiddelden worden altijd berekend, niet ingesteld. (Tenzij je niet weet hoe die berekend kunnen worden).
De berekening zit nu al in de code en komt in de tabel terecht.

 

[route99]

Bedankt, beiden voor de snelle input.

@OctaFish

Mij is nog totaal niet duidelijk wat je nu precies wilt terugzien in je tabel; daar heb je maar een 5 cellen staan, terwijl je schuifbalk staat ingesteld op de waarden -700 - 32767. Dat is natuurlijk belachelijk veel hoger (of lager) dan die 100%. Dus ik ben eigenlijk wel benieuwd naar wat je nu in die cellen wilt zien.
Jouw schuifbalk doet het trouwens niet goed, dus die heb ik vervangen door een nieuwe die het wel doet. Wellicht dat dit documentje je op wat ideeën brengt.

Helaas ben ik de bron van de code kwijt om het terug te kijken. Maar VBA geeft deze absolute resultaat weer.
Bedankt voor de suggesties iig. Waarom de schuif bij jou niet werkt geen idee, bij mij op het werk en thuis ok.

Wat je gedaan heb lijkt op het 1e gezicht precies op wat ik wil. Tnx :thumb:
Ik ga de komende dagen als ik tijd heb er verder mee stoeien. Druk op het werk, dus zal wel thuis tussendoor moeten

Edit:
Kon toch ff niet laten om te kijken (moet zo weg) ... Tja had idd simpel zoals jij -1 en 100 kunnen instellen.....
Toen ik het ontwierp moest er snel iets komen, wat gelukkig in de praktijk gelukkig uitstekend bleek te werken, dus ik had me daar totaal niet in verdiept. Dus die omrekening... kan ook vervallen...

In de cellen:Zoals je het gedaan hebt is ok, in feite direct iets tussen 0 en 100 of nvt.

Dan heb ik wel alvast 2 extra vraagjes, ook @snb feel free tav input.

a) De gemiddelde uitkomst van elke test moet de schuif die bij het gemiddelde hoort op de juiste plek zetten.

b) Als ik 10 kenmerken met hun test heb met ieder hun gemiddelde wat is handig/wijsheid om een laatste pagina te hebben met een overzicht:
gem van kenmerk1/test1 75%
gem van kenmerk1/test2 0%
....
gem van kenmerk1/test10 45%

Het zou erg luxe , maar vooral handig...zijn... als ik dit getallen overzicht ook naar excel in een overzicht zou kunnen exporteren.
Je ziet inderdaad.. het leidt inderdaad tot nieuwe ideeën, zoals je schreef.... :thumb:


@snb
Helaas krijg ik dit systeem bericht (edit: lijkt of de naam nok is want de docm van OctaFish doet het wel, geen melding:

Systeembericht
Ongeldig(e) Bijlage opgegeven. Neem contact op met de webmaster als u een geldige koppeling hebt gevolgd.

Effe zippen, dan zal het vast lukken.

Ik had gehoopt dat het duidelijk genoeg was, maar het geeft niet, kleine toevoeging.
Uiteraard is het een berekend gemiddelde van wat de gebruikers "geschoven" hebben.
Ik had er 2 schuifjes neer moeten zetten en apart het schuifje van het gemiddelde...

Met de uitkomst van het berekende gemiddelde zou ik graag dat VBA het schuifje dat het gemiddelde % resultaat weer geeft instelt.
En dat in de tabel uiteraard het gemiddelde resultaat in % weer gegeven wordt.
De absolute waarden van VBA zelf zijn alleen voor mij.

Dit mag uiteraard niet door de gebruikers.
Hopelijk nu duidelijker, kan me voorstellen dat het niet duidelijk genoeg was.

 

[snb]

Kijk je eigen systeem nog even na; want downloden van het bestand gaat prima.
Wees niet verbaasd dat er macro's instaan.
Die moet je natuurlijk wel kunnen activeren.

 

[route99]

@snb
Tnx!
Net 3x geprobeerd te downloaden niet gelukt en nu wel (beiden), vreemd....
Ik word blij van de input.
Met het gemiddelde werkt ook netjes. ik zie dat je ook de max op 100 gezet heb, daar heb ik simpelweg niet aan gedacht om het rechtstreeks te doen...
OctaFish heeft nog de nvt erbij, dat is wel een voorwaarde.
Nu moet ik echt gaan....

 

[OctaFish]

Dan zou ik die van mij er nog eens op nakijken, want daar zit nu ook de tabelvulling in. En de Eindwaarde wordt nu ingesteld a.d.h.v. de met de 3 metingen ingestelde schuiven. Leek mij dat je die zelf wel had kunnen verzinnen, maar er zijn altijd helpers die alles voor een vraagsteller op willen lossen .

 

[route99]

Tnx... :thumb:
Werkt prima. Binnenkort maar idd zelf... verder stoeien, moet toch weten hoe de code echt werkt en of ik het verder kan uitbouwen.
De % versie werkt perfect dus die andere kolom in de tabel overweeg ik te laten vervallen.

Een van de 1e zaken die daarna wil gaan uitzoeken, maak van de gemiddelde %-waarde gebruik om als input data te dienen voor een visuele gemiddelde schuif die een andere, onderscheidende kleur heeft.

En ik wil kijken om van alle testen toch een Excel bestand te laten genereren, daar gaat mijn contactpersoon uiteindelijk vast zin in om de (eind)data veel makkelijker te verwerken.... Of dat ik Excel de data uit het Word doc laat halen.
Klein testje gedaan: Copy/paste special naar Excel werkt iig zoals verwacht goed, kan ook verder met de data rekenen in Excel.

Kortom er blijft nog wel wat te doen, maar heeft geen haast.

Ik laat de vraag open, voor mogelijk aanvullende vragen.

Nogmaals bedankt zover

 

[OctaFish]

Ik zag dat mijn laatste bestandje niet helemaal deed wat ik beloofde, dus hier de laatste bijgewerkte versie!