Nhờ viết code tìm và tô màu ô có công thức (1 người xem)

[langtuchungtinh360]

nhờ ae viết giúp mình code thực hiện vấn đề như tiêu đề này
ví dụ như ô a1 có công thức thì sẽ tô màu
còn ô a2 đánh chữ hay số vào bình thường thì không tô
mong được sự giúp đỡ từ mọi người

 

[khuongvietphong]

nhờ ae viết giúp mình code thực hiện vấn đề như tiêu đề này
ví dụ như ô a1 có công thức thì sẽ tô màu
còn ô a2 đánh chữ hay số vào bình thường thì không tô
mong được sự giúp đỡ từ mọi người

Bạn thử đoạn sub sau:

[TABLE="width: 576"]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 3"]Sub ColorAllFormulae()[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 8"] ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 6[/TD]
[/TR]
[TR]
[TD]End Sub[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]

 

[phulien1902]

Bạn thử đoạn sub sau:

[TABLE="width: 576"]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 3"]Sub ColorAllFormulae()[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"] ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 6[/TD]
[/TR]
[TR]
[TD]End Sub[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

Sao không để 2 em xích lại gần nhau: xlCellTypeFormu las

 

[khuongvietphong]

Chà, bữa nay VBA lên tay dữ hen. Chơi cả UsedRange / SpecialCells luôn ta........

Cái này em mới học lỏm được trên GPE mà anh

 

[khuongvietphong]

Sao không để 2 em xích lại gần nhau: xlCellTypeFormu las

Không phải thế đâu ạ, thỉnh thoảng viết bài trên diễn đàn em lại gặp phải lỗi tự dưng bị cách như này

 

[Loan1989]

nhờ ae viết giúp mình code thực hiện vấn đề như tiêu đề này
ví dụ như ô a1 có công thức thì sẽ tô màu
còn ô a2 đánh chữ hay số vào bình thường thì không tô
mong được sự giúp đỡ từ mọi người

F5=>Special=>Formulas=> Các ô có công thức sẽ được chọn, sau đó chọn màu là được

 

[langtuchungtinh360]

Bạn thử đoạn sub sau:

[TABLE="width: 576"]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 3"]Sub ColorAllFormulae()[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"] ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 6[/TD]
[/TR]
[TR]
[TD]End Sub[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

cảm ơn bạn nhe. bạn giải thích giúp mình chỗ nào để nó biết được ô có công thức thế

 

[giangleloi]

cảm ơn bạn nhe. bạn giải thích giúp mình chỗ nào để nó biết được ô có công thức thế

Cái code đó giống như làm tay như bài 7 hướng dẫn ấy.

 

[khuongvietphong]

cảm ơn bạn nhe. bạn giải thích giúp mình chỗ nào để nó biết được ô có công thức thế

Mình giải thích theo ý hiểu của mình nhé:

SpecialCells tức là cell đặc biệt , đặc biệt ở đây có thể là ô chứa ghi chú, ô có chứa hằng số, ô có áp dụng điều kiện, ô có chứa công

thức ...trong trường hợp này của bạn nó đặc biệt là bởi nó chứa CT , tức là bạn viết SpecialCells ( xlCellTypeFormulas ).

Như vậy nó sẽ hiểu là ta muốn đi tìm những cell đặc biệt là những cell có chứa công thức. Trường hợp khác bạn muốn tô màu những ô chứa ghi

chú thì bạn sửa xlcellTypeFormula thành xlCellTypeComments, muốn tô màu những ô trống

thì sửa xlcellTypeFormula thành xlCellTypeBlanks vv...

 

[langtuchungtinh360]

Tôi thấy bạn cũng code kiết dữ lắm mà.....sao mấy cái này không chịu tìm hiểu mà đi hỏi nhỉ???
Search và tìm hiểu cái SpecialCells thì biết...chư gì...........
xlCellTypeFormulas -> thế đoạn này bạn dịch ra Tiếng Việt là gì.......

dữ gì đâu b. làm ra được mà chạy lâu như gì ấy. đang làm code để fix chiều cao ô với update lại dữ liệu vào mấy biên bản mà chạy mất gần 15s. quá là lâu. mình mới biết được làm việc với mảng trong vba nhanh mà không biết tìm tài liệu ở đâu hết, bạn biết chỉ mình với.