Bôi màu các hàng có số giống nhau !

giang127 · 19/9/11

Chào các bác,

Chả là em muốn lọc dữ liệu theo màu. Cụ thể theo như file đính kèm:

Khi lọc ra được số liệu ở cột F rùi, chỉ cần Click buttom là các số thuộc CỘT "F" giống nhau sẽ bôi màu cả hàng:
VD:
Ô F5 và F6 có số giống nhau => cùng bôi màu ở các hàng giống nhau
Ô F8, F9 và F10 có số giống nhau => cùng bôi màu ở các hàng giống nhau

Vậy em nhờ bác nào biết giúp em với nhé !

Ba Tê · 19/9/11

giang127 đã viết:
Chào các bác,

Chả là em muốn lọc dữ liệu theo màu. Cụ thể theo như file đính kèm:

Khi lọc ra được số liệu ở cột F rùi, chỉ cần Click buttom là các số thuộc CỘT "F" giống nhau sẽ bôi màu cả hàng:
VD:
Ô F5 và F6 có số giống nhau => cùng bôi màu ở các hàng giống nhau
Ô F8, F9 và F10 có số giống nhau => cùng bôi màu ở các hàng giống nhau

Vậy em nhờ bác nào biết giúp em với nhé !

Hổng biết cái buttom là gì????
Xem cái này đi, nếu xài được thì xài, hổng cần cái "buttom".
--------
Mà cái này cũng liên quan đến Excel và Kế toán sao ta?

giang127 · 20/9/11

Lỗi rùi

Ý em muốn dùng nút bấm để cho nó trông chuyên nghiệp @$@!^%

Với lại cũng muốn học hỏi cách viết code VBA.

Nhưng mà, file của bác bị lỗi rùi. Bác có thể cho em hỏi, viết code như thế nào đc ko.

http://www.fileden.com/files/2009/4/11/2399646//loi.JPG

Nút 1: Ấn vào thì bôi màu
Nút 2: Xóa trắng

Ba Tê · 20/9/11

giang127 đã viết:
Ý em muốn dùng nút bấm để cho nó trông chuyên nghiệp

Với lại cũng muốn học hỏi cách viết code VBA.

Nhưng mà, file của bác bị lỗi rùi. Bác có thể cho em hỏi, viết code như thế nào đc ko.

http://www.fileden.com/files/2009/4/11/2399646//loi.JPG

Nút 1: Ấn vào thì bôi màu
Nút 2: Xóa trắng

Muốn chuyên nghiệp thì post bài sang chuyên mục liên quan đến VBA.
File bị lỗi mà không nói rõ lỗi gì, file trên tôi chỉ ví dụ cách làm khoảng hơn 10 dòng đầu, muốn nhiều hơn thì "tự chỉnh".
Bản thân câu hỏi ở bài #1 cũng chưa hẵn là rõ ràng.
Híc! bate nữa rồi!

giang127 · 20/9/11

Em lỡ post bài này ở Mục này rùi; bác giúp em viết code VBA để bôi màu các hàng đi ợ. VOTE ngàn sao $-\\/.$

(P/S: 10 dòng trong file bác chỉnh thế nào mà nó lại tự nhảy màu như thế được. Em gà lắm, hức !)

concogia · 20/9/11

giang127 đã viết:
Ý em muốn dùng nút bấm để cho nó trông chuyên nghiệp

Với lại cũng muốn học hỏi cách viết code VBA.

Nút 1: Ấn vào thì bôi màu
Nút 2: Xóa trắng

Muốn VBA thì....tặng bạn VBA
Muốn NÚT thì .......tặng bạn NÚT, nhưng chỉ 1 nút cho nó "Zồ" tí, chẳng cần 2 nút đâu, nhấn lần đầu nó "bôi màu", nhấn lần nữa nó "xóa màu"
Nếu trong bài dữ liệu bạn trùng nhiều thì dùng File 1
Nếu dữ liệu của bạn trùng ít ( khoảng 50 dữ liệu trùng) thì chơi file 2 cho nó "Zồ" hơn nữa: các em giống nhau sẽ có màu giống nhau
Híc, nói vui thôi nhé
Thân

