met die code maak je van je eerste sheet een lijst met uniek namen of items die je dan kunt gebruiken om die matrix op te bouwen. Vervolgens vul je met de macro van DaFan deze matrix.quote:Op woensdag 21 januari 2009 17:07 schreef sobriquet het volgende:
[..]
Ok thnx, alleen ik heb geen id hoe ik zoiets nou moet gebruiken. Ik krijg het bij dat andere script ook niet voor elkaar, als ik wat nieuws intyp naam en voorwerp komt er geen kruisje in sheet 2. Of moet ik em erst activeren ofzo.
Goed idee. Al kan je geen reference maken naar andere worksheets met conditional formattingquote:Op donderdag 22 januari 2009 13:35 schreef DaFan het volgende:
Ga naar Conditional formatting en gebruik als formule om te checken:
=MATCH(<cel>,B1:B10,0)
En die maak je groen. Je kan dan om het rood te kleuren de achtergrond standaard rood maken.
Ik denk dat ik Range("B1:D1") moet gebruiken en Selection.AutoFill, maar het is nog niet gelukt.quote:Sub lastrow1()
Dim lastrow As Long
lastrow = Worksheets("Blad1").Range("A1").End(xlDown).Row
Range("B1").Select
ActiveCell.AutoFill Destination:=Range("B1:B" & lastrow&)
End Sub
Volgens mij kan je gewoon met rechtermuisknop op de staaf zelf de kleur aanpassen.quote:Op donderdag 22 januari 2009 14:27 schreef Flaccid het volgende:
Ik heb nu een mooie pivottable. Bijna precies wat ik wil. Ik heb nu man en vrouw in een mooie zelfde grafiek. Die met paren naast elkaar staan. Nu wil ik de vrouw een andere kleur geven dan de man (de staaf zegmaar). (het is een staafgrafiek). Hoe krijg ik dat voor elkaar?
Kan ik bij die Sigma values ook filteren? Dat ik Want ik heb dus mannen en vrouwen in dezelfde kolom, maar die krijg ik niet appart.
1 2 3 | ActiveCell.AutoFill Destination:=Range("C1:C" & lastrow&) |
Moet ik die dan zelf maken of zou hij ertussen moeten staan...???quote:Op zondag 25 januari 2009 15:28 schreef qu63 het volgende:
Aangepast: [uu]:mm
rechtermuisknop, celeigenschappen, tabblad getal, kies voor aangepast, en dan onder "type:" in dat invulvakje [uu]:mm invullenquote:Op zondag 25 januari 2009 15:36 schreef FFnog het volgende:
[..]
Moet ik die dan zelf maken of zou hij ertussen moeten staan...???
Want ertussen staat ie niet iig...
En als ik hem zelf probeer te maken begint excel te protesteren...
De getalnotatie die u intypt is ongeldig...quote:Op zondag 25 januari 2009 15:39 schreef qu63 het volgende:
[..]
rechtermuisknop, celeigenschappen, tabblad getal, kies voor aangepast, en dan onder "type:" in dat invulvakje [uu]:mm invullen
quote:Op zondag 25 januari 2009 15:40 schreef FFnog het volgende:
En als ik bij aangepast h:mm doe dan telt hij maar weer tot 24:00 uur op...
dan moet je kiezen voor [hh]:mmquote:Op zondag 25 januari 2009 15:44 schreef FFnog het volgende:
[..]
De getalnotatie die u intypt is ongeldig...
Gebruik een van de ingebouwde getalnotaties...
Ja, dat werkt inderdaad. Dat was ik nog vergeten te vermelden.quote:Op zondag 25 januari 2009 15:03 schreef DaFan het volgende:
Ten eerste zou ik niet gebruiken End(xlDown) omdat dan A1 per se gevuld moet zijn. Makkelijker (vind ik, als dit werkt moet je het gewoon laten staan) is denk ik Range("65536").End(xlUp).Row.
En klinkt misschien stom maar als je gewoon hetzelfde trucje bij C1 en D1 doet?
[ code verwijderd ]
En dat ook voor D?
quote:Sub Macro1()
Dim Rng As Long
Rng = Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Blad1")
.Range("B1:B" & Rng).FillDown
.Range("C1:C" & Rng).FillDown
End With
End Sub
Zelf intikken dus :quote:
quote:Op zondag 25 januari 2009 15:39 schreef qu63 het volgende:
[..]
rechtermuisknop, celeigenschappen, tabblad getal, kies voor aangepast, en dan onder "type:" in dat invulvakje [uuhh]:mm invullen
Denk dat het makkelijker is om de data 2x te plotten, 1x als percentage, en dan een tweede keer op een 2e Y-as, die je later verbergt én waarbij je de staven onzichtbaar maakt.quote:Op maandag 26 januari 2009 13:36 schreef Flaccid het volgende:
Is het mogelijk om in Excel de percentages te laten zien in een grafiek, maar als data label de eigenlijke waarde?
Lukt me niet iig.quote:Op maandag 26 januari 2009 13:42 schreef DaFan het volgende:
[..]
Denk dat het makkelijker is om de data 2x te plotten, 1x als percentage, en dan een tweede keer op een 2e Y-as, die je later verbergt én waarbij je de staven onzichtbaar maakt.
Maar ik zal het wel even proberen of het kan zonder zo'n omweg.
Owja sorry. Ik heb 2 rijen maar ik weet niet hoe ik 2 dataseries moet plotten. En hoe verberg ik een dataserie?quote:Op maandag 26 januari 2009 13:58 schreef DaFan het volgende:
Wat lukt niet, het maken van de grafiek zelf uit de pivottable of iets anders? En welke versie heb je ook alweer? Beetje meer informatie zou wel handig zijn
Als de cijfers altijd 3 karakters zijn dan wel. Of 2 karakters. Anders weet ik het niet.quote:Op maandag 26 januari 2009 14:43 schreef BuupWerk het volgende:
Ik heb straat en huisnummer in 1 cel staan hoe kan ik dit splitsen over 2 cellen...toch niet met de hand toch ??
Deze formule had DaFan voor mij geschreven. Hij werkte echter niet goed en inmiddels ben ik er achter waar dit aan ligt. Ik laat cijfers beoordelen die een gemiddelde zijn van enkele toetsen. Het gemiddelde is dan bijvoorbeeld een 7,25. Doordat ik in de kolom voor het gemiddelde niet met decimalen werk wordt dit afgerond op een 7. Je zou verwachten dat er dan uit de formule een RV (ruim voldoende) rolt. Dit gebeurd echter niet, hij geeft alleen een U (uitmuntend). Als het gemiddelde op een mooi rond getal uitkomt geeft de formule wel de juiste letter weer.quote:Op woensdag 3 december 2008 00:37 schreef DaFan het volgende:
In deze formule staat in A1 het eindcijfer. Dit dien je dus aan te passen naar welke cel je het wil van doen (bv G3 of F3). Hou er rekening mee dat als je hem bv in H3 zet voor het cijfer van F3, dat je m dan door kan trekken naar beneden voor andere leerlingen!
=ALS(EN(A1>=0;A1<5);"O";ALS(A1=5;"T";ALS(A1=6;"V";ALS(A1=7;"RV";ALS(A1=8;"G";ALS(A1=9;"ZG";"U"))))))
Ken je VERT.ZOEKEN helemaal niet?quote:Op woensdag 28 januari 2009 15:49 schreef Schanulleke het volgende:
Dit ontgaat me een beetje.
Ik zet een hulptabel op een plek onder het sheet wat ik eigenlijk gebruik?
En ik verwijs daarnaar door de cel linksboven en rechtsonder te definieren?
Als je de =x vervangt door <x+1 zou het wel kunnen werken toch?quote:Op woensdag 28 januari 2009 14:21 schreef Schanulleke het volgende:
[..]
Deze formule had DaFan voor mij geschreven. Hij werkte echter niet goed en inmiddels ben ik er achter waar dit aan ligt. Ik laat cijfers beoordelen die een gemiddelde zijn van enkele toetsen. Het gemiddelde is dan bijvoorbeeld een 7,25. Doordat ik in de kolom voor het gemiddelde niet met decimalen werk wordt dit afgerond op een 7. Je zou verwachten dat er dan uit de formule een RV (ruim voldoende) rolt. Dit gebeurd echter niet, hij geeft alleen een U (uitmuntend). Als het gemiddelde op een mooi rond getal uitkomt geeft de formule wel de juiste letter weer.
Kennelijk is het weglaten van de decimalen in de rapportcijferskolom niet hetzelfde als afronden op hele getallen waardoor het uitkomt op U.
Wat is het gemakkelijkste: de formule aanpassen zodat deze telkens een bereik beslaat (tussen 4,5 en 5,4 is M, tussen 5,5 en 6,4 is V etc.) of is het makkelijker om de 'formule' waarmee ik nu de rapportcijfergemiddeldes uitreken te laten afronden op helen?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | Do Y = Range("F12") Set r1 = Range("B" & X & ":E" & X) Set r2 = Range("A" & X) r2.Select ActiveCell.FormulaR1C1 = "Actie " & X r1.Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Application.DisplayAlerts = False X = X + 1 Loop While X < Y ' Sheets("temp").Delete Application.DisplayAlerts = True |
1 |
1. eerste cel 5, tweede cel 10, cellen 1 en 2 selecteren en dan zwarte blokje met muis pakken en naar beneden doorslepen.quote:Op donderdag 29 januari 2009 16:19 schreef Platina het volgende:
Hey mensen, ik heb morgen een tentamen Excel (2003) en heb een paar vraagjes. Als iemand mij ermee kan helpen zou dat fijn zijn
1. Ik heb te maken met een beginwaarde: 5. In ieder onderliggende cel wordt er 5 bij opgeteld. Is er een manier waarop Excel dit kan doen zonder gebruik te maken van een formule? want de uiteindelijke cel heb ik nodig bij Doelzoeken. Ik heb nu deze formule die dus niet voldoet: A2 = A1+5, met A1 = 5.
2a. Ik heb een lijngrafiek moeten maken. De waardes op de Y-as moeten lopen van niks tot 5.000 met stappen van 1000. Nu lukt dit me wel maar onderaan moet ipv ¤ 0,00 ---------> ¤ - komen te staan.
2b. Op de X-as heb ik een soortgelijk probleem. Ik wil daar graag stappen van 20.000 maken tot 80.000 totaal en beginnend bij 0. Maar wat ik ook probeer ik krijg er geen getallen te staan.
Indien nodig kan ik de gegevens laten zien aangezien dit een oefentoets omvat (helaas zonder antwoorden).
Nope al geprobeerd maar werkt nietquote:Op donderdag 29 januari 2009 17:49 schreef Deetch het volgende:
[ code verwijderd ]
Jaheur: zet er eens ".value" achter.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |