/offtopicquote:Op donderdag 11 januari 2007 09:24 schreef RayMania het volgende:
Handig topic, heb zelf ook af en toe wat vragen over Excel.
Kan best met voorwaardelijke opmaak hoor. Alleen moet je dan bij het opgeven van de voorwaarde niet 'Celwaarde is' maar 'Formule is' opgeven.quote:Op donderdag 11 januari 2007 09:23 schreef realbase het volgende:
Goed TS Start zelf ...om deze externe inhoud weer te geven is het noodzakelijk dat je toestemming geeft voor het gebruik van tracking en social mediacookies.Ja toon me deze inhoudmeer informatie
ik accepteer de cookies.
Ik wil graag dat als er in kolom P een bepaalde status staat, dat dan de hele regel een nieuwe kleur krijgt:
A: geel
AF: rood
O: wit (zoals ie nu staat)
P: groen
NA: rood
I: lichtblauw
Ik heb eens gekeken met unconditional formatting maar dat lukte niet echt.
Dit zal toch met een macro moeten dacht ik zo. NU ben ik daar niet echt een ster in.
Iemand een idee?
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 | ' ' Macro2 Macro ' Macro recorded 11-1-2007 by Deetch ' ' Range("A1").Select Do Until ActiveCell.Value = "" If ActiveCell.Offset(0, 4).Value = "A" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 6 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "AF" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 3 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "O" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 2 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "P" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 4 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "I" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 28 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "NA" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 3 ActiveCell.Offset(1, 0).Select Else ActiveCell.Offset(1, 0).Select End If Loop End Sub |
Ooooow, ik dacht dat hij met A, AF, O enz. de kolommen bedoelde waarop de voorwaardelijke opmaak van toepassing was. Maar het zijn dus de verschillende statussen die kolom P kunnen komen?quote:Op donderdag 11 januari 2007 10:25 schreef Deetch het volgende:
Je kunt zo echter maar 3 conditional formats maken en TS heeft er 6 nodig (eigenlijk 5 want AF en NA zijn beide rood.
juistquote:Op donderdag 11 januari 2007 10:28 schreef Frollo het volgende:
[..]
Ooooow, ik dacht dat hij met A, AF, O enz. de kolommen bedoelde waarop de voorwaardelijke opmaak van toepassing was. Maar het zijn dus de verschillende statussen die kolom P kunnen komen?
Jawel dat kan met een macro. Hierin ga je de tekststring karakter voor karakter bij langs en bepaal je of het een integer danwel tekst is. indien getal dan deze onthouden en naar volgende karakter gaan. Als dit ook getal dan het eerste getal vermenigvuldigen met 10 en het tweede getal erbij op tellen. Uiteindelijk strip je zo alle getallen uit de tekststring.quote:Op donderdag 11 januari 2007 10:14 schreef Autoreply het volgende:Kan ik uit een willekeurige combinatie tekst waar één getal in staat dit geval isoleren en als "number" ergens anders neerfietsen? Kan je alles zo afronden dat het 2 of 3 cijfers significant is? Nu pakt ie alleen het aantal getallen achter de 0...
Dank, ik ga hier 's ff naar kijkenquote:Op donderdag 11 januari 2007 10:44 schreef Deetch het volgende:
[..]
Jawel dat kan met een macro. Hierin ga je de tekststring karakter voor karakter bij langs en bepaal je of het een integer danwel tekst is. indien getal dan deze onthouden en naar volgende karakter gaan. Als dit ook getal dan het eerste getal vermenigvuldigen met 10 en het tweede getal erbij op tellen. Uiteindelijk strip je zo alle getallen uit de tekststring.
Ik ga wel ff prutsen, brb
Afronden op significante cijfers: http://j-walk.com/ss/excel/usertips/tip032.htm
het lijkt me makkelijker alle cijfers in een andere string te zetten en deze dan te converteren naar integerquote:Op donderdag 11 januari 2007 10:44 schreef Deetch het volgende:
[..]
Jawel dat kan met een macro. Hierin ga je de tekststring karakter voor karakter bij langs en bepaal je of het een integer danwel tekst is. indien getal dan deze onthouden en naar volgende karakter gaan. Als dit ook getal dan het eerste getal vermenigvuldigen met 10 en het tweede getal erbij op tellen. Uiteindelijk strip je zo alle getallen uit de tekststring.
Ik ga wel ff prutsen, brb
Afronden op significante cijfers: http://j-walk.com/ss/excel/usertips/tip032.htm
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 | 'by Deetch linestring = ActiveCell.Value lengthstring = Len(linestring) savestring = "" For i = 1 To lengthstring characterstring = Mid(linestring, i, 1) If characterstring = "0" Then savestring = savestring + characterstring ElseIf characterstring = "1" Then savestring = savestring + characterstring ElseIf characterstring = "2" Then savestring = savestring + characterstring ElseIf characterstring = "3" Then savestring = savestring + characterstring ElseIf characterstring = "4" Then savestring = savestring + characterstring ElseIf characterstring = "5" Then savestring = savestring + characterstring ElseIf characterstring = "6" Then savestring = savestring + characterstring ElseIf characterstring = "7" Then savestring = savestring + characterstring ElseIf characterstring = "8" Then savestring = savestring + characterstring ElseIf characterstring = "9" Then savestring = savestring + characterstring End If Next i ActiveCell.Offset(0, 1).NumberFormat = "@" ActiveCell.Offset(0, 1).Value = savestring ActiveCell.Offset(0, 2).NumberFormat = "0" ActiveCell.Offset(0, 2).Value = savestring End Sub |
Ik weet niet veel van Excel. Wel genoeg om simpele vragen te beantwoorden. En moeilijke vragen kan ik hier dan mooi kwijt.quote:Op donderdag 11 januari 2007 09:29 schreef Frollo het volgende:
Volgens mij weet ik best wel iets van Excel en hoop dan ook in dit topic héél veel Fokk!ertjes blij te maken!om deze externe inhoud weer te geven is het noodzakelijk dat je toestemming geeft voor het gebruik van tracking en social mediacookies.Ja toon me deze inhoudmeer informatie
ik accepteer de cookies.om deze externe inhoud weer te geven is het noodzakelijk dat je toestemming geeft voor het gebruik van tracking en social mediacookies.Ja toon me deze inhoudmeer informatie
ik accepteer de cookies.
U heldquote:Op donderdag 11 januari 2007 11:11 schreef Deetch het volgende:
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |
Dat begrijpen we, maar is wel erg jammer. Je kunt FOK! namelijk wel gratis LEZEN, maar we kunnen FOK! niet gratis MAKEN. De inkomsten van de advertenties zorgen ervoor dat we de kosten van de site kunnen dragen zodat je ook morgen FOK! nog kunt bezoeken.
Zou je willen overwegen om voor FOK! een uitzondering te maken in je adblocker (of andere middelen die onze ads blokkeren)? Je krijgt deze melding dan nooit meer te zien.
Ja, ik wil fok.nl whitelisten, laat me zien hoe
Ik neem liever een premium account zodat ik geen advertenties hoef te zien (je moet eerst inloggen)
Ja, breng me naar de shop