morningstar85 · 22/9/11

concogia đã viết:
Muốn VBA thì....tặng bạn VBA
Muốn NÚT thì .......tặng bạn NÚT, nhưng chỉ 1 nút cho nó "Zồ" tí, chẳng cần 2 nút đâu, nhấn lần đầu nó "bôi màu", nhấn lần nữa nó "xóa màu"
Nếu trong bài dữ liệu bạn trùng nhiều thì dùng File 1
Nếu dữ liệu của bạn trùng ít ( khoảng 50 dữ liệu trùng) thì chơi file 2 cho nó "Zồ" hơn nữa: các em giống nhau sẽ có màu giống nhau
Híc, nói vui thôi nhé
Bạn ơi mình thấy cách tô màu của bạn hay quá
Bạn chỉ giúp mình cách với
Chi dowfile cell đó về thì ko bít được cách làm
Mình rất cần. mong bạn giúp mình hii

dailykem · 22/9/11

Hổng biết cái buttom là gì????
Xem cái này đi, nếu xài được thì xài, hổng cần cái "buttom".
--------
Mà cái này cũng liên quan đến Excel và Kế toán sao ta?

Tập tin đính kèm

Boi mau cac hang co so giong nhau.rar‎ (4.3 KB, 19 lần tải)

tìm hoài ko thấy code của anh Bate đâu
lạ chưa??? hổng nhẽ máy mình ko hiện code ??? View code rồi mà???

concogia · 22/9/11

dailykem đã viết:
tìm hoài ko thấy code của anh Bate đâu
lạ chưa??? hổng nhẽ máy mình ko hiện code ??? View code rồi mà???

Code của anh Ba Tê là code đời sau, giống như xe Cub 81 - "Kim vàng - Giọt lệ - Mắt long lanh" zị đó
Code đó phải mở bằng cách : Chọn [A4:F20] ==> bấm Alt + O ==> bấm phím D mới thấy được
Híc

dailykem · 23/9/11

Chú Concogia cũng thức khuya thế
Phải chăng suy nghĩ cho excel, mong ngày mai tốt đẹp hơn => ko ngủ được

cho e hỏi chút:
bây giờ các dữ liệu giống nhau ko cùng 1 cột mà nó nằm rải rác tại các cột thì phải làm sao, các anh chỉ giúp
e gửi file lên ko được

concogia · 23/9/11

dailykem đã viết:
Chú Concogia cũng thức khuya thế
Phải chăng suy nghĩ cho excel, mong ngày mai tốt đẹp hơn => ko ngủ được

cho e hỏi chút:
bây giờ các dữ liệu giống nhau ko cùng 1 cột mà nó nằm rải rác tại các cột thì phải làm sao, các anh chỉ giúp
e gửi file lên ko được

Nằm ở đâu, rải rác các cột đều được, chỉ hạn chế do số màu là 56 thôi ( nếu muốn những dữ liệu giống nhau có chung một màu )
Không có file cũng...chịu, nhìn bài mới nghĩ ra cách giải bạn ạ chứ mơ mơ hồ hồ dễ bị...trật lấc
Thân

dailykem · 23/9/11

mượn luôn bảng của chú Concogia làm file ví dụ
bây giờ cháu lại muốn bôi màu các ô giống nhau
mỗi giữ liệu giống nhau là 1 mầu, khi nào dùng hết 56 màu của chú thì thôi
nếu có dữ liệu giống nhau tiếp (hơn 56 dữ liệu giống nhau) thì lại quay vòng màu (sẽ trùng màu với các ô trên) nhưng biết cách nào hơn đâu chú

File dưới là VD, thực tế dữ liệu giống nhau của cháu gồm 900 dữ liệu giống nhau
có nghĩa là cần 900 màu khác nhau để phân biệt nhưng điều đó là ko thể
mong các chú và anh giúp

Ba Tê · 23/9/11

