Nhập Điều Kiện Cần Lọc Từ Bàn Phím

[zmyr0893]

Em mới nhập môn nên không hiểu về vấn đề này, em có tìm trên mạng mấy ngày rồi mà vẫn bế tắc. Hi vọng anh chị nào giải quyết giúp em vấn đề trong bài toán này với. Em cảm ơn nhiều

View more random threads:

• Lập bảng theo dõi tiến độ sản xuất của xuởng sx gỗ
• Tính tổng theo ngày.
• Xin giúp đỡ về xử lý dự liệu ngẫu nhiên không trùng lặp (Random)
• Giúp đỡ dùm.
• Ngày tháng trong excel quá khó xin tư vấn.
• nhờ anh chị giúp em lọc file
• Tách số từ 1 cụm từ ra các ô mới
• Tạo nhắc nhở bằng form
• nhờ giúp tính số tiền cần đầu tư , biết lãi suất và số năm
• Làm sao để đếm không trùng và có điều kiện mấy anh chị nhỉ?

[maruco]

Cả câu hỏi và file của bạn đều không thể suy ra hỏi gì.

Hỏi rõ hơn đi.

[phuongaudio]

Cả câu hỏi và file của bạn đều không thể suy ra hỏi gì.
Hỏi rõ hơn đi.

Cảm ơn anh
Đây là đoạn code của chương trình

Sub Chon_Vung_Du_Lieu_Theo_I()
Dim i As Integer, So As Integer
So = InputBox("OK / Enter", "For i = 1 to So", "30")
For i = 1 To 96
If (i = So) Then
Range(Cells(30, i - 4), Cells(30, i - 4)).Select
ActiveCell.FormulaR1C1 = "=IF(OR(R[-28]C=1,R[-28]C=9),R[-28]C,"""")"

Range(Cells(30, i - 4), Cells(30, i - 4)).Select
ActiveCell.FormulaR1C1 = "=IF(OR(R[-28]C=1,R[-28]C=9),R[-28]C,"""")"
Range(Cells(30, i - 4), Cells(30, i - 4)).Select
Selection.AutoFill Destination:=Range(Cells(30, i - 4), Cells(30, i)), Type:=xlFillDefault
Range(Cells(30, i - 4), Cells(30, i)).Select
Selection.AutoFill Destination:=Range(Cells(30, i - 4), Cells(56, i)), Type:=xlFillDefault
Range(Cells(30, i - 4), Cells(56, i)).Select
End If
Next i
End Sub


Em muốn hỏi ở cái phần tô màu đỏ, mặc định em để Số = 30 với (số được nhập tại bàn phím, số nhận các giá trị 6,12,18,24,...,), khi đó nó sẽ chọn về ô "Z30".
Tại "Z30" em có công thức lọc ra nhưng số 1 và 9 trong vùng từ "Z2:AD28" xuống vùng "Z30:AD56" là cái công thức tô màu đỏ

Câu hỏi: em muốn cải tiến chương trình lên, với nhưng số cần lọc được nhập từ bàn phím chứ không phải gõ chực tiếp lên công thức như thế
vd: em muốn lọc ra những số khác như: 4 hoặc 5 thì em lại phải thay đổi công thức thành:
ActiveCell.FormulaR1C1 = "=IF(OR(R[-28]C=4,R[-28]C=5),R[-28]C,"""")". Như thế này thì bất tiện quá
Em muốn hỏi có cách nào để nhập các số cần lọc từ bàn phím không?
Hi vọng anh chị nào giúp em vấn đề này với. Cảm ơn các anh chị nhiều

[dao123]

Hix, có anh chị nào giúp em vấn đề này với, không có tài liệu nào về phần này cho em xin để em tự tìm hiểu cũng được
cảm ơn anh chị nhiều!

[nhumotcongio]

Hix, có anh chị nào giúp em vấn đề này với,
cảm ơn anh chị nhiều!

Option ExplicitSub Chon_Vung_Du_Lieu_Theo_J() Dim J As Integer, So As Integer, fNum As Long, lNum As Long      '*' So = InputBox("OK / Enter", "For J = 1 to So", "30") fNum = InputBox("Só Dàu Là:", "GPE.COM", "1")         '*' lNum = InputBox("Só Cuói Là:", "GPE.COM", "9")         '*'For J = 1 To 96    If J = So Then        Range(Cells(30, J - 4), Cells(30, J - 4)).Select' So nhan cac gia tri: 6,12,18,24,30,36,42,48,...96 '' Dieu kien mac dinh o day = 1 va 9 "=IF(OR(R[-28]C=1,R[-28]C=9),R[-28]C,"""")" '' Cau hoi: lieu co cach nao nhap dieu kien tu ngoai vao duoc khong? '        ActiveCell.FormulaR1C1 = "=IF(OR(R[-28]C=" & fNum & "1,R[-28]C=" & lNum & "),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    End IfNext JEnd Sub  

[bichphuong]

<div class="bbcode_container">
<div class="bbcode_description">PHP Code:

</div>
</div>
</div>
cảm ơn anh dất nhiều. e xóa đi số 1 thì bài chạy ok

[phunudep123]

Nghĩ cũng buồn cười, em cũng định làm theo cách này của anh nhưng thiếu đúng cái này: "&"
Thank anh rất nhiều!