Case 46
Select Case nn
Case 16
Select Case cc
Case 6 '2m,摆布架,无冷却辊
xlbook.Sheets(1).Range("a17") = "出布"
xlbook.Sheets(1).Range("b17") = "N9"
xlbook.Sheets(1).Range("c17") = "1"
Case 7 '2.3m,摆布架,无冷却辊
xlbook.Sheets(1).Range("a17") = "出布"
xlbook.Sheets(1).Range("b17") = "N10"
xlbook.Sheets(1).Range("c17") = "1"
Case 8 '2.6m,摆布架,无冷却辊
xlbook.Sheets(1).Range("a17") = "出布"
xlbook.Sheets(1).Range("b17") = "N11"
xlbook.Sheets(1).Range("c17") = "1"
Case 9 '3.3m,摆布架,无冷却辊
xlbook.Sheets(1).Range("a17") = "出布"
xlbook.Sheets(1).Range("b17") = "N12"
xlbook.Sheets(1).Range("c17") = "1"
End Select
Case 17
。。。。
有N多个这样的语句
Select Case nn
Case 16
Select Case cc
Case 6 '2m,摆布架,无冷却辊
xlbook.Sheets(1).Range("a17") = "出布"
xlbook.Sheets(1).Range("b17") = "N9"
xlbook.Sheets(1).Range("c17") = "1"
Case 7 '2.3m,摆布架,无冷却辊
xlbook.Sheets(1).Range("a17") = "出布"
xlbook.Sheets(1).Range("b17") = "N10"
xlbook.Sheets(1).Range("c17") = "1"
Case 8 '2.6m,摆布架,无冷却辊
xlbook.Sheets(1).Range("a17") = "出布"
xlbook.Sheets(1).Range("b17") = "N11"
xlbook.Sheets(1).Range("c17") = "1"
Case 9 '3.3m,摆布架,无冷却辊
xlbook.Sheets(1).Range("a17") = "出布"
xlbook.Sheets(1).Range("b17") = "N12"
xlbook.Sheets(1).Range("c17") = "1"
End Select
Case 17
。。。。
有N多个这样的语句