Moet dat per se met VB?quote:Op woensdag 6 april 2011 15:15 schreef Goldfish80 het volgende:
Ziet iemand de fout in dit script? Ik wil een voorwaardelijke opmaak voor meer dan 3 voorwaarden.
[knip]
Wat gaat er mis dan?quote:Op woensdag 6 april 2011 17:05 schreef Puala het volgende:
Ik loop vast als ik die code uit dat artikel moet ombouwen naar een code die ik wil gebruiken![]()
Ik weet niet wat ik hier in moet vullen: (cell to match,cells to match with,0)),"",cell to match)quote:
1 2 3 4 5 | Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range For Each c In Target.Cells With c Select Case .Value |
1 2 3 4 5 | Select Case .Value Case "rv" .Font.ColorIndex = 2 .Interior.ColorIndex = 3 |
1 2 3 | Dim c As Range For Each c In Target.Cells With c |
1 | With Target |
1 | ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr") |
1 | =IF(SUM(--(AR11:AU11=A1:A5))>0;1;0) |
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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 | Function ORT(start, eind) dagA = Application.WorksheetFunction.Weekday(start, 2) dagZ = Application.WorksheetFunction.Weekday(eind, 2) tijdA = Hour(start) + Minute(start) / 60 tijdZ = Hour(eind) + Minute(eind) / 60 'Uitgangspunten 'zaterdag en zondag is hele dag ORT 'doordeweekse tijdgrenzen OD=6:00, ND=22:00 OD = 6 ND = 22 'check of start en einddatum wel goed zijn ingevuld If start > eind Then ORT = "Starttijd later dan eindtijd" Exit Function End If 'langer dan 24 uur werken mag niet If eind - start > 1 Then ORT = "Werktijd langer dan 24 uur" Exit Function End If Select Case dagA Case 1 To 4 If dagZ = dagA Then If tijdA <= OD Then If tijdZ <= ND Then ORT = (OD - tijdA) / 24 Else ORT = (OD - tijdA + tijdZ - ND) / 24 End If Else If tijdA >= ND Then ORT = (tijdZ - tijdA) / 24 Else If tijdZ > ND Then ORT = (tijdZ - ND) / 24 Else ORT = 0 End If End If End If Else If tijdA <= OD Then If tijdZ <= OD Then ORT = (OD - tijdA + 2 + tijdZ) / 24 Else ORT = (OD - tijdA + 24 - ND + OD) / 24 End If Else If tijdA >= ND Then If tijdZ <= OD Then ORT = (24 - tijdA + tijdZ) / 24 Else ORT = (24 - tijdA + OD) / 24 End If Else If tijdZ <= OD Then ORT = (24 - ND + tijdZ) / 24 Else ORT = (24 - ND + OD) / 24 End If End If End If End If Case 5 If dagZ = dagA Then If tijdA <= OD Then If tijdZ <= ND Then ORT = (OD - tijdA) / 24 Else ORT = (OD - tijdA + tijdZ - ND) / 24 End If Else If tijdA >= ND Then ORT = (tijdZ - tijdA) / 24 Else If tijdZ > ND Then ORT = (tijdZ - ND) / 24 Else ORT = 0 End If End If End If Else If tijdA <= OD Then ORT = (OD - tijdA + 24 - ND + tijdZ) / 24 Else If tijdA >= ND Then ORT = (24 - tijdA + tijdZ) / 24 Else ORT = (24 - ND + tijdZ) / 24 End If End If End If Case OD ORT = eind - start Case 7 If dagZ = dagA Then ORT = eind - start Else If tijdZ > OD Then ORT = (24 - tijdA + OD) / 24 Else ORT = (24 - tijdA + tijdZ) / 24 End If End If End Select End Function |
Thanks, ik was er al zelf opgekomenquote:Op maandag 11 april 2011 10:18 schreef Deetch het volgende:
getallenrij in B1:B5. Grenswaarde in D1.
=MAX(IF(B1:B5<D1,B1:B5)) en bevestigen met ctrl+shift+enter
http://www.excelforum.com(...)rtain-threshold.html
Pas de opmaak van de cel eens aanquote:Op maandag 11 april 2011 18:33 schreef static het volgende:
Volgens mij is dit vrij simpel. maar ik kom er niet uit.
Heb een kolom met ca. 5000 rijen met datum en tijd (3/1/2011 12:00:05 AM) bijvoorbeeld.
Nu wil ik in de kolom ernaast alleen de datum en geen tijd zodat ik een pivot kan doen hoevaak iets per dag voorkomt. Iemand enig idee?
Edit: hebbes.
=DATE(YEAR(C2),MONTH(C2),DAY(C2))
Edit 2: toch niet, de tijd staat er nog steeds, alleen nu allemaal op 00:00, ook als ik de format op datum alleen zet.
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 42 43 | Function ORT4(start, eind) 'overwerk uren op zaterdag dagA = Application.WorksheetFunction.Weekday(start, 2) dagZ = Application.WorksheetFunction.Weekday(eind, 2) tijdA = Hour(start) + Minute(start) / 60 tijdZ = Hour(eind) + Minute(eind) / 60 'Uitgangspunten 'zaterdag en zondag is hele dag ORT 'doordeweekse tijdgrenzen OD=6:00, DDA=8:00 DDZ=18, ND=22:00 OD = 6 DDA = 8 DDZ = 18 ND = 22 'check of start en einddatum wel goed zijn ingevuld If start > eind Then ORT4 = "Starttijd later dan eindtijd" Exit Function End If 'langer dan 24 uur werken mag niet If eind - start > 1 Then ORT4 = "Werktijd langer dan 24 uur" Exit Function End If If dagA <> 6 And dagZ <> 6 Then 'allebei dagen geen zaterdag ORT4 = 0 Else 'een of beide dagen zijn zaterdag If dagA = 6 And dagZ = 6 Then 'start en eind op zaterdag ORT4 = eind - start Else If dagA = 6 Then 'start op zaterdag eind op zondag ORT4 = (24 - tijdA) / 24 Else 'start op vrijdag eind op zaterdag ORT4 = tijdZ / 24 End If End If End If End Function |
Dan klopt er iets niet. Als ie alleen op datum staat moet je ook alleen de datum zienquote:Op maandag 11 april 2011 22:30 schreef static het volgende:
Dat bedoelde ik met 'format op datum alleen zet'.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |