Ga naar inhoud

alpha

Lid
  • Items

    1.124
  • Registratiedatum

  • Laatst bezocht

Alles dat geplaatst werd door alpha

  1. alpha

    nachtvergoeding

    Uitgaande van 03:15 - 02:00 uur is die 5 uur ook nog fout als (zoals je schrijft) de uren tussen 21:00 en 05:00 uur gerekend moeten worden. Want: 1e nacht: van 03:15 - 05:00 uur = 01:45 uur 2e nacht: van 21:00 - 03:15 uur = 06:15 uur Samen is dat 08:00 uur.
  2. In Word 2010: - Kies: Bestand - Opties - Geavanceerd. - Kijk aan de rechterkant onder Weergeven of de opties Horizontale schuifbalk weergeven en Verticale schuifbalk weergeven zijn aangevinkt. Opmerking: De horizontale schuifbalk zal (ook als is aangevinkt dat die moet worden weergegeven) alleen getoond worden als daar op grond van de weergave aanleiding toe is (= als de breedte van een blad op een grotere breedte staat ingesteld dan de breedte van het computerscherm). Rechts-onderaan kun je - als Word ge-opend is - met een schuifbalkje de grootte van de weergave in procenten aanpassen.
  3. Waar herinner je je dat van? Dat is in elk geval geen standaardinstelling in Word. Plaats eens je Wordbestand met 1 pagina zodat we kunnen zien waar dat nummer staat.
  4. In de derde regel van onder staat: lr2 = lr2 + 1 . Maak daar van: lr2 = lr2 + 2
  5. Als de namen van de bladen Blad1 en Blad2 zijn, kun je dit gebruiken: Sub splits() Dim L As Integer, lr1 As Integer, lr2 As Integer, m As Integer Dim mystr1 As String, mystr2 As String, r As Integer, x As Integer Set sh1 = Sheets("Blad1"): Set sh2 = Sheets("Blad2") lr2 = 1 With sh2.Columns("c") .ClearContents .ColumnWidth = 110 End With With sh1 lr1 = .Range("c" & .Rows.Count).End(xlUp).Row End With For r = 4 To lr1 mystr1 = sh1.Range("c" & r).Value m = 130: x = 1: L = Len(mystr1) mystr2 = Left(mystr1, m) Do While L >= x + m Do Until Right(mystr2, 1) = Chr(32) mystr2 = Left(mystr2, Len(mystr2) - 1) Loop lr2 = lr2 + 1 sh2.Range("c" & lr2).Value = mystr2 x = x + Len(mystr2) mystr2 = Mid(mystr1, x, m) Loop sh2.Range("c" & lr2 + 1).Value = Right(mystr1, Len(mystr1) - x + 1) lr2 = lr2 + 1 Next r End Sub
  6. - Begint de niet-gesplitste tekst in C1 ? - Als bv. de niet-gesplitste tekst van een cel wél gesplitst uit 9 regels bestaat, moet dan na die 9 regels een lege rij volgen, of moet de tekst van de volgende cel meteen aansluiten? - Als je wil kan de tekst ook op een staand blad, dan maken we de regels van de gesplitste tekst wat smaller. Wat heeft je voorkeur, staand of liggend? - De gesplitste tekst wordt naar een ander blad gekopieerd, in welke kolom wil je daar de gesplitste tekst geplaatst zien? Ook in kolom C of in een andere kolom?
  7. - Die 125, dat zijn geen pixels hoor. Maar wil je die breedte voor telkens 1 rij tekst zo houden? - Welk lettertype en lettergrootte gebruik je voor die tekst? - Tekstterugloop wil je niet meer neem ik aan? Indien wél, dan moet je aangeven hoeveel tekens je ongeveer in een cel wil.
  8. 1. In welke cel van kolom C staat die tekst (in C8 ?). 2. Is er in kolom C slechts 1 cel waarvan de tekst gesplitst moet worden of zijn er meerdere cellen? 3. Hoe lang (hoeveel tekens) moet na splitsing de tekst in elke cel ongeveer zijn?
  9. Ervan uitgaand; - dat het blad waarom het gaat "Blad1" heet; - dat die vetgedrukte teksten in B2 beginnen; - dat na de vetgedrukte tekst in elke cel van kolom B geen andere tekst meer komt (behalve dan de dubbele punt die wordt toegevoegd); kun je dit gebruiken in een macro die in een module is geplaatst: Sub Voeg_toe() With Sheets("Blad1") For x = 2 To .Range("b" & .Rows.Count).End(xlUp).Row If Not IsEmpty(.Range("b" & x)) Then With .Range("b" & x) .Value = .Value & ":" .Font.Bold = True End With End If Next x End With End Sub
  10. Natuurlijk werkt het wel ! PC-H.xlsx
  11. Typ in het blad "April Totalen" in C4: =AANTALLEN.ALS(april!$B$4:$B$200;"="&C$3;april!$C$4:$C$200;"="&$B4) Kopieer deze formule naar rechts t/m F4 en kopieer daarna C4:F4 naar beneden t/m C33:F33 . Typ in hetzelfde blad in C34: =SOM(C$4:C$33) en kopieer naar rechts t/m F34.
  12. Ik weet niet wat je precies voor ogen staat, maar je kunt zoveel tabellen maken als je wil. Wat je daar dan mee wil, zou je moeten uitleggen.
  13. alpha

    Onkosten

    Ik was er vanuit gegaan dat onkosten ook voor uren na middernacht worden betaald. Als dat niet zo is, kun je gebruiken (met begin- en eindtijd in A3 en B3): =(B3+(B3<A3)-A3)*24*0,62+ALS(A3<14/24;24*(2,84-0,62)*ALS(B3>18/24;(B3-18/24);ALS(B3<A3;(1+(A3>18/24)-18/24);ALS(EN(A3<18/24;B3<18/24);0))))
  14. alpha

    Onkosten

    Daar sluit ik mij bij aan, dat kan voor hulpverleners veel tijd besparen. Om de berekening ook voor uren na middernacht te kunnen gebruiken wordt de formule (met begin- en eindtijd in A3 en B3): =(B3+(B3<A3)-A3)*24*0,62+ALS(EN(A3<14/24;OF(B3>18/24;B3<A3));(B3+(B3<A3)-18/24)*24*(2,84-0,62))
  15. alpha

    Onkosten

    Toevoeging bij vorig bericht: De eigenschappen van cel waarin je de formule plaatst instellen als "Financieel" met 2 decimalen.
  16. alpha

    Onkosten

    In 1 formule, met begin- en eindtijd in A3 en B3, bedraagt de onkostenvergoeding: =(B3-A3)*24*0,62+als(en(A3<14/24;B3>18/24);(B3-18/24)*24*(2,84-0,62))
  17. Je kunt dat eenvoudig testen door de formule(s) gewoon te proberen voor een bereik met datums.
  18. Als je bedoelt dat je het aantal unieke datums in een bereik wil tellen: já, dat gaat op precies dezelfde manier.
  19. Als je de invoer correct hebt gedaan en lang genoeg hebt gewacht (want in Google SpreadSheets kan het even duren voor de invoer wordt geaccepteerd), dan kan de oorzaak alleen nog een typfout zijn (=SUMPRODUCT gebruikt i.p.v. =SOMPRODUCT misschien?).
  20. @Bucky, Even terzijde: mijn formule is in wezen dezelfde (doet hetzelfde) als de jouwe. Toen ik mijn formule hier plaatste, had ik de jouwe nog niet gezien, moest dat wel het geval geweest zijn dan had ik de mijne niet geplaatst (ik denk dat we onze berichten kort na elkaar geplaatst hebben, of ik moet over jouw bericht heen gekeken hebben). Zowel jouw formule als de mijne zijn (m.i.) matrixformules, alhoewel de mijne zowel in Excel als Google spreadsheets goed functioneert zonder gebruikmaking van Ctrl-Shift-Enter (maar dat is toeval; mijn advies blijft: bij beide formules Ctrl-Shift-Enter gebruiken).
  21. De formules van Bucky en die van mij werken prima in zowel Excel 2016 (en voorgaande versies) als in Google spreadsheets, en ook met de Nederlandse functie 'Interval' (zojuist nog eens getest). Als ze dat bij jou niet doen dan heb je ze niet als matrixformule ingevoerd (via Ctrl-Shift-Enter), hoewel ik in mijn eerste bericht toch duidelijk schreef dat je dat behoort te doen. Wat bedoel je met "Nadeel is dat je het gehele bereik opgeeft..."? Hoe wil je waarden in een bereik tellen als je niet elke cel in de telling betrekt? En de formules van Bucky en mij zijn zo dynamisch als maar zijn kan.
  22. Typ in N3, sluit af met Ctrl-SHift-ENter, en kopieer naar beneden in kolom N: =somproduct(--(interval(C3:M3;C3:M3)>0))
  23. Cellen laten verkleuren stel je best niet in voor een volledig blad. Dat zouden nl. meer dan 17 miljard cellen zijn, ik denk dat de vragensteller zich dat niet realiseert. Als de kleuren betrekking hebben op een beperkt bereik en het gebruik van de kleuren is enigszins logisch (daar moet je voor zorgen), dan is dat wisselen van kleur wel mogelijk. Je kunt enerzijds de kleuren tijdens het gebruik van Excel opslaan in het geheugen, maar dan blijven ze slechts bewaard tot zolang het bestand open staat. Anderzijds kun je, om ze blijvend te bewaren (of er blijvend een beroep op te kunnen doen), werken met 1 of meerdere hulpkolommen en -rijen en/of de kleuren in de vba-code vastleggen. Het is onduidelijk hoe en voor welk doel de vragensteller de kleuren wil gebruiken. Als daar meer over bekend is, kan er wellicht ook wat meer over worden gezegd.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.