Phát hiện các ô đã gộp trong một sheet hoặc trong các sheet

[quanglenb]

Em có vấn đề xin được hỏi các anh chị :
Có cách nào để phát hiện được những ô đã được gộp trong một sheet hoặc ở các sheet trong file excel bằng cách tô màu vùng được gộp đó.

 

[be_09]

Em có vấn đề xin được hỏi các anh chị :
Có cách nào để phát hiện được những ô đã được gộp trong một sheet hoặc ở các sheet trong file excel bằng cách tô màu vùng được gộp đó.

Thừ sử dụng File.
Đến bất kỳ sheet nào thì vui lòng nhấn phím tắt Ctrl + Shift + S.

 

[quanglenb]

Thừ sử dụng File.
Đến bất kỳ sheet nào thì vui lòng nhấn phím tắt Ctrl + Shift + S.

Em cảm ơn anh!

Bài đã được tự động gộp: 3/11/19

Em cảm ơn anh!

À anh ơi, khi các ô đã được tô màu vậy sau chạy code thì có cách nào để chuyển từ màu được tô (màu xanh về màu mặc định ban đầu là nền trắng không ạ?)
Ý em là tô màu như vậy để kiểm tra biết vùng nào được gộp hay không?
Anh xem giúp em.

 

[be_09]

Em cảm ơn anh!

Bài đã được tự động gộp: 3/11/19

À anh ơi, khi các ô đã được tô màu vậy sau chạy code thì có cách nào để chuyển từ màu được tô (màu xanh về màu mặc định ban đầu là nền trắng không ạ?)
Ý em là tô màu như vậy để kiểm tra biết vùng nào được gộp hay không?
Anh xem giúp em.

Nhấn Ctrl + A (để chọn tất cả) rồi vào Home =>.....Nofill.

 

[quanglenb]

Em cảm ơn anh!

Bài đã được tự động gộp: 3/11/19

À anh ơi, khi các ô đã được tô màu vậy sau chạy code thì có cách nào để chuyển từ màu được tô (màu xanh về màu mặc định ban đầu là nền trắng không ạ?)
Ý em là tô màu như vậy để kiểm tra biết vùng nào được gộp hay không?
Anh xem giúp em.

Em có ghi Maccro nhưng khi chạy để lấy nền mặc định (màu trắng ban đầu) thì đầu tiên toàn bộ trang tính vẫn bị chọn hết rồi click vào trang tính một lần nữa mới trở lại mặc định như ban đầu, nhờ anh giúp em bỏ thi thao tác thừa "khi chạy maccro"( bỏ đi thao tác khi chạy maccro sẽ tương đương với phím "Ctrl+A" thì trang tính được chọn hết ) mà để khi chạy maccro hiện luôn lên nền như mặc định ban đầu không phải click vào màn hình 1 lần nữa. Em cám ơn anh.

Sub Macdinh()
    Cells.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

 

[be_09]

Em có ghi Maccro nhưng khi chạy để lấy nền mặc định (màu trắng ban đầu) thì đầu tiên toàn bộ trang tính vẫn bị chọn hết rồi click vào trang tính một lần nữa mới trở lại mặc định như ban đầu, nhờ anh giúp em bỏ thi thao tác thừa "khi chạy maccro"( bỏ đi thao tác khi chạy maccro sẽ tương đương với phím "Ctrl+A" thì trang tính được chọn hết ) mà để khi chạy maccro hiện luôn lên nền như mặc định ban đầu không phải click vào màn hình 1 lần nữa. Em cám ơn anh.

Sub Macdinh()
    Cells.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Để sử dụng cho các sheet thì sử dụng code sau trong Module.

Sub XoaMau()
Dim i As Range
    For Each i In ActiveSheet.UsedRange
        If i.MergeCells Then
            i.Interior.ColorIndex = xlNone
        End If
    Next
End Sub

 

[quanglenb]

Để sử dụng cho các sheet thì sử dụng code sau trong Module.

Sub XoaMau()
Dim i As Range
    For Each i In ActiveSheet.UsedRange
        If i.MergeCells Then
            i.Interior.ColorIndex = xlNone
        End If
    Next
End Sub

Cám ơn anh nhiều! chúc anh nhiều sức khỏe!