Lưu nhập sang Sheet khác , số ngoài định mức VBA

[luongthitunhi]

Em cần làm 1 file VBA kiểu khi mình nhập vào cột " Giá trị đo PH" Đó là cột từ E6 : E19 Mà vượt định mức trong khoảng của cột Max Và Min đó là từ 4- 4.6 Thì số nhập sai đó sẽ được lưu vào 1 Sheet khác theo thời gian , mọi người giúp em với ạ

 

[phulien1902]

Em cần làm 1 file VBA kiểu khi mình nhập vào cột " Giá trị đo PH" Đó là cột từ E6 : E19 Mà vượt định mức trong khoảng của cột Max Và Min đó là từ 4- 4.6 Thì số nhập sai đó sẽ được lưu vào 1 Sheet khác theo thời gian , mọi người giúp em với ạ

Bạn thử:

Sub Maybe()
    Dim a(), b(), i As Long, k As Long, dk As Long, LR As Long
    With Sheet1
        a = .Range("A6", .Range("A65000").End(3)).Resize(, 7).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 2)
    With Sheet1
        For i = 1 To LR
            If a(i, 5) < 4 Or a(i, 5) > 4.6 Then
                k = k + 1
                b(k, 1) = a(i, 1)
                b(k, 2) = a(i, 5)
            End If
        Next i
        If k Then
            With Sheet2
                .Range("A2:B1000").ClearContents
                .Range("A2").Resize(k, 2) = b
                .Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).NumberFormat = "hh:mm"
            End With
        End If
    End With
End Sub

 

[SA_DQ]

Em cần làm 1 file VBA kiểu khi mình nhập vào cột " Giá trị đo PH" Đó là cột từ E6 : E19 Mà vượt định mức trong khoảng của cột Max Và Min đó là từ 4- 4.6 (1) Thì số nhập sai đó (2) sẽ được lưu vào 1 Sheet khác theo thời gian , mọi người giúp em với ạ

(1) Lưu vô trang khác thì hiểu rồi; Nhưng có lưu đồng thời vô trang đang nhập hay không?
(2) Cấu trúc của Sheet khác này bạn không dưa ra, vậy có gồm bao nhiêu cột (bớt cột nào sau đây: [Thời gian], [Mã DD tạo bồn], [Lốt No], [Lượng dd], [Giá trị đo pH]) (?)