[已解决]求声明子程序 多条件判断

ckx@gzjindun

Private Sub CommandButton1_Click()
Dim k As Integer
Set nd = Worksheets("新款ND柜")
Set bzjb = Worksheets("标准件表")
k1_nd = nd.Range("A65536").End(xlUp).Row '表1的行数
k2_nd = nd.Cells(4, 2000).End(1).Column '表1的列数
'表2的行数
K1_bzjb = bzjb.Range("A65536").End(xlUp).Row
'表2的列数
k2_bzjb = bzjb.Cells(2, 2000).End(1).Column
nd.Range("A" & k1_nd + 1) = TextBox1.Value
nd.Range("B" & k1_nd + 1) = TextBox2.Value
nd.Range("C" & k1_nd + 1) = TextBox3.Value
nd.Range("D" & k1_nd + 1) = TextBox4.Value
nd.Range("E" & k1_nd + 1) = TextBox5.Value
If TextBox2.Value = "" And TextBox3.Value = "" Then
   ElseIf TextBox3.Value = "kd" Then
    kk1 = TextBox2.Value
    kk2 = TextBox3.Value
        For n = 2 To K1_bzjb
            a1 = bzjb.Cells(n, 1)
            a2 = bzjb.Cells(n, 2)
            a2 = Str(a2)
            a2 = LTrim(a2)
                If a1 = kk2 And a2 = kk1 Then
                GoTo 跳出
                End If
        Next n
跳出:
        For n1 = 7 To k2_nd Step 2
            If nd.Cells(1, n1) <> "" Then
            b1 = nd.Cells(1, n1)
            End If
            a1 = nd.Cells(4, n1) + b1
             For n2 = 3 To k2_bzjb
            a2 = bzjb.Cells(n, n2)
                If a1 = a2 Then
                a3 = bzjb.Cells(n + 1, n2)
                nd.Cells(k1_nd + 1, n1 + 1) = TextBox5.Value * a3
                nd.Cells(k1_nd + 1, n1 + 1).Interior.ColorIndex = 4
                'ElseIf nd.Cells(k1_nd, n2).Value <> "" Then Interior.ColorIndex = 4
                GoTo tu
                End If
            Next n2
tu:
        Next n1
   Else
End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox1.SetFocus
    End Sub
上面的代码只是首要判断是不是“KD”值才运行下面的代码，但我相要有其它条件也可以运行代码的方法，


     求改代码   

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-12 15:17

1. Option Explicit
   
2. 
   
3. Dim k As Integer
   
4. Dim nd As Worksheet
   
5. Dim bzjb As Worksheet
   
6. Dim k1_nd As Long
   
7. Dim k2_nd As Long
   
8. Dim K1_bzjb As Long
   
9. Dim k2_bzjb As Long
   
10. 
    
11. 
    
12. Private Sub CommandButton1_Click()
    
13.     'Dim k As Integer
    
14.     Set nd = Worksheets("新款ND柜")
    
15.     Set bzjb = Worksheets("标准件表")
    
16.     k1_nd = nd.Range("A65536").End(xlUp).Row '表1的行数
    
17.     k2_nd = nd.Cells(4, 2000).End(1).Column '表1的列数
    
18.     '表2的行数
    
19.     K1_bzjb = bzjb.Range("A65536").End(xlUp).Row
    
20.     '表2的列数
    
21.     k2_bzjb = bzjb.Cells(2, 2000).End(1).Column
    
22.     nd.Range("A" & k1_nd + 1) = TextBox1.Value
    
23.     nd.Range("B" & k1_nd + 1) = TextBox2.Value
    
24.     nd.Range("C" & k1_nd + 1) = textbox3.Value
    
25.     nd.Range("D" & k1_nd + 1) = TextBox4.Value
    
26.     nd.Range("E" & k1_nd + 1) = TextBox5.Value
    
27.     If TextBox2.Value = "" And textbox3.Value = "" Then Exit Sub
    
28.    
    
29.     If textbox3.Value = "kd" Then
    
30.         子过程
    
31.     Else
    
32.         If textbox3.Value = "kb" Then 子过程
    
33.     End If
    
34.    
    
35.     TextBox1.Value = ""
    
36.     TextBox2.Value = ""
    
37.     textbox3.Value = ""
    
38.     TextBox4.Value = ""
    
39.     TextBox5.Value = ""
    
40.     TextBox1.SetFocus
    
41. End Sub
    
42. 
    
43. Sub 子过程()
    
44.     kk1 = TextBox2.Value
    
45.     kk2 = textbox3.Value
    
46.     For n = 2 To K1_bzjb
    
47.         a1 = bzjb.Cells(n, 1)
    
48.         a2 = bzjb.Cells(n, 2)
    
49.         a2 = Str(a2)
    
50.         a2 = LTrim(a2)
    
51.         If a1 = kk2 And a2 = kk1 Then
    
52.             GoTo 跳出
    