dailykem đã viết:
mượn luôn bảng của anh Bate làm file ví dụ
bây giờ e lại muốn bôi màu các ô giống nhau
mỗi ô 1 mầu, khi nào dùng hết 56 màu của anh thì thôi
nếu có dữ liệu giống nhau tiếp (hơn 56 dữ liệu giống nhau) thì lại quay vòng màu (sẽ trùng màu với các ô trên) nhưng biết cách nào hơn đâu anh

File dưới là VD thực tế dữ liệu giống nhau của e gồm 900 ô giống nhau
có nghĩa là cần 900 màu khác nhau để phân biệt nhưng điều đó là ko thể
mong các anh giúp

Trời ơi! Cái kiểu này là của concogia, nếu concogia còn thức khuya thì tiếp đi chơ Ba Tê hổng biết "zụ" này.

dailykem · 23/9/11

chú Bate cũng thức khuya nhỉ?
cháu ngồi chờ chú Concogia trả lời giúp cháu hehehehe

Ba Tê · 23/9/11

dailykem đã viết:
chú Bate cũng thức khuya nhỉ?
cháu ngồi chờ chú Concogia trả lời giúp cháu hehehehe

Có Bác Cò lấp ló, nhờ Bác ấy đi, tôi "bị yếu" cái zụ code này rồi.
----------
Ráng lên Bác Cò,"hưu" rồi mà!

concogia · 24/9/11

dailykem đã viết:
mượn luôn bảng của chú Concogia làm file ví dụ
bây giờ cháu lại muốn bôi màu các ô giống nhau
mỗi giữ liệu giống nhau là 1 mầu, khi nào dùng hết 56 màu của chú thì thôi
nếu có dữ liệu giống nhau tiếp (hơn 56 dữ liệu giống nhau) thì lại quay vòng màu (sẽ trùng màu với các ô trên) nhưng biết cách nào hơn đâu chú

File dưới là VD, thực tế dữ liệu giống nhau của cháu gồm 900 dữ liệu giống nhau
có nghĩa là cần 900 màu khác nhau để phân biệt nhưng điều đó là ko thể
mong các chú và anh giúp

Nếu qua 56 màu rồi quay trở lại thì nhìn nó hổng có đẹp, chưa nghĩ cách nào, mà cái file quái quỷ gì mà trùng lắm thế
Tạm thời chơi 56 em đi
Khi nào cấi đầu sáng suốt tý thì....tìm tiếp
Híc

Mã:

Public Sub ToToTo()
    Dim d, Vung, I, J, K, kK, Mg(), M, mM, ToMau, Cll, Cot, Hang
    Set d = CreateObject("scripting.dictionary")
    Set Vung = Range([c4], [c1000].End(xlUp)).Resize(, 4): M = 2
    ReDim Mg(1 To Vung.Rows.Count, 1 To 1)
        For J = 1 To Vung.Columns.Count
            For I = 1 To Vung.Rows.Count
                If Vung(I, J) <> "" Then
                    If Not d.exists(Vung(I, J).Value) Then
                        kK = kK + 1
                        d.Add Vung(I, J).Value, kK
                        Mg(kK, 1) = I & "    " & J
                    Else
                        K = d.Item(Vung(I, J).Value)
                        Mg(K, 1) = Mg(K, 1) & "," & I & "    " & J
                    End If
                End If
            Next I
        Next J
        For I = 1 To UBound(Mg)
            If InStr(1, Mg(I, 1), ",") Then
                ToMau = Split(Mg(I, 1), ",")
                    M = M + 1
                        For mM = LBound(ToMau) To UBound(ToMau)
                            Cot = Val(Left(ToMau(mM), 3)): Hang = Val(Right(ToMau(mM), 3))
                            Vung(Cot, Hang).Interior.ColorIndex = M
                        Next
            End If
        Next I
End Sub

Ba Tê · 24/9/11

concogia đã viết:

Nếu qua 56 màu rồi quay trở lại thì nhìn nó hổng có đẹp, chưa nghĩ cách nào, mà cái file quái quỷ gì mà trùng lắm thế
Tạm thời chơi 56 em đi
Khi nào cấi đầu sáng suốt tý thì....tìm tiếp
Híc

Mã:

