Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox number formats
HYCH
Am using the code below, to pull back the a list of Times (format hh:mm) But still shows as decimal numbers any help please !!! Private Sub UserForm_Initialize() Dim cPart As Range Dim ws As Worksheet Set ws = Worksheets("Lists") For Each cPart In ws.Range("C1:C88") With Me.ComboBox1 .AddItem cPart.Value .List(.ListCount - 1, 1) = Format(cPart.Offset(0, 1).Value, "hh:mm") End With Next cPart Me.ComboBox1.Value = "" Me.ComboBox1.SetFocus End Sub Steve |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox number formats
The .AddItem line is what's adding the text to the combo box - shouldn't this
be where you put Format(cPart.Value, "hh:mm")? "Steve" wrote: HYCH Am using the code below, to pull back the a list of Times (format hh:mm) But still shows as decimal numbers any help please !!! Private Sub UserForm_Initialize() Dim cPart As Range Dim ws As Worksheet Set ws = Worksheets("Lists") For Each cPart In ws.Range("C1:C88") With Me.ComboBox1 .AddItem cPart.Value .List(.ListCount - 1, 1) = Format(cPart.Offset(0, 1).Value, "hh:mm") End With Next cPart Me.ComboBox1.Value = "" Me.ComboBox1.SetFocus End Sub Steve |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox number formats
On 23 Oct, 12:44, Smallweed
wrote: The .AddItem line is what's adding the text to the combo box - shouldn't this be where you put Format(cPart.Value, "hh:mm")? "Steve" wrote: HYCH Am using the code below, to pull back the a list of Times (format hh:mm) But still shows as decimal numbers any help please !!! Private Sub UserForm_Initialize() Dim cPart As Range Dim ws As Worksheet Set ws = Worksheets("Lists") For Each cPart In ws.Range("C1:C88") With Me.ComboBox1 .AddItem cPart.Value .List(.ListCount - 1, 1) = Format(cPart.Offset(0, 1).Value, "hh:mm") End With Next cPart Me.ComboBox1.Value = "" Me.ComboBox1.SetFocus End Sub Steve- Hide quoted text - - Show quoted text - What a star, of course, thanks Small :) |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox number formats
See one answer in microsoft.public.excel
Please don't post the same question to multiple newsgroups. It tends to fragment any answers you get, and it potentially wastes the time of those responding to questions that have already been answered in another group. In article . com, Steve wrote: HYCH Am using the code below, to pull back the a list of Times (format hh:mm) But still shows as decimal numbers any help please !!! Private Sub UserForm_Initialize() Dim cPart As Range Dim ws As Worksheet Set ws = Worksheets("Lists") For Each cPart In ws.Range("C1:C88") With Me.ComboBox1 .AddItem cPart.Value .List(.ListCount - 1, 1) = Format(cPart.Offset(0, 1).Value, "hh:mm") End With Next cPart Me.ComboBox1.Value = "" Me.ComboBox1.SetFocus End Sub Steve |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox number formats
On 23 Oct, 12:53, JE McGimpsey wrote:
See one answer in microsoft.public.excel Please don't post the same question to multiple newsgroups. It tends to fragment any answers you get, and it potentially wastes the time of those responding to questions that have already been answered in another group. In article . com, Steve wrote: HYCH Am using the code below, to pull back the a list of Times (format hh:mm) But still shows as decimal numbers any help please !!! Private Sub UserForm_Initialize() Dim cPart As Range Dim ws As Worksheet Set ws = Worksheets("Lists") For Each cPart In ws.Range("C1:C88") With Me.ComboBox1 .AddItem cPart.Value .List(.ListCount - 1, 1) = Format(cPart.Offset(0, 1).Value, "hh:mm") End With Next cPart Me.ComboBox1.Value = "" Me.ComboBox1.SetFocus End Sub Steve- Hide quoted text - - Show quoted text - Sorry JE, Misc, seems to be very slow just recently, and meant to poast it here. apologies |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Number formats | Excel Discussion (Misc queries) | |||
Number Formats | Excel Discussion (Misc queries) | |||
VB number formats | Excel Programming | |||
number formats | Excel Worksheet Functions | |||
Combobox Number Formats | Excel Worksheet Functions |