53.         End If
    
54.     Next n
    
55. 跳出:
    
56.     For n1 = 7 To k2_nd Step 2
    
57.         If nd.Cells(1, n1) <> "" Then
    
58.             b1 = nd.Cells(1, n1)
    
59.         End If
    
60.         a1 = nd.Cells(4, n1) + b1
    
61.         For n2 = 3 To k2_bzjb
    
62.             a2 = bzjb.Cells(n, n2)
    
63.             If a1 = a2 Then
    
64.                 a3 = bzjb.Cells(n + 1, n2)
    
65.                 nd.Cells(k1_nd + 1, n1 + 1) = TextBox5.Value * a3
    
66.                 nd.Cells(k1_nd + 1, n1 + 1).Interior.ColorIndex = 4
    
67.                 'ElseIf nd.Cells(k1_nd, n2).Value <> "" Then Interior.ColorIndex = 4
    
68.                 GoTo tu
    
69.             End If
    
70.         Next n2
    
71. tu:
    
72.     Next n1
    
73. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

你把判断后要执行的语句单独拿出来写个过程，主程序里就不停的用IF来判断是否调用过程。

hwc2ycy

1. Option Explicit
   
2. 
   
3. Dim k As Integer
   
4. Dim nd As Worksheet
   
5. Dim bzjb As Worksheet
   
6. Dim k1_nd As Long
   
7. Dim k2_nd As Long
   
8. Dim K1_bzjb As Long
   
9. Dim k2_bzjb As Long
   
10. 
    
11. 
    
12. Private Sub CommandButton1_Click()
    
13.     'Dim k As Integer
    
14.     Set nd = Worksheets("新款ND柜")
    
15.     Set bzjb = Worksheets("标准件表")
    
16.     k1_nd = nd.Range("A65536").End(xlUp).Row '表1的行数
    
17.     k2_nd = nd.Cells(4, 2000).End(1).Column '表1的列数
    
18.     '表2的行数
    
19.     K1_bzjb = bzjb.Range("A65536").End(xlUp).Row
    
20.     '表2的列数
    
21.     k2_bzjb = bzjb.Cells(2, 2000).End(1).Column
    
22.     nd.Range("A" & k1_nd + 1) = TextBox1.Value
    
23.     nd.Range("B" & k1_nd + 1) = TextBox2.Value
    
24.     nd.Range("C" & k1_nd + 1) = textbox3.Value
    
25.     nd.Range("D" & k1_nd + 1) = TextBox4.Value
    
26.     nd.Range("E" & k1_nd + 1) = TextBox5.Value
    
27.     If TextBox2.Value = "" And textbox3.Value = "" Then Exit Sub
    
28.    
    
29.     If textbox3.Value = "kd" Then
    
30.         子过程
    
31.     Else
    
32.         If textbox3.Value = "kb" Then 子过程
    
33.     End If
    
34.    
    
35.     TextBox1.Value = ""
    
36.     TextBox2.Value = ""
    
37.     textbox3.Value = ""
    
38.     TextBox4.Value = ""
    
39.     TextBox5.Value = ""
    
40.     TextBox1.SetFocus
    
41. End Sub
    
42. 
    
43. Sub 子过程()
    
44.     kk1 = TextBox2.Value
    
45.     kk2 = textbox3.Value
    
46.     For n = 2 To K1_bzjb
    
47.         a1 = bzjb.Cells(n, 1)
    
48.         a2 = bzjb.Cells(n, 2)
    
49.         a2 = Str(a2)
    
50.         a2 = LTrim(a2)
    
51.         If a1 = kk2 And a2 = kk1 Then
    
52.             GoTo 跳出
    
53.         End If
    
54.     Next n
    
55. 跳出:
    
56.     For n1 = 7 To k2_nd Step 2
    
57.         If nd.Cells(1, n1) <> "" Then
    
58.             b1 = nd.Cells(1, n1)
    
59.         End If
    
60.         a1 = nd.Cells(4, n1) + b1
    
61.         For n2 = 3 To k2_bzjb
    
62.             a2 = bzjb.Cells(n, n2)
    
63.             If a1 = a2 Then
    
64.                 a3 = bzjb.Cells(n + 1, n2)
    
65.                 nd.Cells(k1_nd + 1, n1 + 1) = TextBox5.Value * a3
    
66.                 nd.Cells(k1_nd + 1, n1 + 1).Interior.ColorIndex = 4
    
67.                 'ElseIf nd.Cells(k1_nd, n2).Value <> "" Then Interior.ColorIndex = 4
    
68.                 GoTo tu
    
69.             End If
    
70.         Next n2
    
71. tu:
    
72.     Next n1
    
73. End Sub

复制代码

hwc2ycy

变量最好是强制声明。
如果不想写代码，又不怕逻辑乱了，还可以用GOTO来实现。

ckx@gzjindun

多谢老师的指点，非常感谢！！！