Public Sub ToToTo()
    Dim d, Vung, I, J, K, kK, Mg(), M, mM, ToMau, Cll, Cot, Hang
    Set d = CreateObject("scripting.dictionary")
    Set Vung = Range([c4], [c1000].End(xlUp)).Resize(, 4): M = 2
    ReDim Mg(1 To Vung.Rows.Count, 1 To 1)
        For J = 1 To Vung.Columns.Count
            For I = 1 To Vung.Rows.Count
                If Vung(I, J) <> "" Then
                    If Not d.exists(Vung(I, J).Value) Then
                        kK = kK + 1
                        d.Add Vung(I, J).Value, kK
                        Mg(kK, 1) = I & "    " & J
                    Else
                        K = d.Item(Vung(I, J).Value)
                        Mg(K, 1) = Mg(K, 1) & "," & I & "    " & J
                    End If
                End If
            Next I
        Next J
        For I = 1 To UBound(Mg)
            If InStr(1, Mg(I, 1), ",") Then
                ToMau = Split(Mg(I, 1), ",")
                    M = M + 1
                        For mM = LBound(ToMau) To UBound(ToMau)
                            Cot = Val(Left(ToMau(mM), 3)): Hang = Val(Right(ToMau(mM), 3))
                            Vung(Cot, Hang).Interior.ColorIndex = M
                        Next
            End If
        Next I
End Sub

Bác "Gội Rồi Mới Cạo" ơi! Hình như tác giả chỉ yêu cầu bôi màu cả dòng khi dữ liệu cột F giống nhau thôi ạ.
Bác chỉnh lại cho "Gội Không Dám Cạo" học hỏi tí.

concogia · 24/9/11

Ba Tê đã viết:
Bác "Gội Rồi Mới Cạo" ơi! Hình như tác giả chỉ yêu cầu bôi màu cả dòng khi dữ liệu cột F giống nhau thôi ạ.
Bác chỉnh lại cho "Gội Không Dám Cạo" học hỏi tí.

Chời ơi là chời

dailykem
mượn luôn bảng của chú Concogia làm file ví dụ
bây giờ cháu lại muốn bôi màu các ô giống nhau
mỗi giữ liệu giống nhau là 1 mầu, khi nào dùng hết 56 màu của chú thì thôi

Nhiều cột thì sao lại bôi cả hàng được hả Trời ?????????
Híc
Còn Ba Tê muốn "trét" màu kiểu nào thì cứ đưa file lên
Híc

SA_DQ · 24/9/11

/(ể cũng hơi lạ là đã gởi lên ngót nghét 200 bài rồi mà không đưa file lên được

(Bài đã không cần thiết, xin MOD/SMOD ngang qua xóa giúp)

dailykem · 24/9/11

đài tưởng niệm liệt sỹ đẹp quá, vườn cây râm mát quá
chú HYen chụp ở đâu thế ạ?

code của chú concogia chạy rất tốt ạ, nhưng có điều cháu thêm chữ s hoặc chữ "a", .... vào đều báo lỗi ạ??????
cháu cám ơn
cháu nói dữ liệu của cháu có 900 ô giống nhau vì nếu topic dưới ko có ai giúp đỡ thì cháu đành dùng cách của chú: bôi màu các ô giống nhau. rồi làm thủ công ạ
http://www.giaiphapexcel.com/forum/...-lọc-dữ-liệu-từ-các-sheet&p=345041#post345041

Bôi màu các hàng có số giống nhau !

Thành viên hoạt động

File đính kèm

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên hoạt động

Cạo Rồi Khỏi Gội

Thành viên hoạt động

Gội rồi mới Cạo

File đính kèm

Thành viên mới

Thành viên thường trực

Gội rồi mới Cạo

Thành viên thường trực

Gội rồi mới Cạo

Thành viên thường trực

File đính kèm

Cạo Rồi Khỏi Gội

Thành viên thường trực

Cạo Rồi Khỏi Gội

Gội rồi mới Cạo

File đính kèm

Cạo Rồi Khỏi Gội

Gội rồi mới Cạo

/(hông là gì!

Thành viên thường trực

Đếm ngược thời gian