Nhờ Anh, Chị sửa giúp Em code -> Hiển thị mầu cho dòng có chứa ô hiện tại (1 người xem)

[ndhmoney686]

Em chào Anh Chị và các Bạn!

Khi làm việc với bảng tính có nhiều dữ liệu, nhiều lúc hoa hết cả mắt và nhầm lẫn. Để tránh nhầm lẫn và dễ nhìn. Em thấy code hiển thị mầu cho dòng có chứa ô hiện tại rất hay. Em có siêu tầm được 1 code. Nhưng còn một số vấn đề cần chỉnh sửa cho phù hợp hơn. Em gửi file đính kèm và trình bày chi tiết trong file. Mong Anh Chị và các Bạn xem và giúp Em. Cám ơn Anh chị và các Bạn nhiều!

 

[mhung12005]

Em chào Anh Chị và các Bạn!

Khi làm việc với bảng tính có nhiều dữ liệu, nhiều lúc hoa hết cả mắt và nhầm lẫn. Để tránh nhầm lẫn và dễ nhìn. Em thấy code hiển thị mầu cho dòng có chứa ô hiện tại rất hay. Em có siêu tầm được 1 code. Nhưng còn một số vấn đề cần chỉnh sửa cho phù hợp hơn. Em gửi file đính kèm và trình bày chi tiết trong file. Mong Anh Chị và các Bạn xem và giúp Em. Cám ơn Anh chị và các Bạn nhiều!

Bạn dùng thử code này xem sao.

Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim SrcRng As Range
    Set SrcRng = Sheet1.Range("B2:F27")
    If Not Intersect(Target, SrcRng) Is Nothing Then
        On Error Resume Next
        SrcRng.Interior.ColorIndex = False
        Sheet1.Range("B" & ActiveCell.Row & ":F" & ActiveCell.Row).Interior.ColorIndex = 8
    End If
End Sub

 

[ndhmoney686]

Cảm ơn bạn mhung12005. Bạn ơi nếu trong vùng đó mà có ô nào tô mầu rồi, thì khi chạy code vẫn bị mất mầu.
hoặc đang dùng conditional formatting tô mầu dòng xen kẽ, thì dòng nào có mầu rồi là nó ko thay đổi mầu, có cách nào để nó được ưu tiên trước.

 

[Quang_Hải]

Cảm ơn bạn mhung12005. Bạn ơi nếu trong vùng đó mà có ô nào tô mầu rồi, thì khi chạy code vẫn bị mất mầu.
hoặc đang dùng conditional formatting tô mầu dòng xen kẽ, thì dòng nào có mầu rồi là nó ko thay đổi mầu, có cách nào để nó được ưu tiên trước.

Thử cách này xem sao.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B2:F27]) Is Nothing Then
   Target.EntireRow.Select
   Target.Activate
End If
End Sub

 

[ndhmoney686]

Em sử dụng conditional formatting với công thức =ROW()=CELL("ROW") kết hợp với code.
Gần được như ý rồi. Nhưng còn một vấn đề, một số vùng em tô mầu trang trí hoặc tick đánh dấu ghi nhớ trong khi làm việc -> khi chay code một phát là nó mất hết toàn bộ mầu.


Anh chị và các bạn giúp Em có cách nào vẫn giữ được mầu mà em đã định dạng.

 

[SA_DQ]

Không có cái nào có thể ưu tiên hơn so với CF đâu; Trừ fi bạn tự viết lại toàn bộ Excel
Còn fân tích iêu cầu của bạn trong việc giữ nguyên màu ban đầu là rất khó, chứ không fải đùa.

Này nhé:
Khi mở file, thì trang tính thân thương của bạn cần được sao lưu các ô tô màu vô biến nào đó & biến này cần tồn tại suốt trong thời gian bạn mở file.
Riêng chuyện này đã là bất thường quá đáng rồi!

Thêm nữa, trong khi bạn di chuyển chuột, thì qui trình tô lại màu từ biến cũng fải thực hiện lại & song hành với nó là dòng cũ bỏ tô màu (số 8) & dòng mới tô màu số 8
Các dòng khác thì giữ nguyên màu theo bạn muốn; Đây có thể là 1 điều không tưởng đó bạn!

 

[ndhmoney686]

Thử cách này xem sao.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B2:F27]) Is Nothing Then
   Target.EntireRow.Select
   Target.Activate
End If
End Sub

