標題: 語法有誤?? [打印本頁]

---

作者: sillykin    時間: 2017-5-29 16:00     標題: 語法有誤??

Private Sub CommandButton6_Click() '修正
With Sheet4
        .Cells(50, ColNr) = TextBox2
        .Cells(51, ColNr) = TextBox3
        .Cells(52, ColNr) = TextBox4
        .Cells(53, ColNr) = TextBox5
        .Cells(54, ColNr) = TextBox6
        .Cells(55, ColNr) = TextBox7
        
        
        ComboBox1.ListIndex = TextBox4
         
        
        With .ComboBox2
                For i = 0 To .ListCount - 1
                    If Left(Arr(i), 1) = Sheet4.Cells(53, ColNr) Then
                        .ListIndex = i
                        Exit For
                    End If
                Next i
            End With
           
            
            
            With .ComboBox3
                For i = 0 To .ListCount - 1
                    If Left(Arr2(i), 2) = Sheet4.Cells(54, ColNr) Then
                        .ListIndex = i
                        Exit For
                    End If
                Next i
               
            End With
        End With
    End If
End Sub

請高手幫忙看一下,語法上有誤???

---

作者: sillykin    時間: 2017-5-29 19:32

回復 1# sillykin


    巳解決

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)