Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time format in userform textbox
Hi all,
I thought this would be an easy solve but it has me baffled. I've read quite a few old posts and still haven't a solution so would appreciate any help. I have a textbox on a userform I am trying to set to a time format. (The textbox is bound to a ws cell and this is set to time format) I have tried all of the below; UserForm5.Controls("TextBox" & i).Text = Format$(ws.Range("g" & K), "Short Time") UserForm5.Controls("TextBox" & i).Text = Format$(ws.Range("g" & K), "h:mm") UserForm5.Controls("TextBox" & i).Text = Format$ (sheets("sheet4").range("g" & K), "H:mm") UserForm5.Controls("TextBox" & i).Text = Format(ws.Range("g" & K), "Short Time") UserForm5.Controls("TextBox" & i).Text = Format(ws.Range("g" & K), "h:mm") UserForm5.Controls("TextBox" & i).Text = Format(sheets("sheet4").range("g" & K), "H:mm") None of which have worked - the time still shows as a decimal. I'd appreciate any pointers as i'm baffled and getting very frustrated! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time format in userform textbox
Hi Anon,
Try something like: '========= Option Explicit Private Sub UserForm_Initialize() Dim wb As Workbook Dim SH As Worksheet Dim Rng As Range Dim i As Long Set wb = ThisWorkbook Set SH = wb.Sheets("Sheet1") '<<==== CHANGE Set Rng = SH.Range("A1") '<<==== CHANGE For i = 1 To 5 Me.Controls("Textbox" & i).Value = _ Rng.Offset(i - 1).Text Next i End Sub '<<========= --- Regards. Norman "anon" wrote in message ... Hi all, I thought this would be an easy solve but it has me baffled. I've read quite a few old posts and still haven't a solution so would appreciate any help. I have a textbox on a userform I am trying to set to a time format. (The textbox is bound to a ws cell and this is set to time format) I have tried all of the below; UserForm5.Controls("TextBox" & i).Text = Format$(ws.Range("g" & K), "Short Time") UserForm5.Controls("TextBox" & i).Text = Format$(ws.Range("g" & K), "h:mm") UserForm5.Controls("TextBox" & i).Text = Format$ (sheets("sheet4").range("g" & K), "H:mm") UserForm5.Controls("TextBox" & i).Text = Format(ws.Range("g" & K), "Short Time") UserForm5.Controls("TextBox" & i).Text = Format(ws.Range("g" & K), "h:mm") UserForm5.Controls("TextBox" & i).Text = Format(sheets("sheet4").range("g" & K), "H:mm") None of which have worked - the time still shows as a decimal. I'd appreciate any pointers as i'm baffled and getting very frustrated! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time format in userform textbox
Hi,
Thanks for the reply. I've tried this and is still not working. If i break the code I can see rng.text = "09:00" for example, however it still appears in my textbox as .375 (or some other decimal!). Any other suggestions? Thanks again |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time format in userform textbox
Hi Anon,
The suggested code works for me. If you wish, I can send you a copy of my test workbook, in reesponse to an email to: norman_jones@NOSPAMbtconnectDOTcom (Delete "NOSPAM" and replace "DOT" with a full stop [period] ) --- Regards. Norman "anon" wrote in message ... Hi, Thanks for the reply. I've tried this and is still not working. If i break the code I can see rng.text = "09:00" for example, however it still appears in my textbox as .375 (or some other decimal!). Any other suggestions? Thanks again |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time format in userform textbox
Hi Anon,
I received your email and I have sent you my test workbook. --- Regards. Norman "Norman Jones" wrote in message ... Hi Anon, The suggested code works for me. If you wish, I can send you a copy of my test workbook, in reesponse to an email to: norman_jones@NOSPAMbtconnectDOTcom (Delete "NOSPAM" and replace "DOT" with a full stop [period] ) --- Regards. Norman "anon" wrote in message ... Hi, Thanks for the reply. I've tried this and is still not working. If i break the code I can see rng.text = "09:00" for example, however it still appears in my textbox as .375 (or some other decimal!). Any other suggestions? Thanks again |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Format TextBox on UserForm | Excel Programming | |||
Format a Userform textbox to Military time | Excel Programming | |||
TextBox in UserForm with 24h time format | Excel Programming | |||
format textbox in userform | Excel Programming | |||
Format of a TextBox in a userform | Excel Programming |