mark15jill

回復 1# jackyliu

1. Sub test()
   
2.     For uu = 3 To 工作表1.Range("a3").CurrentRegion.Rows.Count
   
3.         工作表2.Cells(uu, 1) = 工作表1.Cells(uu, 1)
   
4.         工作表2.Cells(uu, 2) = 工作表1.Cells(uu, 2)
   
5.         
   
6.          If (InStr(1, 工作表2.Cells(uu, 1), "ABC") >= 1) Then
   
7.             工作表2.Cells(uu, 4) = "上簽"
   
8.          End If
   
9.         
   
10.          If (InStr(1, 工作表2.Cells(uu, 1), "A") >= 1) And (InStr(1, 工作表2.Cells(uu, 1), "D") >= 1) And (InStr(1, 工作表2.Cells(uu, 1), "E") >= 1) And (InStr(1, 工作表2.Cells(uu, 1), "D") >= 1) Then
    
11.             工作表2.Cells(uu, 4) = "下簽"
    
12.          End If
    
13.          If 工作表2.Cells(uu, 1) <> "" And 工作表2.Cells(uu, 4) = "" Then
    
14.             工作表2.Cells(uu, 4) = "略"
    
15.          End If
    
16.          
    
17.         If 工作表2.Cells(uu, 1) <> "" Then
    
18.             If uu = 3 Then
    
19.                 工作表2.Cells(uu, 3) = DateAdd("n", 90, 工作表2.Cells(uu - 1, 3))
    
20.                 工作表2.Cells(uu, 3).Select
    
21.                 Selection.NumberFormatLocal = "hh:mm"
    
22.             End If
    
23.             If uu > 3 Then
    
24.                 工作表2.Cells(uu, 3) = DateAdd("h", 8, 工作表2.Cells(uu - 1, 3))
    
25.                 作表2.Cells(uu, 3).Select
    
26.                 Selection.NumberFormatLocal = "hh:mm"
    
27.             End If
    
28.         End If
    
29.             If 工作表2.Cells(uu, 1) = "" Then End
    
30.     Next
    
31.    
    
32.    
    
33.     工作表2.Cells(2, 4) = ""
    
34. End Sub

複製代碼