دو تا سوال

[Amin_D]

سلام
دو تا سوال در خصوص مبحث ویژوال بیسیک داشتم
1-کد On Error Resume Next در اکثر کدها هست چه مفهومی داره؟
2 فرمی که کمبوباکس داره چه جوری میشه آیتم های اون رو به کمبوباکس معرفی کرد? اگر بخواهیم اطلاعات یک تکس باکس رو به شیت خاصی بفرستین چه کدی باید نوشت؟
http://uplod.ir/lbjvzjybbhfy/Book11.xlsm.htm

[shahabsoltani]

RE: دو تا سوال

دوست من سلام(در مورد بخش دوم سوال دوم)
اول دو تا متغیر تعریف کن
سپس به متغیرهات مقدار بده
مثلا
private sub cmdsave_click()
dim i
dim n
n=application.worksheetfunction.counta(sheet1.rang e("a1:a100"))
for 1 = 0 to 2
sheet2.range("a1").offset(n,i).combobox1.text
next
end sub
موفق باشی

[milad.moafi]

RE: دو تا سوال

سلام
جواب سوال 1:
ترجمه اش کنی معلومه دیگه، وقتی به برنامه میگی وقتی با خطا مواجه شدی ازش عبور کن و برو خط بعدی، تکنیک کنترل خطا هست در واقع
جواب سوال 2:
بخش اول:
راستش با Active X زیاد کار نکردم ولی با Content Controls بلدم که با تابع OFFSET میتونی به صورت پویا آیتم هاش رو توش درج کنی، آیتم ها رو هم میتونی تو یک شیت جداگونه به عنوان دیتابیس نگه داری.
واسه اینکار باید موارد زیر رو بلد باشی:
تابع OFFSET
تابع COUNT
Content Controls
بخش دوم: مثلاً:
Sheet2.Cells(2, "B") = textbox1.text

[shahabsoltani]

RE: دو تا سوال

اینم نمونه فایلhttp://uplod.ir/9moblcghdbc9/Book11.xlsm.htm

[MEYTI]

RE: دو تا سوال

دوست عزیز سوال اولت همان طور که آقای معافی فرمودند برای عبور از خطاهای احتمالی
در مورد سوال دوم کمبو باکس و ثبت اطلاعات هم به نمونه پیوست توجه فرمایید