[已解决]错在那打开登记窗，改改，谢谢！！！

fangniuji

Private Sub CommandButton1_Click()
    Dim arr2
    Dim myR As Long
    With Sheets("品保日报表")
        myR = .Range("A65536").End(3).Row + 1
        arr2 = Array(TextBox6.Value, TextBox1.Value, TextBox2.Value, TextBox3.Value, ComboBox5.Value, _
        ComboBox1.Value, ComboBox2.Value, ComboBox3.Value, ComboBox4.Value, TextBox7.Value, TextBox8.Value, _
        TextBox9.Value, TextBox10.Value, TextBox11.Value, TextBox12.Value, TextBox13.Value)
        .Cells(myR, 1).Resize(1, UBound(arr2) + 1) = arr2
        .Cells(myR, 1).Resize(1, UBound(arr2) + 1).Borders.LineStyle = 1
        TextBox6 = TextBox6 + 1
        For i = 1 To 5
        Controls("ComboBox" & i) = ""
        Next
        For i = 7 To 13
        Controls("TextBox" & i) = ""
        Next
        ComboBox5.SetFocus
    End With
End Sub
帮我改改，谢谢！！！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-25 13:55

1. Private Sub CommandButton1_Click()
   
2.     Dim arr2
   
3.     Dim myR As Long
   
4.     With Sheets("品保日报表")
   
5.         myR = .Range("A65536").End(3).Row + 1
   
6.         arr2 = Split(TextBox6.Value & "," & TextBox1.Value & "," & TextBox2.Value & "," & TextBox3.Value & "," & ComboBox5.Value & "," & _
   
7.         ComboBox1.Value & "," & ComboBox2.Value & "," & ComboBox3.Value & "," & ComboBox4.Value & "," & _
   
8.           TextBox12.Value & "," & TextBox13.Value, ",")
   
9.         .Cells(myR, 1).Resize(1, UBound(arr2) + 1) = WorksheetFunction.Transpose(arr2)
   
10.         .Cells(myR, 1).Resize(1, UBound(arr2) + 1).Borders.LineStyle = 1
    
11.         TextBox6 = TextBox6 + 1
    
12.         For i = 1 To 5
    
13.         Controls("ComboBox" & i) = ""
    
14.         Next
    
15.         On Error Resume Next
    
16.         For i = 7 To 14
    
17.         Controls("TextBox" & i) = ""
    
18.         Next
    
19.         On Error GoTo 0
    
20.         ComboBox5.SetFocus
    
21.     End With
    
22. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

有几个对象不存在。
去掉就行了。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim arr2
   
3.     Dim myR As Long
   
4.     With Sheets("品保日报表")
   
5.         myR = .Range("A65536").End(3).Row + 1
   
6.         arr2 = Split(TextBox6.Value & "," & TextBox1.Value & "," & TextBox2.Value & "," & TextBox3.Value & "," & ComboBox5.Value & "," & _
   
7.         ComboBox1.Value & "," & ComboBox2.Value & "," & ComboBox3.Value & "," & ComboBox4.Value & "," & _
   
8.           TextBox12.Value & "," & TextBox13.Value, ",")
   
9.         .Cells(myR, 1).Resize(1, UBound(arr2) + 1) = WorksheetFunction.Transpose(arr2)
   
10.         .Cells(myR, 1).Resize(1, UBound(arr2) + 1).Borders.LineStyle = 1
    
11.         TextBox6 = TextBox6 + 1
    
12.         For i = 1 To 5
    
13.         Controls("ComboBox" & i) = ""
    
14.         Next
    
15.         On Error Resume Next
    
16.         For i = 7 To 14
    
17.         Controls("TextBox" & i) = ""
    
18.         Next
    
19.         On Error GoTo 0
    
20.         ComboBox5.SetFocus
    
21.     End With
    
22. End Sub

复制代码

hwc2ycy

你把控件的名字重新序列化比较好。