DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
eerst drukje er op en werd er een word bestand geopend...nu doet tie dat niet meer...maar de links staat er nog...
Klopt de link nog wel? Krijg je een foutmelding? Staat het bestand waar naar gelinkt wordt nog op dezelfde plaats? Heb je wel de juiste rechten om het te openen?quote:Op vrijdag 24 april 2009 12:16 schreef BuupWerk het volgende:
eerst drukje er op en werd er een word bestand geopend...nu doet tie dat niet meer...maar de links staat er nog...
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Vraagje van mij:
In een script wil ik dit:
Foutmelding:
Compilatiefout:
Expressie voor constante vereist
(op regel 3)
Ik begrijp daaruit dat Aantal een constante moet zijn? Hoe dit op te lossen?
In een script wil ik dit:
| 1 2 3 4 5 6 7 | dim Variabele(Aantal) as String For i = 1 to Aantal Variabele( i ) = .... Next |
Foutmelding:
Compilatiefout:
Expressie voor constante vereist
(op regel 3)
Ik begrijp daaruit dat Aantal een constante moet zijn? Hoe dit op te lossen?
heitieh
Wat doet die "variabele" in dat script? Normaal begin je met dimmen en dan pas de code.
Verder kan een For loop niet naar een "string" toeloopen. Aantal moet van het type "integer" zijn. Een integer is een geheel getal (dus geen decimalen) Indien nodig kun je de waarde uit cel A1 afronden.
Wat je met regel 6 wil is me ook onduidelijk maar het lijkt me niet verstandig om in een For loop je teller ( i ) te gaan veranderen.
let ook op dat je de loop afsluit met Next i
Zorg dat in cel A1 dus een getal staat.
Verder kan een For loop niet naar een "string" toeloopen. Aantal moet van het type "integer" zijn. Een integer is een geheel getal (dus geen decimalen) Indien nodig kun je de waarde uit cel A1 afronden.
Wat je met regel 6 wil is me ook onduidelijk maar het lijkt me niet verstandig om in een For loop je teller ( i ) te gaan veranderen.
let ook op dat je de loop afsluit met Next i
Zorg dat in cel A1 dus een getal staat.
| 1 2 3 4 5 6 7 8 9 | Aantal = Range("A1").Value For i = 1 to Aantal berekeningen/handelingen die je wil doen next i |
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Bedankt voor je antwoord, maar volgens mij maak je opmerkingen over details, want:quote:Op vrijdag 24 april 2009 13:51 schreef Deetch het volgende:
Wat doet die "variabele" in dat script? Normaal begin je met dimmen en dan pas de code.
Verder kan een For loop niet naar een "string" toeloopen. Aantal moet van het type "integer" zijn. Een integer is een geheel getal (dus geen decimalen) Indien nodig kun je de waarde uit cel A1 afronden.
Wat je met regel 6 wil is me ook onduidelijk maar het lijkt me niet verstandig om in een For loop je teller ( i ) te gaan veranderen.
let ook op dat je de loop afsluit met Next i
Zorg dat in cel A1 dus een getal staat.
[ code verwijderd ]
- Aantal is idd een integer, hoewel ik dat niet gespecificeerd had.
- Variabele ( i ) neemt in de loop waarden aan uit een range bijv.
Variabele ( i ) = Cells(2,i).value
- Next of Next i werkt allebei wel.
- ik ben niet van plan om de teller i te wijzigen in de loop
Geen oplossing zo, helaas. Ik wil dus een variabele met Aantal waarden definieren.
heitieh
Wat ik nu als oplossing heb is dit:
Waarbij altijd geldt dat Aantal < 100. Dan blijven er altijd (100-Aantal) overbodige variabelen, maar who cares.
Maar ik zou liever voor de elegantere oplossing gaan :D
| 1 2 3 4 5 | For i = 1 to Aantal Variabele ( i ) = Cells(2,i).value Next i |
Waarbij altijd geldt dat Aantal < 100. Dan blijven er altijd (100-Aantal) overbodige variabelen, maar who cares.
Maar ik zou liever voor de elegantere oplossing gaan :D
heitieh
Deetch, de code op zichzelf klopt wel.
Variabele( i) is dan een array, waarin de i-ste plaats wordt gevuld. Dat kan prima met een For-loop.
Niet getest.
Ik denk dat het probleem erin zit dat je een variabele Variabele noemt (dus vandaar die A erachter) en een String kan maar 1 waarde vasthouden. Vandaar Variant.
Val() doe ik om de .Value heen om deze zeker weten een Integer te maken.
Ik zou toch Next i gebruiken voor de overzichtelijkheid (nu beetje overbodig maar wacht maar tot je 3 For-loops in elkaar hebt.
Variabele( i) is dan een array, waarin de i-ste plaats wordt gevuld. Dat kan prima met een For-loop.
| 1 2 3 4 5 6 7 | Dim VariabeleA(Aantal) as Variant For i = 1 to Aantal VariabeleA( i ) = .... Next i |
Niet getest.
Ik denk dat het probleem erin zit dat je een variabele Variabele noemt (dus vandaar die A erachter) en een String kan maar 1 waarde vasthouden. Vandaar Variant.
Val() doe ik om de .Value heen om deze zeker weten een Integer te maken.
Ik zou toch Next i gebruiken voor de overzichtelijkheid (nu beetje overbodig maar wacht maar tot je 3 For-loops in elkaar hebt.
vraagje:
werkt niet omdat hij cstring niet kent, wat moet ik gebruiken ipv cstring??quote:For m = 44 To 56
Rows(cstring(m) & ":" & cstring(m)).Hidden = (ActiveSheet.Cells(m, 4) = "")
Next
In mijn werkelijke script heet de variabele niet Variabele, maar heel anders, dat is het probleem niet. Ik heb String veranderd in Variant, maar dat helpt niet.quote:Op vrijdag 24 april 2009 15:12 schreef DaFan het volgende:
Deetch, de code op zichzelf klopt wel.
Variabele( i) is dan een array, waarin de i-ste plaats wordt gevuld. Dat kan prima met een For-loop.
[ code verwijderd ]
Niet getest.
Ik denk dat het probleem erin zit dat je een variabele Variabele noemt (dus vandaar die A erachter) en een String kan maar 1 waarde vasthouden. Vandaar Variant.
Val() doe ik om de .Value heen om deze zeker weten een Integer te maken.
Ik zou toch Next i gebruiken voor de overzichtelijkheid (nu beetje overbodig maar wacht maar tot je 3 For-loops in elkaar hebt.
Hij loopt vast op het feit dat er een variabele als argument wordt gebruikt bij het definieren van een andere variabele. Dat moet volgens de foutmelding een constante zijn.
Kan dit niet omzeild worden?
heitieh
Probeer dit eens:quote:Op vrijdag 24 april 2009 16:00 schreef Beregd het volgende:
vraagje:
[..]
werkt niet omdat hij cstring niet kent, wat moet ik gebruiken ipv cstring??
| 1 2 3 | Rows(m & ":" & m).Hidden = (ActiveSheet.Cells(m, 4) = "") Next |
heitieh
werkt, thx!quote:Op vrijdag 24 april 2009 16:05 schreef Joooo-pi het volgende:
[..]
Probeer dit eens:
[ code verwijderd ]
en mijn it vriendjes nog zeggen dat ik cstring moet gebruiken, tis gewoon veel simpeler
Onderstaande code heb ik geprobeerd, maar toch een foutmelding: "Subscript ligt buiten het bereik". Op regel 9. Ik neem aan dat op het moment dat i = 1 de variabeleA(1) buiten bereik ligt? :?quote:Op vrijdag 24 april 2009 17:53 schreef DaFan het volgende:
Ah akkoord joo.
Probeer eens:
Dim VariabeleA() as String
| 1 2 3 4 5 6 7 8 9 10 11 12 | Dim Aantal As Integer Aantal = Range("A1").Value Dim VariabeleA() As String For i = 1 To Aantal VariabeleA( i ) = Cells(i, 2).Value Next i End Sub |
heitieh
Zo dan maar:
ReDim als je de lengte weet
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | Dim Aantal As Integer Dim VariabeleA() As String Aantal = Range("A1").Value ReDim VariabeleA(Aantal) As String For i = 1 To Aantal VariabeleA( i) = Cells(i, 1).Value Next i End Sub |
ReDim als je de lengte weet
quote:Op vrijdag 24 april 2009 19:32 schreef DaFan het volgende:
Zo dan maar:
[ code verwijderd ]
ReDim als je de lengte weet
Waarom werkt dat nou wel
Thanx a lot iig
heitieh
als je een hele range in een var wil gooien kun je beter variants gebruiken, dat werkt honderden keren sneller
dim tt as variant
tt = range("A1:B100")
oid. Kun je daarna desnoods heel snel de variant array doorlopen om de relevante data eruit te picken
dim tt as variant
tt = range("A1:B100")
oid. Kun je daarna desnoods heel snel de variant array doorlopen om de relevante data eruit te picken
Ik heb 1 grafiek waarin ik afhankelijk van de selectie in een dropdown menu uit verschillende datasets 1 grafieklijn in de grafiek toon. Afhankelijk van de keuze kan de dataset dus bijvoorbeeld van 100 tot 150 lopen of van 200 tot 300, enz. Nu zou ik willen dat de maximale en de minimale waarde van de y-as automatisch wordt aangepast afhankelijk van de gekozen dataset (dus niet steeds handmatig).
Dus als de minimale waarde in de dataset 100 is, moet automastisch de schaal van de y-as bij 100 beginnen etc. Het vervelende is dat de cel waarin dit aangegeven kan worden geen formules of celverwijzing accepteert. Is er een manier om dit toch te regelen of te programmeren?
Excel 2003 NL
Dus als de minimale waarde in de dataset 100 is, moet automastisch de schaal van de y-as bij 100 beginnen etc. Het vervelende is dat de cel waarin dit aangegeven kan worden geen formules of celverwijzing accepteert. Is er een manier om dit toch te regelen of te programmeren?
Excel 2003 NL
Hallo,
ik heb de volgende tabel:
Zoals je kan zien is de klasse toewijzing niet correct. Wat ik nu wil is dat het 4e team het 7e team wordt en dat de teams 5, 6, 7 er allemaal ééntje opschuiven. Dus
Kan iemand me helpen met een algoritme in Excel2003? Sorteren heb ik al geprobeerd maar dit is praktisch gezien niet mogelijk.
ik heb de volgende tabel:
| 1 2 3 4 5 6 7 8 | 1 4 - 2 5 - 3 6 - 4 8 - 5 7 - 6 7 - 7 7 - |
Zoals je kan zien is de klasse toewijzing niet correct. Wat ik nu wil is dat het 4e team het 7e team wordt en dat de teams 5, 6, 7 er allemaal ééntje opschuiven. Dus
| 1 2 3 4 5 6 7 8 | 1 4 1 2 5 2 3 6 3 4 8 8 5 7 4 6 7 5 7 7 6 |
Kan iemand me helpen met een algoritme in Excel2003? Sorteren heb ik al geprobeerd maar dit is praktisch gezien niet mogelijk.
in kolom C:quote:
Hallo,
ik heb de volgende tabel:
[ code verwijderd ]
Zoals je kan zien is de klasse toewijzing niet correct. Wat ik nu wil is dat het 4e team het 7e team wordt en dat de teams 5, 6, 7 er allemaal ééntje opschuiven. Dus
[ code verwijderd ]
Kan iemand me helpen met een algoritme in Excel2003? Sorteren heb ik al geprobeerd maar dit is praktisch gezien niet mogelijk.
C2 = "=A2"
C3 = "=C2+1"
C4 = "=C3+1"
etc..
sorteren op kolom B van laag naar hoog en je krijgt dit als uitkomst:
| 1 2 3 4 5 6 7 8 | 1 4 1 2 5 2 3 6 3 5 7 4 6 7 5 7 7 6 4 8 7 |
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
thx, maar deze oplossing had ik zelf ook gevonden. Het probleem is dat er in de sortering allerlei andere aspecten moeten worden meegenomen die niet op alfabet moeten worden gesorteerd. Ik moet dan die aspecten weer eerst een rangorde toekennen. Ik ben dan toch bang dat ik bepaalde aspecten vernachel. Ik ben echt op zoek naar een ander algoritme.quote:Op zondag 26 april 2009 21:23 schreef qu63 het volgende:
[..]
in kolom C:
C2 = "=A2"
C3 = "=C2+1"
C4 = "=C3+1"
etc..
sorteren op kolom B van laag naar hoog en je krijgt dit als uitkomst:
[ code verwijderd ]
quote:
Ik ook niet echt
Wat voor andere aspecten ?? Hoe moet het algoritme een volgorde bepalen, als er geen alfabethische of cijfermatige volgorde inzit??
heitieh
Wat is dan de logica achter de volgorde die je wilt hebben? Als er geen logica (A-Z, Z-A, lang-kort, kort-lang, etc) in zit, dan kan je ook niet echt een algoritme maken..quote:
[..]
thx, maar deze oplossing had ik zelf ook gevonden. Het probleem is dat er in de sortering allerlei andere aspecten moeten worden meegenomen die niet op alfabet moeten worden gesorteerd. Ik moet dan die aspecten weer eerst een rangorde toekennen. Ik ben dan toch bang dat ik bepaalde aspecten vernachel. Ik ben echt op zoek naar een ander algoritme.
En mijn oplossing was op basis van wat je vertelde, dus als je meer verteld kunnen we er meer mee
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Ik heb een vraagje:
Ik heb een macro gebouwd voor managers om nieuwe werknemers aan te melden. Wij hebben een aantal gegevens nodig en het blijkt vaak dat deze niet gestuurd worden. Dus dan maar een debielenversie zodat ze alle benodigde info invoeren.
Nu heb ik een Reset knop gemaakt waarbij alles weer wordt teruggezet zoals het was (duh). Ik heb hierin opgenomen:
Application.EnableEvents = False
maar toch blijft tijdens het Resetten de macro bepaalde Subs uitvoeren (zoals een _Click event van een checkbox).
Enig idee?
Ik heb een macro gebouwd voor managers om nieuwe werknemers aan te melden. Wij hebben een aantal gegevens nodig en het blijkt vaak dat deze niet gestuurd worden. Dus dan maar een debielenversie zodat ze alle benodigde info invoeren.
Nu heb ik een Reset knop gemaakt waarbij alles weer wordt teruggezet zoals het was (duh). Ik heb hierin opgenomen:
Application.EnableEvents = False
maar toch blijft tijdens het Resetten de macro bepaalde Subs uitvoeren (zoals een _Click event van een checkbox).
Enig idee?
