Level = Worksheets("Sheet1").Range("A2").Value
Title = Worksheets("Sheet1").Range("B2").Value
Describe = Worksheets("Sheet1").Range("C2").Value
If (Level = 1) Then
WorkNumber1 = Worksheets("Sheet1").Range("D2").Value
ElseIf (Level = 2) Then
WorkNumber2 = Worksheets("Sheet1").Range("D2").Value
ElseIf (Level = 3) Then
WorkNumber3 = Worksheets("Sheet1").Range("D2").Value
End If
Next
End Sub
上一页 [1] [2]