Do While |
Do
CurrentG = Range( "G" & GetLine).Value
G_Cnt = G_Cnt + 1
GetLine = GetLine + 1
Loop While Range( "G" & GetLine).Value = CurrentG
|
|
Do While GetLine <= Lmax
Windows(A_name).Activate
Sheets( "純新規" ). Select
担当 = CurrentG
Call データ書出(2, 担当, G_Cnt)
G_Cnt = 0
Loop
|
|
For Next |
For I = 2 To Lmax step +/-増分
Next I
|
|
Case 値チェック |
Select Case 種類
Case "A" , "B" , "C"
Case Else
End Select
|
|
Case 大小比較 |
Select Case 工事開始日
Case Is > WB期間開始
Case Is = WB期間開始
Case Else
End Select
|
|
Case 範囲比較 |
Select Case 値
Case 80 To 100
Case 70 To 79
Case 60 To 69
Case 0 To 59
Case Else
MsgBox "エラー"
End Select
|
|