spacemanforever
Thành viên hoạt động
- Tham gia
- 8/10/08
- Bài viết
- 113
- Được thích
- 71
Chào anh chị GPE!
Mục đích:
--Theo dõi thống kê số lượng mẫuu test hàng ngày.
Thực hiện:
- thời gian so với yêu cầu (1 or 2 or 3 day) trên mục yêu cầu test và giá trị NGÀY - DATE TEST. nếu trùng thì cột TEST hiện kí tự TEST.
nếu không trùng là NO, nếu cột RESULT có kết quả rồi thì hiện YES.
-nếu quá ngày (NGÀY-DATE TEST) >= YÊU CẦU TEST mà cột RESULT chua có kết quả vẫn hiện TEST.
Đây là code nhưng chạy chưa được. Mong mọi người hỗ trợ.
Mục đích:
--Theo dõi thống kê số lượng mẫuu test hàng ngày.
Thực hiện:
- thời gian so với yêu cầu (1 or 2 or 3 day) trên mục yêu cầu test và giá trị NGÀY - DATE TEST. nếu trùng thì cột TEST hiện kí tự TEST.
nếu không trùng là NO, nếu cột RESULT có kết quả rồi thì hiện YES.
-nếu quá ngày (NGÀY-DATE TEST) >= YÊU CẦU TEST mà cột RESULT chua có kết quả vẫn hiện TEST.
Đây là code nhưng chạy chưa được. Mong mọi người hỗ trợ.
PHP:
Sub check()
For i = 1 To 65536
If Range("A" & 5 + i).Value = "" Then
Exit For
Else
d = Range("A" & 5 + i).Value - Range("C3").Value
For j = 1 To 3
a = Range("A" & 5 + i).Offset(0, 8 + 2 * j).Value
Select Case a
Case a = 1
If d >= 1 Then
If Range("A" & 5 + i).Offset(0, 6).Value = "" Then
Range("A" & 5 + i).Offset(0, 3).Value = "Test"
Else
Range("A" & 5 + i).Offset(0, 3).Value = "Yes"
End If
Else
Range(" A" & 5 + i).Offset(0, 3).Value = "No"
End If
Case a = 2
If d >= 2 Then
If Range("A" & 5 + i).Offset(0, 7).Value = "" Then
Range("A" & 5 + i).Offset(0, 4).Value = "Test"
Else
Range("A" & 5 + i).Offset(0, 4).Value = "Yes"
End If
Else
Range(" A" & 5 + i).Offset(0, 4).Value = "No"
End If
Case a = 3
If d >= 3 Then
If Range("A" & 5 + i).Offset(0, 8).Value = "" Then
Range("A" & 5 + i).Offset(0, 5).Value = "Test"
Else
Range("A" & 5 + i).Offset(0, 5).Value = "Yes"
End If
Else
Range(" A" & 5 + i).Offset(0, 5).Value = "No"
End If
End Select
Next j
End If
Next i
End Sub
