13. april 2010 - 21:48Der er
2 kommentarer og 1 løsning
Returner forskellige hold via forskellige tidsrum
Hej med jer
Jeg har et lille problem med mit projekt. Jeg er ved at lave vores arbejdspads papirløs og til dette har jeg brugt excel og en del programmering i VBA. Indtil nu er alt det jeg gerne ville have lykkedes uden problemer, men nu er der kommet et spørgmål om indtastning af hold kan fjernes.
Mit spørgsmål til jer er så hvordan er det lige koden skal se ud når der skal vælges en værdi ud fra et tidsrum?
Fra kl. 00:00 til 08:00 skal værdien i feltet "hold" være "nat" og fra kl. 08:00 til 16:00 skal værdien være "dag" osv.
Jeg har en tekstboks der tager tiden fra pc'ens ur og registrerer hvornår userformen er blevet åbnet men som sagt har jeg lidt svært ved at gennemskue koden til at returnere en værdi ud fra et klokkeslæt.
Skriv gerne en mail hvis der mangler lidt information.
Private Sub UserForm_Activate() Dim tid tid = Format(Now(), "h") tiden = TimeValue(Format(Now(), "hh:mm:ss")) Select Case tid
Case 0 TextBox1.Text = "Nathold " & tiden Case 1 TextBox1.Text = "Nathold " & tiden Case 2 TextBox1.Text = "Nathold " & tiden Case 3 TextBox1.Text = "Nathold " & tiden Case 4 TextBox1.Text = "Nathold " & tiden Case 5 TextBox1.Text = "Nathold " & tiden Case 6 TextBox1.Text = "Nathold " & tiden Case 7 TextBox1.Text = "Nathold " & tiden ''''''''''''''''''''''''''''''''' Case 8 TextBox1.Text = "Daghold " & tiden Case 9 TextBox1.Text = "Daghold " & tiden Case 10 TextBox1.Text = "Daghold " & tiden Case 11 TextBox1.Text = "Daghold " & tiden Case 12 TextBox1.Text = "Daghold " & tiden Case 13 TextBox1.Text = "Daghold " & tiden Case 14 TextBox1.Text = "Daghold " & tiden Case 15 TextBox1.Text = "Daghold " & tiden Case 16 TextBox1.Text = "Daghold " & tiden End Select
Det er den jeg selv har set flest steder. Men der jo nok en en guru som kan noget andet.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
