سلام دو ستان من میخوام تو حلقه for تمام متغییر های a در دستور شرطی قرار بگیره در صورتی که هیچ کدوم از متغییر ها شرط رو ارضا نکرد دستور Esle اجرا بشه فایل دستوراتمو ضمینه میکنم لطفا راهنمایی کنید.
فایل های پیوست شده
Sub milad()
t = 0
x = 4
y = 17
For a = x To y
If Range("g2") = Cells(a, 14) Then
t = t + 1
End If
Next
If t = y - x + 1 Then
MsgBox "ok"
Else
MsgBox "not ok"
End If
End Sub
کامنت