Print side | Luk vindue

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: 23-02-2020 kl. 23:57


Emne: Format Label - "[hh]:mm"
Besked fra: Ib Hansen
Emne: Format Label - "[hh]:mm"
Posteringsdato: 14-07-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.
Tider.Label102.Text = Application.WorksheetFunction.Text(Tider.Label102, "[hh]:mm")

- Hvis jeg fjerne .Text, laver den BUG på koden, da .Text findes ikke i forbindelse med en Label.
Tider.Label102 = Application.WorksheetFunction.Text(Tider.Label102, "[hh]:mm")

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 2016 Dk på samme computer.
Bruger dog stadig mest 2010, da jeg syntes 2016 mangler features..
Men sådan er der jo så majet :o)



Svar:
Besked fra: icet
Posteringsdato: 15-07-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-07-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 Wink

Ib





-------------
Excel 2010 Dk og 2016 Dk på samme computer.
Bruger dog stadig mest 2010, da jeg syntes 2016 mangler features..
Men sådan er der jo så majet :o)


Besked fra: icet
Posteringsdato: 15-07-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-07-2019 kl. 09:54
Hi icet.

Denne virker Thumbs Up
UserForm1.Label1 = Sheets("Ark1").Range("A2")
UserForm1.Label1 = Application.WorksheetFunction.Text(Sheets("Ark1").Range("A2"), "[hh]:mm")

Tusind tak Big smile

Ib


-------------
Excel 2010 Dk og 2016 Dk på samme computer.
Bruger dog stadig mest 2010, da jeg syntes 2016 mangler features..
Men sådan er der jo så majet :o)


Besked fra: icet
Posteringsdato: 15-07-2019 kl. 13:40
fedt at høre SmileThumbs Up



Print side | Luk vindue