Bật tắt command button?

[emgaingayngo]

Các bạn giúp đỡ mình vấn đề sau :
Dùng sự kiện hay câu lệnh gì để khi mình chọn cell A1 thì nút command button hiện ra, khi mình chọn cell khác thì nó mất đi.
Thanks much !

 

[ThuNghi]

Cái này hỏi Bác Hiếu (Mr OkeBab), bác đó siêu vấn đề này lắm. Mình chỉ biết sơ sài thôi, là dùng thuộc tính WorkSheetChange thì Comand Botton hide.

 

[darkmoon]

Mình thử làm xem sao :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Visible = False
If Target.Row = 1 And Target.Column = 1 Then
    CommandButton1.Visible = True
End If
End Sub

 

[vungoc]

Mình thử thấy cách của darkmoon cũng OK rối đó !

 

[Mr Okebab]

Cách của darkmoon cũng hay đấy chứ.
Nếu như ta phải chọn nhiều ô trong vùng thì khi đó bạn hãy dùng Select Case thay cho if .

Thân!

 

[phamduylong]

Bạn vào Macro > Visul Basic Editor . Lick đôi vào Sheet bạn cần bấm ô A1 trong Project VBAProject > nhập đoạn mã lệnh sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$A$1" Then
MsgBox "A1"
End If
End Sub

Xuất hiện hộp thoại có nội dung A1. Tùy yêu cẩu của bạn, cần gì thì thay thế MsgBox "A1" bằng mã lệnh của bạn.

 

[emgaingayngo]

Show hide commandbutton

Cách của dakmoon mình đã sử dụng được, nhưng màn hình bị chớp quá bạn ơi. Mình sử dụng câu lệnh

Application.ScreenUpdating = False
...........
Application.ScreenUpdating = True

nhưng không ăn thua gì. Có bạn nào có cách gì cho nó hết chớp không chỉ mình với.
Thanks much!

 

[digita]

Vì khi worksheet_selectionchange event được kích hoạt dẫn đến sự thay đổi hiển thị commandbutton1. Thay đổi hiển thị commandbutton1 lại gọi lại worksheet selectionchange event - sự cố lập lại bất tận.

Bạn thay 2 dòng (Application.ScreenUpdating) bằng:

Application.EnableEvents = False '(cái này ở dòng đầu tiên)

Application.EnableEvents = True '(cái này ở cuối câu trước khi end sub)

Sau đó XL sẽ im chạy im ru bà rù.

 

[emgaingayngo]

Vẫn còn bị bạn ơi! Nếu mình gỡ worksheet_SelectionChange đi thì đúng là không có vấn đề gì.
Mô tả hiện tượng :
- Khi chọn khối, màn hình chớp nhẹ một cái
- khi di chuyển khung chọn thì biểu tượng chuột từ dấu chữ thập biến thành đồng hồ cát rôi trả lại bình thường(rất nhanh).
Có phải mình nên chấp nhận nó như vậy không các bạn?

 

[phamduylong]

emgaingayngo có thể gởi tập tin đang làm để ngâm cứu. Nhận được thư nhưng sao không gởi email trong GPE được. Đang công tác tại Trung tâm dạy nghề Lai Vung