Format Label - "[hh]:mm"
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3957
Udskrevet den: 27.Apr.2024 kl. 06:58
Emne: Format Label - "[hh]:mm"
Besked fra: Ib Hansen
Emne: Format Label - "[hh]:mm"
Posteringsdato: 14.Jul.2019 kl. 23:33
|
Hej forum. Jeg skal formatere en Label til at vise > 24 timer. - Denne kode virker med en TextBox i stedet for en Label. men laver fejl på .text med rødt i koden.
- Hvis jeg fjerne .Text, laver den BUG på koden, da .Text findes ikke i forbindelse med en Label.
Hvordan kan jeg formatere Lablen til at vise > 24 timer ? uploads/1125/Label_større_end_24_timer.xlsm" rel="nofollow - Download testark På forhånd tak Ib ------------- Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o) |
Svar:
Besked fra: icet
Posteringsdato: 15.Jul.2019 kl. 08:46
|
dette ser ud til at gøre arbejdet Private Sub CommandButton1_Click()
UserForm1.TextBox1 = Format(Sheets("Ark1").Range("A2"), "hh:mm") UserForm1.Label1 = Format(Sheets("Ark1").Range("A2"), "hh:mm") UserForm1.Show End Sub |
Besked fra: Ib Hansen
Posteringsdato: 15.Jul.2019 kl. 09:13
|
Hej icet. Formatet "hh:mm" kan kun vise op til 24 timer. Derfor søger jeg en formel med formatet "[hh]:mm". Prøv at lave en simpel sammentælling af to klokkeslæt i to celler. F.eks. 20:00 + 10:00, = 30:00 timer I facit bruger du først Brugerdefineret Formatet "tt:mm" (dansk format i cellerne). Her vil det beregne 06:00 timer, da den først beregner op til 24:00 hvorefter den starter forfra op til 06.00. 24:00 + 06:00 = 30:00. Næst ændre du formatet i facit til "[tt]:mm". og så vil det beregne rigtigt = 30:00. Jeg har en Userform med over 200 Labels., der skal vise et facit, når nogle værdier ændres. Dem vil jeg nødig lave om til Textboxe, som kan håndtere formatet [hh]:mm, men det kan være nødvendigt. Tak for dit input  Ib ------------- Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o) |
Besked fra: icet
Posteringsdato: 15.Jul.2019 kl. 09:47
|
hvordan med denne medmindre jeg bare ikke fatter hat :-) Private Sub CommandButton1_Click()
UserForm1.TextBox1.Text = Application.WorksheetFunction.Text(Sheets("Ark1").Range("A2"), "[hh]:mm") UserForm1.Label1 = Application.WorksheetFunction.Text(Sheets("Ark1").Range("A2"), "[hh]:mm") UserForm1.Show End Sub |
Besked fra: Ib Hansen
Posteringsdato: 15.Jul.2019 kl. 09:54
|
Hi icet. Denne virker 
Tusind tak  Ib
------------- Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o) |
Besked fra: icet
Posteringsdato: 15.Jul.2019 kl. 13:40
fedt at høre  |