Trang 6/6 đầuđầu ... 2 3 4 5 6
Hiển thị kết quả tìm kiếm từ 51 đến 56 trên tổng số: 56

Ðề tài: Giúp code lọc nhanh Siêu tốc độ

  1. Không ai cho hơn 1000 dòng lên listbox đâu --> vì nó không thực dụng, trên 1000 dòng kéo scroll để xem cũng chết mệt rui,
    bạn nên nghĩ bài toán thực tế đi, tránh suy nghĩ quá tự làm khó mình ...

  2. Trích Nguyên văn bởi winvista View Post
    Không ai cho hơn 1000 dòng lên listbox đâu --> vì nó không thực dụng, trên 1000 dòng kéo scroll để xem cũng chết mệt rui,
    bạn nên nghĩ bài toán thực tế đi, tránh suy nghĩ quá tự làm khó mình ...
    tại còn vấn đề khác nên phải cho nó trả về mảng đầy đủ mới được bác ạ. đã chơi thì chơi cho nó max luôn file 2003 chứ bác, vậy mới tê, chứ dữ liệu ít thì đơn giản quá, không nâng cao tay nghề về thuật toán được.
    làm excel thì chỉ có trích lọc là mạnh nên khai thác mọi thuật toán về nó chứ bác.
    ----------------------------------
    có 1 tên trong nghề với em (Sharava36) đang coi bài ^^

  3. Trích Nguyên văn bởi langtuchungtinh360 View Post
    tại còn vấn đề khác nên phải cho nó trả về mảng đầy đủ mới được bác ạ. đã chơi thì chơi cho nó max luôn file 2003 chứ bác, vậy mới tê, chứ dữ liệu ít thì đơn giản quá, không nâng cao tay nghề về thuật toán được.
    làm excel thì chỉ có trích lọc là mạnh nên khai thác mọi thuật toán về nó chứ bác.
    ----------------------------------
    có 1 tên trong nghề với em (Sharava36) đang coi bài ^^
    Em coi để học hỏi thôi. Chứ có giúp gì cho anh được đâu.

  4. Trích Nguyên văn bởi befaint View Post
    @minhtuan55,

    Ông tướng này viết gần 200 bài rồi còn ném code ra bài viết. Cho vào thẻ CODE hoặc PHP.
    Cách làm ra làm sao em đâu có biết. em chỉ biết Copy code rồi paste là ok. Mong ANH CHỈ GIÁO

  5. Trích Nguyên văn bởi minhtuan55 View Post
    Cách làm ra làm sao em đâu có biết. em chỉ biết Copy code rồi paste là ok. Mong ANH CHỈ GIÁO
    Code:
    Option ExplicitSub LocKhoanNgayVaCa()
     Dim Arr()
     Dim Rws As Long, J As Long, Tmr As Double, Col As Byte, W As Long
     Dim fDat As Date, lDat As Date
     Dim NV As String
     
     Tmr = Timer()
     Rws = [b4].CurrentRegion.Rows.Count
     Arr() = [A4].Resize(Rws, 5).Value
     fDat = [i3].Value:     lDat = [i4].Value
     NV = [i5].Value
     ReDim dArr(1 To UBound(Arr()), 1 To 5)
     [n4].CurrentRegion.Offset(2).ClearContents
     For J = 1 To UBound(Arr())
        If (Arr(J, 1) >= fDat And Arr(J, 1) <= lDat) And Arr(J, 5) = NV Then
            W = W + 1
            For Col = 1 To 5
                dArr(W, Col) = Arr(J, Col)
            Next Col
        End If
     Next J
     If W Then
        [m4].Resize(W, 5).Value = dArr()
        [i1].Value = Timer() - Tmr
     End If
    End Sub

  6. Trích Nguyên văn bởi minhtuan55 View Post
    Cách làm ra làm sao em đâu có biết. em chỉ biết Copy code rồi paste là ok. Mong ANH CHỈ GIÁO
    Tôi chỉ góp ý về cách trình bày bài viết của bạn thôi (nội dung chủ đề tôi không tham gia).

Trang 6/6 đầuđầu ... 2 3 4 5 6

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •