با سلام
میشه دوستان راهنمائی کننئ که مشکل کد زیر چیه که ارور overflow میده:
کد PHP:
Private Sub CommandButton16_Click()
ListBox4.Clear
TextBox28.SetFocus
Dim a As Range
For Each a In Sheet4.Range("Q2:Q50000")
If a.Value <> "" And a.Value = TextBox28.Text Then
ListBox4.AddItem a.Offset(0, -15).Value
For i = 1 To 2
ListBox4.List(ListBox4.ListCount - 1, i) = a.Offset(0, i - 4).Value
Next
End If
Next
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)