Một kiểu Highlight đơn giản (1 người xem)

[ndu96081631]

Xin hỏi một tí: Kho làm vậy thì trong sheet đó không cho copy -> Paste thì ta làm thế nào?

Đã cải tiến lại rồi, làm gì có cái vụ không cho copy, paste chứ bạn?

 

[bun_bo_hue]

Cách này không ổn. Vì quá chậm, file của mình nặng hơn 20MB (vì có rất nhiều data + công thức), mỗi lần calculate rất lâu. Mình cũng làm hightlight như bạn nói nhưng là viết bằng VBA.

 

[bun_bo_hue]

File của bác hay quá. Mà câu lệnh sau có tác dụng j vậy bác. SO1 là tên sheet , còn CBViDu là gì vậy bác ???

With S01.CBViDu
.LinkedCell = ActiveCell.Address
.ListFillRange = "TaiKhoan"
End With

 

[Cuongxd7]

Cái này chưa dc đâu sư phụ ơi... nếu ta chọn copy và paste trong vùng CF thì nó vẫn.. tèo...
Ngày trước Soibien làm như sau:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveWorkbook.Names("curRow").Value = ActiveCell.Row
    ActiveWorkbook.Names("curCol").Value = ActiveCell.Column
End Sub

Còn đệ thì làm như vầy:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.ScreenUpdating = True
End Sub

ANH TUẤN

Phiền mọi người chỉ giúp em với
Em làm y như chỉ dẫn của các anh mà ko được.

 

[n0thing1988]

Phiền mọi người chỉ giúp em với
Em làm y như chỉ dẫn của các anh mà ko được.

Bạn đã đặt Rules cho CF đâu. Bị báo lỗi là đúng rồi
Giờ vào CF đặt 2 rules mới
=curCol=COLUMN()
=curRow=ROW()