با عرض سلام خدمت دوستان عزیز . مشکلی داشتم که امیدوارم بتونم از کمک شما استفاده کنم. بنده فرمی رو محیط ماکرو اکسل طراحی کردم که در اون بعد از وارد کردن کد یک کالا توسط کاربر ، نام کالا از لیستی فراخوانی میشی ، مشکل اینه که در صورت ورود کدی خارج از لیست مورد نظر فرم با ارور مواجه میشه . برای جلوگیری از ورود کد کالا خارج از لیست چه دستوری رو باید وارد کنم.
این هم کدیه که نوشته شده :
Private Sub CommandButton3_Click()
num = Application.WorksheetFunction.CountA(Range("a:a")) + 1
If TextBox2.Text <> Empty Then
Sheets("sheet1").Cells(num, 2).Value = TextBox2.Value
TextBox3.Value = Sheets("sheet1").Cells(num, 3).Value
Else
MsgBox "کدکالا را مشخص نمایید "
End If
TextBox1.SetFocus
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)