mardi 27 janvier 2015
Hoe kan deze macro korter worden opgeschreven? Maximale karakters bereikt!
Posted on 07:07 by Unknown
Hallo,
Ik wil dat een macro controleert of er decimale uren zijn ingevoerd in cel c7 zodat anderhalf uur als 1,5 ingevuld kan worden en nooit als 1,30.
Voorbeeld goed 0,25 / 1,5 / 2,75 / 8.
Voorbeeld fout 0,15 / 1,30 / 2,45
Ik heb een werkende macro maar helaas zit ik aan mijn maximale karakters die ik in kan voeren. Wie weet hoe ik de volgende macro verkort op kan schrijven?
Range("C7").Select
If ActiveCell.Value <> "" And ActiveCell.Value <> "0,25" And ActiveCell.Value <> "0,5" And ActiveCell.Value <> "0,75" And ActiveCell.Value <> "1" And ActiveCell.Value <> "1,25" And ActiveCell.Value <> "1,5" And ActiveCell.Value <> "1,75" And ActiveCell.Value <> "2" And ActiveCell.Value <> "2,25" And ActiveCell.Value <> "2,5" And ActiveCell.Value <> "2,75" And ActiveCell.Value <> "3" And ActiveCell.Value <> "3,25" And ActiveCell.Value <> "3,5" And ActiveCell.Value <> "3,75" And ActiveCell.Value <> "4" And ActiveCell.Value <> "4,25" And ActiveCell.Value <> "4,5" And ActiveCell.Value <> "4,75" And ActiveCell.Value <> "5" And ActiveCell.Value <> "5,25" And ActiveCell.Value <> "5,5" And ActiveCell.Value <> "5,75" And ActiveCell.Value <> "6" And ActiveCell.Value <> "6,25" And ActiveCell.Value <> "6,5" And ActiveCell.Value <> "6,75" And ActiveCell.Value <> "7" And ActiveCell.Value <> "7,25" Then MsgBox "Graag decimale getallen invullen. Een kwartier = 0,25 Een half uur = 0,5 enz.": Exit Sub
Wat er in mijn macro gebeurd:
-hij kijkt of de ingevoerde waarde in cell c7 of "" of 0,25 of 0,5 of 0,75 is (enz.) (dit moet doorgaan tot 12 uur want er wordt maximaal 12 uur per dag gewerkt)
-indien dit niet het geval is: MsgBox "Graag decimale getallen invullen. Een kwartier = 0,25 Een half uur = 0,5 enz."
-hij stopt de macro
Ik wil dat een macro controleert of er decimale uren zijn ingevoerd in cel c7 zodat anderhalf uur als 1,5 ingevuld kan worden en nooit als 1,30.
Voorbeeld goed 0,25 / 1,5 / 2,75 / 8.
Voorbeeld fout 0,15 / 1,30 / 2,45
Ik heb een werkende macro maar helaas zit ik aan mijn maximale karakters die ik in kan voeren. Wie weet hoe ik de volgende macro verkort op kan schrijven?
Range("C7").Select
If ActiveCell.Value <> "" And ActiveCell.Value <> "0,25" And ActiveCell.Value <> "0,5" And ActiveCell.Value <> "0,75" And ActiveCell.Value <> "1" And ActiveCell.Value <> "1,25" And ActiveCell.Value <> "1,5" And ActiveCell.Value <> "1,75" And ActiveCell.Value <> "2" And ActiveCell.Value <> "2,25" And ActiveCell.Value <> "2,5" And ActiveCell.Value <> "2,75" And ActiveCell.Value <> "3" And ActiveCell.Value <> "3,25" And ActiveCell.Value <> "3,5" And ActiveCell.Value <> "3,75" And ActiveCell.Value <> "4" And ActiveCell.Value <> "4,25" And ActiveCell.Value <> "4,5" And ActiveCell.Value <> "4,75" And ActiveCell.Value <> "5" And ActiveCell.Value <> "5,25" And ActiveCell.Value <> "5,5" And ActiveCell.Value <> "5,75" And ActiveCell.Value <> "6" And ActiveCell.Value <> "6,25" And ActiveCell.Value <> "6,5" And ActiveCell.Value <> "6,75" And ActiveCell.Value <> "7" And ActiveCell.Value <> "7,25" Then MsgBox "Graag decimale getallen invullen. Een kwartier = 0,25 Een half uur = 0,5 enz.": Exit Sub
Wat er in mijn macro gebeurd:
-hij kijkt of de ingevoerde waarde in cell c7 of "" of 0,25 of 0,5 of 0,75 is (enz.) (dit moet doorgaan tot 12 uur want er wordt maximaal 12 uur per dag gewerkt)
-indien dit niet het geval is: MsgBox "Graag decimale getallen invullen. Een kwartier = 0,25 Een half uur = 0,5 enz."
-hij stopt de macro
Hoe kan deze macro korter worden opgeschreven? Maximale karakters bereikt!
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire