返回列表下一主題上一主題發帖

語法有誤??

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

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

錯誤1060528.JPG (41.22 KB)