Kết quả 1 đến 7 của 7

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

  1. #1
    zmyr0893 Guest

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


  2. #2
    maruco Guest
    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.

  3. #3
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi haonlh
    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

  4. #4
    dao123 Guest
    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!

  5. #5
    nhumotcongio Guest

    Hix, có anh chị nào giúp em vấn đề này với,
    cảm ơn anh chị nhiều!
    Mã nguồn PHP:
    Option Explicit Sub 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 If Next J End Sub  

  6. #6
    bichphuong Guest
    Trích dẫn Gửi bởi SA_DQ
    <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

  7. #7
    phunudep123 Guest
    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!

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •