Microsoft KB Archive/170442

= XL97: ActiveX Controls May Not Display Formatted Numeric Data =

Article ID: 170442

Article Last Modified on 11/23/2006

-

APPLIES TO


 * Microsoft Excel 97 Standard Edition

-



This article was previously published under Q170442





SYMPTOMS
TextBox, ComboBox, and ListBox controls do not display data in numeric Formats, for example:


 * If you have the date 1/1/97 in cell A1, and you set the LinkedCell property of a TextBox control to cell A1, the value 35431 appears in the TextBox. (This value is the serial value for the date 1/1/97.)
 * If you click an item in a ComboBox control that is a date, the ComboBox control displays the serial number for that date.
 * If you attach a click event macro to a ListBox control, and you click a date in the ListBox control, the value property of the ListBox control is the serial value for that date.



TextBox Control
If you create a TextBox control on a worksheet and you set the LinkedCell property to a cell with a number format, the number format is not used in the TextBox control.

ComboBox Control
If you create a Combo Box control on a worksheet or a UserForm, and you set the ListFillRange property (for a worksheet) or the RowSource property (for a UserForm) to a range of cells, the drop-down list uses the number format in that range, but the selected value does not.

ListBox Control
If you create a ListBox control on a UserForm, and you set the RowSource property of the ListBox control to a range of cells, the items in the ListBox control use the number formats in that range, but the value property of the ListBox control does not.



WORKAROUND
Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Partners, please visit the following Microsoft Web site:

https://partner.microsoft.com/global/30000104

For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:

http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

TextBox Control
To link a TextBox control to a worksheet cell, use a TextBox control from the Drawing toolbar instead of the Control Toolbox toolbar.

ComboBox Control
To use a ComboBox control containing a range of cells on a worksheet, use a ComboBox control from the Forms toolbar instead of the Control Toolbox toolbar.

If you are using a ComboBox control on a UserForm, use a macro for the Change event to set the Value property of the ComboBox control. The following example uses a ComboBox control and a macro for the Change event:

 Save and close all open workbooks, and then open a new workbook. On Sheet1, enter the following:

A1: 1/1/97

A2: 5/1/97

A3: 10/10/97

 Start the Visual Basic Editor. On the Insert menu, click UserForm. Add a ComboBox control to the UserForm and set the RowSource property to Sheet1!A1:A3.  Double-click the ComboBox control to display the Visual Basic module behind the UserForm, and then enter the following code for the Change event for the ComboBox: Private Sub ComboBox1_Change

ComboBox1.Value = Format(ComboBox1.Value, "m/d/yy")

End Sub </li> Run the UserForm and click the arrow on the ComboBox.</li> Select any date in the list.</li></ol>

The selected date is displayed as the current value of the ComboBox control.

ListBox Control
If you have a ListBox control on either a UserForm or a worksheet, use a macro similar to the one for the ComboBox control to display the selected value for the ListBox control. For example, follow these steps:

<ol> Save and close all open workbooks, and then open a new workbook.</li> On Sheet1, enter the following:

A1: 1/1/97

A2: 5/1/97

A3: 10/10/97

</li> Start the Visual Basic Editor.</li> On the Insert menu, click UserForm.</li> Add a List Box control to the UserForm and set the RowSource property to Sheet1!A1:A3.</li>  Double-click the ListBox control to display the module behind the UserForm, and enter the following code for the Click event for the ListBox control: Private Sub ListBox1_Click

x = Format(ListBox1.Value, "m/d/yy") MsgBox x

End Sub </li> Run the UserForm and click any date in the ListBox control.</li></ol>

The selected date is displayed in a message box.

<div class="status_section">

STATUS
Microsoft has confirmed this to be a problem in Microsoft Excel 97 for Windows.

<div class="references_section">