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

[duongsatdn]

Có thể màu mè thêm nữa được không anh Tuấn ơi. Ví dụ màu của ô giao giữa dòng và cột có màu khác?

 

[tedaynui]

SoiBien có thể cải tiến vấn đề này bằng cách tạo 1 Button, khi ta bấm vào thì SelectionChange mới có tác dụng... Bấm vào lần nữa: Tắt SelectionChange!
Nói chung ko phải lúc nào ta cũng cần đến Highlight, nếu khống chế "TẮT MỞ" như thế sẽ thuận tiện hơn!
ANH TUẤN

Anh có thể tạo 1 Checkbox (if Not Checkbox then Exit Sub) Hoặc Anh Chọn ô A1 nếu khác rỗng thì hiệu lực SelectionChange và ngược lại.

Thân !

 

[anhtuan1066]

Anh có thể tạo 1 Checkbox (if Not Checkbox then Exit Sub) Hoặc Anh Chọn ô A1 nếu khác rỗng thì hiệu lực SelectionChange và ngược lại.

Uh... Khi tôi vừa nêu ý kiến này thì bắt tay vào làm ngay.. cũng giống như Phước nói vậy... tôi "nói" cho "nó" biết rằng "NẾU A1="" THÌ XÓA CF VÀ KO LÀM GÌ NỮA CẢ, NGƯỢC LẠI, ADD CF VÀ THỰC HIỆN SELECTION CHANGE"
He... he... chắc tôi nói tiếng Anh kém nên "nó" vẫn chưa hiểu! Cứ error hoài... đễ xem lại đã... (ngu VBA)

 

[anhtuan1066]

Cải tiến Highlight theo kiểu của anh TuanVNUNI nè... (bắt chước giống giống thôi)... hi... hi...

 

[CATHY]

Cải tiến Highlight theo kiểu của anh TuanVNUNI nè... (bắt chước giống giống thôi)... hi... hi...

Anh Tuấn chỉ em thêm được không ? Em làm thử trên máy khác, khi đánh đoạn code xong em trở về Excel chạy thử thì không thấy highlight tự động (đã chọn CF). Như vậy khi đánh đoạn code xong phải làm thêm các bước nào không ? anh thông cảm em chưa rành VBA !
Cảm ơn anh
CATHY

 

[tedaynui]

AnhTuấn ơi test lại coi. Em test thấy chưa ổn. Nếu nhập liệu vào vài ô thì Highlight tùm lum luôn (Nó không Refresh). Anh xem lại coi. Thanks !

Thân!

 

[anhtuan1066]

Uh, sao lạ thế nhỉ? Đâu thấy có gì sai đâu ta...
Mà hôm qua test cái nào cũng ngon lành, tự nhiên hôm nay trở chứng, 3, 4 file liền 1 lúc cái nào cũng báo lỗi hết... Chơi xỏ hả ta!
Hic... Hic.. Phước thấy thế nào? File này có 1 dòng code duy nhất lấy đâu ra lỗi nhỉ?
ANH TUẤN

 

[anhtuan1066]

Phát hiện thêm 1 chiêu nữa...: Nếu ta Highlight 1 vùng giới hạn, (ko highlight toàn bộ bàng tính) thì nếu như vùng ấy có chứa đầy dử liệu sẽ ko báo lỗi.. những dòng và cột ko có dử liệu sẽ bị lỗi về màu
Tôi đã sửa lại file trong bài #24, giờ hết lỗi rồi nhé
ANH TUẤN

 

[SoiBien]

Highlight không dùng sheet.calculate

Em đề nghị cách này, không dùng sheet.calculate, nên ta có thể copy được.

 

[anhtuan1066]

Hay... có thể copy paste dc bình thường... tuy nhiên kiến thức này lại.. quá cao so với những bạn mới học...
Dù sao tôi vẫn khoái dùng F9 hơn... Mỗi khi thao tác nhập liệu thì nó cũng tự động Highlight đấy thôi.. chỉ trừ trường hợp chọn cell là nó ko tự động thôi.. Cách này rất phù hợp cho các bạn mới học... hi... hi...
ANH TUẤN

 

[SoiBien]

Hay... có thể copy paste dc bình thường... tuy nhiên kiến thức này lại.. quá cao so với những bạn mới học...
Dù sao tôi vẫn khoái dùng F9 hơn... Mỗi khi thao tác nhập liệu thì nó cũng tự động Highlight đấy thôi.. chỉ trừ trường hợp chọn cell là nó ko tự động thôi.. Cách này rất phù hợp cho các bạn mới học... hi... hi...
ANH TUẤN

vâng anh! em cũng nghĩ dùng F9, cứ giống như cái bài đầu của anh thì hay hơn, đánh dấu dòng mình đang cần chú ý.

 

[anhtuan1066]

Soibien qua góp ý phần ComboBox ko dùng VBA của tôi đi.. xem thử có phát hiện gì mới ko
ANH TUẤN

 

[HuuThanh]

Thêm một chút góp vui cùng các bạn !!!

Mình thêm một chút để góp vui trong diễn đàn. Cũng là nhờ các anh giúp đỡ thôi. Xấu hổ quá chưa đọc hết bài các anh đã quậy rồi. Xấu hổ quá!!!!!!!!!!!

 

[anhtuan1066]

Mình thêm một chút để góp vui trong diễn đàn. Cũng là nhờ các anh giúp đỡ thôi. Xấu hổ quá chưa đọc hết bài các anh đã quậy rồi. Xấu hổ quá!!!!!!!!!!!

He... he... như đã nói từ đầu, cách này chưa dc vì nếu dùng Calculate thì chức năng copy sẽ bị hủy

 

[daminhlt]

Đâu cần thiết phải nhấn F9, Double Nick và Cell bất kỳ rồi enter là được rồi.

 

[anhtuan1066]

Đâu cần thiết phải nhấn F9, Double Nick và Cell bất kỳ rồi enter là được rồi.

Vậy 1 trong 2 thao tác trên cái nào nhanh hơn?

 

[ptm0412]

He... he... như đã nói từ đầu, cách này chưa dc vì nếu dùng Calculate thì chức năng copy sẽ bị hủy

Muốn không bị hủy chức năng copy paste thì dễ mà, anhtuan chịu 1 chầu nhé!
(copy ở đâu cũng được, nhưng chỉ paste ngoài vùng dữ liệu thôi)

 

[anhtuan1066]

Muốn không bị hủy chức năng copy paste thì dễ mà, anhtuan chịu 1 chầu nhé!
(copy ở đâu cũng được, nhưng chỉ paste ngoài vùng dữ liệu thôi)

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

 

[ptm0412]

Vấn đề là nguyên nhân của sự mất chức năng copy paste khi change selection: Khi thay đổi ô chọn mà thực hiện 1 lệnh VBA gì đó thì nó quên đi cái vụ copy. Vậy giải quyết bằng nhiều cách:

- Giới hạn vùng tác động của câu lệnh (Ptm)
- Không sử dụng câu lệnh trực tiếp mà dùng 1 phương thức hoặc 1 thuộc tính nào đó có tác dụng tương đương câu lệnh (anhtuan)
- Chỉ thay đổi giá trị của biến hoặc name tức là tác động gián tiếp (SoiBien)

Tùy trường hợp mà sử dụng.

 

[ptm0412]

Thí dụ như file sau của MrOkeBab, làm sao để có thể copy paste?