Cần giúp Tô màu ô ở File 1 bằng với giá trị ô ở File 2 (Tần suất xuất hiện bằng nhau) (1 người xem)

[hung2412]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động tô màu vàng cho các ô dọc theo cột B ở File 1.xls có giá trị bằng với giá trị của ô dọc theo cột B ở File 2.xls và ngược lại, với điều kiện giá trị bằng nhau đó ở cả 2 File có tần suất xuất hiện bằng nhau.
Ví dụ:
- Tô màu vàng cho ô B3 ở File 1.xls và ô B4 ở File 2.xls vì:
+ 2 ô đó có giá trị bằng nhau là 75.443
+ Số 75.443 đó có tần suất xuất hiện 1 lần ở File 1.xls và xuất hiện 1 lần ở File 2.xls (Tần suất xuất hiện bằng nhau là 1)
- Tô màu vàng cho ô B5, B8 ở File 1.xls và ô B6, B7 ở File 2.xls vì:
+ Các ô đó có giá trị bằng nhau là 664.125
+ Số 664.125 đó có tần suất xuất hiện 2 lần ở File 1.xls và xuất hiện 2 lần ở File 2.xls (Tần suất xuất hiện bằng nhau là 2)
- Không tô màu vàng cho ô B15, B18, B19 ở File 1.xls và ô B14, B15 ở File 2.xls vì:
+ Mặc dù các ô đó có giá trị bằng nhau là 157.862
+ Nhưng số 157.862 đó có tần suất xuất hiện 3 lần ở File 1.xls và xuất hiện 2 lần ở File 2.xls (Tần suất xuất hiện không bằng nhau)
- Không tô màu vàng cho ô B22, B23 ở File 1.xls vì:
+ Mặc dù các ô đó có giá trị bằng nhau là 7.974.243
+ Nhưng số 7.974.243 đó có tần suất xuất hiện 2 lần ở File 1.xls và không xuất hiện ở File 2.xls (Tần suất xuất hiện không bằng nhau)
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 02 File đính kèm. Tôi xài Excel 2003.

 

[hung2412]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động tô màu vàng cho các ô dọc theo cột B ở File 1.xls có giá trị bằng với giá trị của ô dọc theo cột B ở File 2.xls và ngược lại, với điều kiện giá trị bằng nhau đó ở cả 2 File có tần suất xuất hiện bằng nhau.
Ví dụ:
- Tô màu vàng cho ô B3 ở File 1.xls và ô B4 ở File 2.xls vì:
+ 2 ô đó có giá trị bằng nhau là 75.443
+ Số 75.443 đó có tần suất xuất hiện 1 lần ở File 1.xls và xuất hiện 1 lần ở File 2.xls (Tần suất xuất hiện bằng nhau là 1)
- Tô màu vàng cho ô B5, B8 ở File 1.xls và ô B6, B7 ở File 2.xls vì:
+ Các ô đó có giá trị bằng nhau là 664.125
+ Số 664.125 đó có tần suất xuất hiện 2 lần ở File 1.xls và xuất hiện 2 lần ở File 2.xls (Tần suất xuất hiện bằng nhau là 2)
- Không tô màu vàng cho ô B15, B18, B19 ở File 1.xls và ô B14, B15 ở File 2.xls vì:
+ Mặc dù các ô đó có giá trị bằng nhau là 157.862
+ Nhưng số 157.862 đó có tần suất xuất hiện 3 lần ở File 1.xls và xuất hiện 2 lần ở File 2.xls (Tần suất xuất hiện không bằng nhau)
- Không tô màu vàng cho ô B22, B23 ở File 1.xls vì:
+ Mặc dù các ô đó có giá trị bằng nhau là 7.974.243
+ Nhưng số 7.974.243 đó có tần suất xuất hiện 2 lần ở File 1.xls và không xuất hiện ở File 2.xls (Tần suất xuất hiện không bằng nhau)
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 02 File đính kèm. Tôi xài Excel 2003.

Tôi vừa nghĩ ra Code này thấy xài tạm ổn:

Sub Text3()
Dim i As Long
Dim J As Long
Workbooks("1.xls").Activate  
For J = 1 To Workbooks("2.xls").Sheets(1).[B65536].End(xlUp).Row      
   For i = 1 To [B65536].End(xlUp).Row         
      If Cells(i, 2) <> "" Then              
         If Cells(i, 2) = Workbooks("2.xls").Sheets(1).Cells(J, 2) Then                
             If WorksheetFunction.CountIf(Range([B1], [B65000].End(xlUp)), Range("B" & i)) =
WorksheetFunction.CountIf(Range(Workbooks("2.xls").Sheets(1).[B1], Workbooks("2.xls").Sheets(1).[B65000].End(xlUp)), Workbooks("2.xls").Sheets(1).Range("B" & J)) Then                    
                 Cells(i, 2).Interior.ColorIndex = 6                    
                 Workbooks("2.xls").Sheets(1).Cells(J, 2).Interior.ColorIndex = 6                
             End If              
         End If         
      End If       
    Next   
Next
End Sub

Không biết có vị nào có cao kiến khác không?

 

[hung2412]

Tôi vừa nghĩ ra Code này thấy xài tạm ổn:

Sub Text3()
Dim i As Long
Dim J As Long
Workbooks("1.xls").Activate  
For J = 1 To Workbooks("2.xls").Sheets(1).[B65536].End(xlUp).Row      
   For i = 1 To [B65536].End(xlUp).Row         
      If Cells(i, 2) <> "" Then              
         If Cells(i, 2) = Workbooks("2.xls").Sheets(1).Cells(J, 2) Then                
             If WorksheetFunction.CountIf(Range([B1], [B65000].End(xlUp)), Range("B" & i)) =
WorksheetFunction.CountIf(Range(Workbooks("2.xls").Sheets(1).[B1], Workbooks("2.xls").Sheets(1).[B65000].End(xlUp)), Workbooks("2.xls").Sheets(1).Range("B" & J)) Then                    
                 Cells(i, 2).Interior.ColorIndex = 6                    
                 Workbooks("2.xls").Sheets(1).Cells(J, 2).Interior.ColorIndex = 6                
             End If              
         End If         
      End If       
    Next   
Next
End Sub

Không biết có vị nào có cao kiến khác không?

Không có vị nào có cao kiến gì nhỉ?

 

[jony33]

Mohsin

Tô màu vàng cho ô B3 ở File 1.xls và ô B4 ở File 2.xls vì:
+ 2 ô đó có giá trị bằng nhau là 75.443
+ Số 75.443 đó có tần suất xuất hiện 1 lần ở File 1.xls và xuất hiện 1 lần ở File 2.xls (Tần suất xuất hiện bằng nhau là 1)
- Tô màu vàng cho ô B5, B8 ở File 1.xls và ô B6, B7 ở File 2.xls vì:
+ Các ô đó có giá trị bằng nhau là 664.125