Xác định vùng chọn (Có Merge) những ô chứa văn bản

[giaiphap]

Tôi sử dụng lệnh sau đây để xác định vùng đang chọn những ô nào chứa văn bản, nhưng nó lại không chính xác với vùng đang chọn là ghép nhiều ô lại.

MsgBox Selection.SpecialCells(xlTextValues, 2).Address

Anh em nào từng gặp trường hợp này chỉ mình khắc phục với.

 

[be_09]

Tôi sử dụng lệnh sau đây để xác định vùng đang chọn những ô nào chứa văn bản, nhưng nó lại không chính xác với vùng đang chọn là ghép nhiều ô lại.

MsgBox Selection.SpecialCells(xlTextValues, 2).Address

Anh em nào từng gặp trường hợp này chỉ mình khắc phục với.

Em thử cách dùng hộp thoại Go To Special để chọn những chỗ có Text.

 

[giaiphap]

Em thử cách dùng hộp thoại Go To Special để chọn những chỗ có Text.

View attachment 202971

Cái này nó tìm luôn tất cả các ô trong sheet luôn anh, em muốn tìm trong ô đang chọn (Ở đây bị sai ở chổ ô đang chọn đang Merge, đúng trong các ô đang chọn không bị Merge).

 

[be_09]

Cái này nó tìm luôn tất cả các ô trong sheet luôn anh, em muốn tìm trong ô đang chọn (Ở đây bị sai ở chổ ô đang chọn đang Merge, đúng trong các ô đang chọn không bị Merge).

Vậy em thử dùng code này, tìm và tô màu những Cell gộp, em sử dụng Go To Special để chọn những chỗ có Text rồi thêm code vào.

Sub TimMergedCellVaToMau()
    Dim Gop As Range
    For Each Gop In ActiveSheet.UsedRange
        If Gop.MergeCells Then
            Gop.Interior.ColorIndex = 28
        End If
    Next
End Sub

 

[ndu96081631]

Tôi sử dụng lệnh sau đây để xác định vùng đang chọn những ô nào chứa văn bản, nhưng nó lại không chính xác với vùng đang chọn là ghép nhiều ô lại.

MsgBox Selection.SpecialCells(xlTextValues, 2).Address

Anh em nào từng gặp trường hợp này chỉ mình khắc phục với.

Nếu kết quả đúng thì sẽ là bao nhiêu?
Dùng SpecialCells phải tuyệt đối cẩn thận, nhất là khi Selection = 1 cell
Từ đó bạn sẽ thấy rằng: Không phải cell merge bị sai mà bất cứ cell nào cũng vậy, chỉ cần bạn chọn duy nhất 1 cell là kết quả sai ngay

 

[giaiphap]

Nếu kết quả đúng thì sẽ là bao nhiêu?
Dùng SpecialCells phải tuyệt đối cẩn thận, nhất là khi Selection = 1 cell
Từ đó bạn sẽ thấy rằng: Không phải cell merge bị sai mà bất cứ cell nào cũng vậy, chỉ cần bạn chọn duy nhất 1 cell là kết quả sai ngay

Tuyệt! Hôm nay được anh khai thông chổ màu đỏ, sử dụng cứ mắc lỗi hoài mà quên trường hợp đặc biệt. Nhờ bài này em làm được nhiều việc mà trước giờ bực với nó nhưng không biết nguyên nhân.

 

[xuantocdotb]

Tuyệt! Hôm nay được anh khai thông chổ màu đỏ, sử dụng cứ mắc lỗi hoài mà quên trường hợp đặc biệt. Nhờ bài này em làm được nhiều việc mà trước giờ bực với nó nhưng không biết nguyên nhân.

Vậy anh ơi cần phải sửa lại như thế nào để khắc phục được lỗi ạ! nhờ anh chỉ giúp em.

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

Nếu kết quả đúng thì sẽ là bao nhiêu?
Dùng SpecialCells phải tuyệt đối cẩn thận, nhất là khi Selection = 1 cell
Từ đó bạn sẽ thấy rằng: Không phải cell merge bị sai mà bất cứ cell nào cũng vậy, chỉ cần bạn chọn duy nhất 1 cell là kết quả sai ngay

Thầy cho em hỏi phải chỉnh lại code thế nào để khắc phục được lỗi trên ạ!

 

[giaiphap]

Vậy anh ơi cần phải sửa lại như thế nào để khắc phục được lỗi ạ! nhờ anh chỉ giúp em.

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

Thầy cho em hỏi phải chỉnh lại code thế nào để khắc phục được lỗi trên ạ!

Trước hết bạn kiểm tra vùng là bao nhiêu ô? nếu nhiều ô thì kiểm tra vùng chọn có ghép ô không? nếu không thì lúc đó mới thực hiện lệnh. Hoặc đơn giản hơn nửa là bạn xem file mẫu.