Hellp Conditional Formatting Rules Mannager

[vipkongtu]

Chào anh chị, em có bài toán này bí quá không giải quyết được nhờ anh chị chỉ điểm giúp em với
Bài toán này yêu cầu:
1, Chọn vùng cần Lọc
2, Lọc 2 số nhập từ bàn phím (số nhận giá trị từ 1 đến 9)
3, Nhập đầu số cần tô màu vào từ bàn phím (số nhận giá trị từ 1 đến 9)
4, Tô màu đỏ cho đầu số được chọn (chỉ tô màu cho 1 đầu số duy nhất được chọn)

Em đang bí ở mục 4:
- Nếu em để mặc định vùng là 30 thì kết quả OK nhưng khi em chọn vùng khác thì không được
- Vì mặc định công thức ở đây là Formula1:="=z30=" & m & ""
- Em có thay thế Z30= cells(30,J-4) nhưng không ra
PS: anh chị nào có thể giúp em với
Ví dụ:
chọn vùng 18: range("N2:R28")
số cần lọc: 1,7
số cần tô màu: 7
Cảm ơn anh chị nhiều!


Sub Chon_Vung_Du_Lieu_Theo_J_To_Mau()
Dim J As Integer, So As Integer, So1 As Long, So2 As Long, m As Long
' Vung can loc nhan cac gia tri: 6,12,18,24,30,36,42,48,54,60,66... nhan gia tri bang cu chuong 6
So = InputBox("OK / Enter", "Chon Vung Can LOC", "30") 'mac dinh chon vung 30
So1 = InputBox("Loc so thu nhat:", "GPE.COM_Nhap Vao So Can LOC", "1") 'mac dinh loc ra so 1 va 9
So2 = InputBox("Loc so thu hai:", "GPE.COM_Nhap Vao So Can LOC", "9")
m = InputBox("Nhap Dau So", "GPE_Chon Dau So Can To Mau", "9") 'mac dinh to so 9 mau do
'xoa conditions cu
Cells.Select
Cells.FormatConditions.Delete
For J = 1 To 96
If J = So Then
Range(Cells(30, J - 4), Cells(30, J - 4)).Select
ActiveCell.FormulaR1C1 = "=IF(OR(R[-28]C=" & So1 & ",R[-28]C=" & So2 & "),R[-28]C,"""")" '*'
Range(Cells(30, J - 4), Cells(30, J - 4)).Select
Selection.AutoFill Destination:=Range(Cells(30, J - 4), Cells(30, J)), Type:=xlFillDefault
Range(Cells(30, J - 4), Cells(30, J)).Select
Selection.AutoFill Destination:=Range(Cells(30, J - 4), Cells(56, J)), Type:=xlFillDefault
Range(Cells(30, J - 4), Cells(56, J)).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=z30=" & m & "" ' mau cho dau so mac dinh cho so 9
Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
End If
Next J
End Sub

View more random threads:

• Sửa bảng PivotTable and PivotChart Wizard
• Làm sao tạo được combo box nhu File đính kèm?
• Nhờ mọi người giúp em đếm số đơn thỏa nhiều điều kiện phức tạp
• CÁCH post bài
• Em không biết cái này hỏi thế nào
• Hàm lấy ngày tháng
• Giúp đỡ về vấn đề copy-paste value bằng code (sửa code)
• Hỏi cách để Data Validation thả list hiển thị theo ý mình?
• Comment trong Excel bị lỗi
• GIÚP EM VỚI: Lọc lập danh sách nhân viên theo nhiều điều kiện, nhiều sheet

[songthubon]

Em đang bí ở mục 4:
- Nếu em để mặc định vùng là 30 thì kết quả OK nhưng khi em chọn vùng khác thì không được
- Vì mặc định công thức ở đây là Formula1:="=z30=" & m & ""
- Em có thay thế Z30= cells(30,J-4) nhưng không ra
PS: anh chị nào có thể giúp em với
Ví dụ:

chọn vùng 18: range("N2:R28")
số cần lọc: 1,7
số cần tô màu: 7

Nếu em chọn như thế này thì em lại phải sửa trong code thành như thế này: Formula1:="=N30=" & m & ""
Em phải đổi trong code như thế rất bất tiện,
Anh chị nào giúp em đoạn này với em chân thành cảm ơn!

[banmai]

Em chọn vùng cần lọc là 30 thì với câu lệnh: Range(Cells(30, J - 4), Cells(30, J - 4)).Select
Nó sẽ chọn ô Z30

Với câu lệnh này: ActiveCell.FormulaR1C1 = "=ADDRESS(30," & So - 4 & ",4)"
Tại ô được chọn nó sẽ in ra địa chỉ của ô: Z30

Công thức ở Conditional Formula1:="=z30=" & m & ""
ô Z30 được em thay thế bằng công thức: "=ADDRESS(30," & So - 4 & ",4)" mà sao nó vẫn không được ai giải thích hộ em chỗ này với loạn quá rồi

[dangnguyencctv.com]

Nếu bạn nào cũng muốn lọc dữ liệu và tô màu cho đầu số kiểu này giống mình thì có cách sau:
vào Excel Options (2007) / Formulas / Ở mục Working with formulas
tích đánh dấu vào: R1C1 reference style
Công thức trả về địa chỉ là: RC
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=RC=7"