Hiện tên ô được tô màu (1 người xem)

[daodaivu2014tb]

các bác giúp em hàm này nha…
- có thể tự động hiện lên các ô được tô màu như hàng 13 trên đây , tự động thay đổi theo dữ liệu ( A1- Q3 ) và ( R1)
xin cảm ơn các bác nhiều.......

 

[daodaivu2014tb]

Các bác ghé qua nhiều sao không có bác nào cho em vài chữ được không a..em xin cảm ơn rất nhiều..

 

[hophoang]

Các bác ghé qua nhiều sao không có bác nào cho em vài chữ được không a..em xin cảm ơn rất nhiều..

Nếu cell nào =4 thì màu đỏ thì được

 

[quanthienhan]

Em có sử dụng công thức này nhưng không được ...=GetAdd($A$1:$Q$3;$R$1;COLUMN(A1)) công thức này trên ex2k3 thì được , mà em copy công thức này vô file này của em thì báo lỗi , Bác nào biết tại sao chỉ giúp em với..thanks.

 

[phihndhsp]

Các bác ghé qua nhiều sao không có bác nào cho em vài chữ được không a..em xin cảm ơn rất nhiều..

bạn có biết là tại sao người ta không làm không?
thứ nhất không biết làm như vậy với mục đích gì
thứ 2 nếu dữ liệu nhiều thì phải ghi địa chỉ thêm vào chỗ nào
tôi làm cho bạn bài này theo đúng yêu cầu của bạn bạn cứ từ từ mà xem (đã xóa file đính kèm lý do là chủ topic không muốn nhấn nút mà muốn thay đổi trên cell nên có file đính kèm bên dưới)

 

[daodaivu2014tb]

bạn có biết là tại sao người ta không làm không?
thứ nhất không biết làm như vậy với mục đích gì
thứ 2 nếu dữ liệu nhiều thì phải ghi địa chỉ thêm vào chỗ nào
tôi làm cho bạn bài này theo đúng yêu cầu của bạn bạn cứ từ từ mà xem

Xin cám ơn bạn nhiều, bài bạn làm đúng là đúng yêu cầu của mình rồi, chỉ có một chút là ,mỗi khi dữ liệu thay đổi , có cách nào kết quả hàng 13 tự động thay đổi không bạn. có nghĩa mình không phải ấn lấy dữ liệu nữa.. xin làm phiền bạn thêm chút nữa..thanks

 

[phihndhsp]

Xin cám ơn bạn nhiều, bài bạn làm đúng là đúng yêu cầu của mình rồi, chỉ có một chút là ,mỗi khi dữ liệu thay đổi , có cách nào kết quả hàng 13 tự động thay đổi không bạn. có nghĩa mình không phải ấn lấy dữ liệu nữa.. xin làm phiền bạn thêm chút nữa..thanks

Bạn xem nha, ô thay đổi là ô R1

 

[daodaivu2014tb]

Bạn xem nha, ô thay đổi là ô R1

ok...có điều khi mình thay đổi dữ liệu từ a1 đến q3 thì chưa được bạn ah..dữ liệu của mình ( a1 đến q3 và r1 . là không cố định bạn nhé ) bạn xem cái này có áp dụng được vào file của mình không bạn... xin chân thành cảm ơn bạn nhiều..
=GetAdd($A$1:$Q$3;$R$1;COLUMN(A1))

 

[ndu96081631]

ok...có điều khi mình thay đổi dữ liệu từ a1 đến q3 thì chưa được bạn ah..dữ liệu của mình ( a1 đến q3 và r1 . là không cố định bạn nhé ) bạn xem cái này có áp dụng được vào file của mình không bạn... xin chân thành cảm ơn bạn nhiều..
=GetAdd($A$1:$Q$3;$R$1;COLUMN(A1))

Hỏi lại: Cái =GetAdd($A$1:$Q$3;$R$1;COLUMN(A1)) ở đâu ra vậy bạn?

 

[daodaivu2014tb]

Hỏi lại: Cái =GetAdd($A$1:$Q$3;$R$1;COLUMN(A1)) ở đâu ra vậy bạn?

Bác thông cảm ..Em gà mờ..còn cái này nữa mà em chưa chuyển sang, ( cái đấy nó đi cùng với cái này bác ạ..) hiii
Function GetAdd(Rng As Range, Crit As Variant, sNum As Byte)
Dim Cll As Range, Num As Byte
For Each Cll In Rng
If Cll = Crit Then
Num = Num + 1
If Num < sNum Then
GetAdd = ""
ElseIf Num = sNum Then
GetAdd = Cll.Address(0, 0)
Exit For
End If
Else
GetAdd = ""
End If
Next Cll
End Function

 

[ndu96081631]

Bác thông cảm ..Em gà mờ..còn cái này nữa mà em chưa chuyển sang, ( cái đấy nó đi cùng với cái này bác ạ..) hiii
Function GetAdd(Rng As Range, Crit As Variant, sNum As Byte)
Dim Cll As Range, Num As Byte
For Each Cll In Rng
If Cll = Crit Then
Num = Num + 1
If Num < sNum Then
GetAdd = ""
ElseIf Num = sNum Then
GetAdd = Cll.Address(0, 0)
Exit For
End If
Else
GetAdd = ""
End If
Next Cll
End Function

Nếu bạn thấy hàm ấy đúng ý bạn, vậy thì cứ xài đi, còn hỏi gì nữa?
--------------------
Ngoài ra tôi có thắc mắc: Bạn lấy mấy cái địa chỉ ấy để làm gì nhỉ?

 

[daodaivu2014tb]

Nếu bạn thấy hàm ấy đúng ý bạn, vậy thì cứ xài đi, còn hỏi gì nữa?
--------------------
Ngoài ra tôi có thắc mắc: Bạn lấy mấy cái địa chỉ ấy để làm gì nhỉ?

Xin lỗi bạn, không phải mình cố ý hỏi vậy, lúc đầu mình không biết sử dụng, nên không làm được như ý, nên mới hỏi.. mày mò mãi mới ra cái đó..xin cảm ơn mọi người nhiều