Cám ơn Anh. Anh ơi phần tô mầu mà em định dạng ko bị xóa là ok rồi Anh ạ.
Anh để giúp Em chế độ nó hiện mầu bình thường (hiện tại nó đang hiện lên kiểu tỏa ra). Và giúp Em cho nó hiện trong khoảng B2:F27 (hiện tại nó vẫn hiện toàn bộ dòng). Mong Anh giúp. Cám ơn Anh!

 

[Quang_Hải]

Em sử dụng conditional formatting với công thức =ROW()=CELL("ROW") kết hợp với code.
Gần được như ý rồi. Nhưng còn một vấn đề, một số vùng em tô mầu trang trí hoặc tick đánh dấu ghi nhớ trong khi làm việc -> khi chay code một phát là nó mất hết toàn bộ mầu.


Anh chị và các bạn giúp Em có cách nào vẫn giữ được mầu mà em đã định dạng.

Vậy thử file này đi.
Nếu nói không thể giữ lại màu trước đó là chưa đúng hoàn toàn.

 

[ndhmoney686]

Tuyệt cú mèo Anh Quanghai1969 ạ. Cám ơn Anh và các Bạn đã giúp đỡ!

 

[hoanglocphat]

Thử cách này xem sao.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B2:F27]) Is Nothing Then
   Target.EntireRow.Select
   Target.Activate
End If
End Sub

Bài của bạn rất hay!
Bạn có thể sửa code giúp như sau:
Nếu dử liệu của tôi là [B2:Fn], trong đó n là dòng cuối cùng có số liệu ( n: là số bất kỳ) thì code sửa như thế nào!
Cảm ơn bạn!

 

[Quang_Hải]

Bài của bạn rất hay!
Bạn có thể sửa code giúp như sau:
Nếu dử liệu của tôi là [B2:Fn], trong đó n là dòng cuối cùng có số liệu ( n: là số bất kỳ) thì code sửa như thế nào!
Cảm ơn bạn!

Thử code này
Code hoạt động trong phạm vi cột B:F

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Dim n As Long, rng As Range
n = ActiveSheet.UsedRange.SpecialCells(11).Row
Set rng = Range("B2:F" & n)
If Not Intersect(Target, rng) Is Nothing Then
   With Target
      Range(Cells(.Row, 2), Cells(.Row, 6)).Select
      .Activate
   End With
End If
Application.EnableEvents = True
End Sub

 

[ndhmoney686]

Vậy thử file này đi.
Nếu nói không thể giữ lại màu trước đó là chưa đúng hoàn toàn.

Anh Quanghai ơi. Anh có thể giúp Em chỉnh cho cái hiển thị mầu của dòng. Nó hiện lên ở chế độ mà ko bị rung ko Anh? Em thấy khi bấm nhanh vào dữ liệu, Em thấy nó bị rung, cứ nhoằng, nhoằng...

 

[Quang_Hải]

Anh Quanghai ơi. Anh có thể giúp Em chỉnh cho cái hiển thị mầu của dòng. Nó hiện lên ở chế độ mà ko bị rung ko Anh? Em thấy khi bấm nhanh vào dữ liệu, Em thấy nó bị rung, cứ nhoằng, nhoằng...

Nên dùng code ở bài 11, đừng có ham màu mè, gặp file nặng thì nó lì ra chán lắm. Chỉ là code cho vui thôi chứ mình khuyên không nên xài.

 

[Hong.Van]

Anh Quanghai ơi. Anh có thể giúp Em chỉnh cho cái hiển thị mầu của dòng. Nó hiện lên ở chế độ mà ko bị rung ko Anh? Em thấy khi bấm nhanh vào dữ liệu, Em thấy nó bị rung, cứ nhoằng, nhoằng...

Gởi bạn 1 cách khác
Khi bạn check vào Check Box1 ở sheet 1 hay sheet 2 , tùy bạn!

 

[zhong]

Em chào Anh Chị và các Bạn!

Khi làm việc với bảng tính có nhiều dữ liệu, nhiều lúc hoa hết cả mắt và nhầm lẫn. Để tránh nhầm lẫn và dễ nhìn. Em thấy code hiển thị mầu cho dòng có chứa ô hiện tại rất hay. Em có siêu tầm được 1 code. Nhưng còn một số vấn đề cần chỉnh sửa cho phù hợp hơn. Em gửi file đính kèm và trình bày chi tiết trong file. Mong Anh Chị và các Bạn xem và giúp Em. Cám ơn Anh chị và các Bạn nhiều!

Có phải như thế này không