Worksheet_Change event doesn't work in Excel 97

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi All;

I am facing one problem regarding the validation. I add in one simple function in Worksheet_Change events and also apply a validation list in a worksheet on cell “A1†and in the list got value 1 and 2. When user chooses 1 from the list, the system will prompt “The value is one†otherwise will prompt “The value is not oneâ€. This simple program can work properly on Excel 2000 & above, however it doesn’t work on Excel 97. I don’t know why using Excel 2000 & above, when change the value by mouse click in the cell A1 the corresponding result will prompt automatically. However it doesn’t works in Excel 97. What’s wrong for Excel 97? Anyone has got the idea?

This is the simple code what I have created.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Cells(1, 1).Value = 1 Then
MsgBox "The value is one"
Else
MsgBox "The value is not one"
End If

End Sub

Thanks & Regards
 
I believe this is a known issue in xl97, fixed in later
versions.

You could use a Forms' Combo box assigned to a macro. Some
snippets:

Dim cmbo As Shape
sID = Application.Caller
Set cmbo = ActiveSheet.Shapes(sID)
With cmbo.ControlFormat

or
Dim cmbo As DropDown
Set cmbo = ActiveSheet.DropDowns(sID)

With cmbo

idx = .ListIndex
var = = .List(idx)

end with


Regards,
Sandy
-----Original Message-----
Hi All;

I am facing one problem regarding the validation. I add
Click to expand...
in one simple function in Worksheet_Change events and also
apply a validation list in a worksheet on cell â?oA1â?
and in the list got value 1 and 2. When user chooses 1
from the list, the system will prompt â?oThe value is oneâ?
otherwise will prompt â?oThe value is not oneâ?. This
simple program can work properly on Excel 2000 & above,
however it doesnâ?Tt work on Excel 97. I donâ?Tt know why
using Excel 2000 & above, when change the value by mouse
click in the cell A1 the corresponding result will prompt
automatically. However it doesnâ?Tt works in Excel 97.
Whatâ?Ts wrong for Excel 97? Anyone has got the idea?
 
Back
Top