با سلام
میشه دوستان راهنمائی کننئ که مشکل کد زیر چیه که ارور overflow میده:
میشه دوستان راهنمائی کننئ که مشکل کد زیر چیه که ارور 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
کامنت