Entry Property

[kelvin]

Minh load được đoạn code sau:

Option Explicit

' This is a simple example of using the OnEntry property.  The Auto_Open sub calls the Action
' sub.  The font is set to bold in the ActiveCell if the value is >= 500.  Thus if the value is >=500,
' then ActiveCell.Font.Bold = True.  If the value is less than 500, then ActiveCell.Font.Bold = False.
' The Auto_Close sub "turns off" OnEntry.

Sub Auto_Open()
ActiveSheet.OnEntry = "Action"
End Sub


Sub Action()
If IsNumeric(ActiveCell) Then
    ActiveCell.Font.Bold = ActiveCell.Value >= 500
End If
End Sub

Sub Auto_Close()
ActiveSheet.OnEntry = ""
End Sub

-----------
Không tìm được Entry Property trong Object Browser, VBA, Excel Help ??

 

[levanduyet]

To: Anh Kelvin,
Theo em nghĩ OnEntry là thuộc tính của Excel 95. Nhưng từ khi xuất hiện Excel 97, Validation ra đời, chính vì vậy mà khi anh tìm trong Help, thuộc tính này không tồn tại. (OnTime, OnDoubleClick, OnEntry, OnKey)

Nó cũng giống như:
Autpen, Auto_Close, Auto_Activate, Auto_Deactivate
Em thích dùng mấy thứ này.

LVD

 

[Mr Okebab]

Trời !!!! Tận Office 95 cơ à !!!!!!!!!!!
Xỉu luôn.

be be be!!!!

 

[kelvin]

ok. mình cũng nghĩ như vậy.Đã thử tìm kiếm với auto_open, auto_close đúng là không có trong object browser.Vấn đề đặt ra là các sub, property,method trên vẫn chạy trong office 2003, như vậy ngoài các đoạn code mà Duyệt đã nêu,chắc là bác Bill còn giử nhiều đặc tính khác nửa của Office 95 và ....trước nửa để giử tính tương thích ngược.Cám ơn các bạn