ببخشید من میم را با ضمه خواندم!!!پس اسم شما رو به فارسي چطور مي نويسند؟
ضمنا خیلی ممنون خیلی عالی بود
ببخشید من میم را با ضمه خواندم!!!پس اسم شما رو به فارسي چطور مي نويسند؟
ضمنا خیلی ممنون خیلی عالی بود
Last edited by mefmef; 13-08-2007 at 14:11.
دوست عزیز
javad2625
من برای تکست باکس 4 کد زیر را نوشتم ولی برای تکست باکس 5 چیزی به ذهنم نرسید !!!!!!!
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
ضمنا اگر بخوام موقع فعال شدن فرم تکست باکس 1 فعال بشه چکار باید بکنم ؟
Last edited by mefmef; 14-08-2007 at 22:15.
سلام.خیلی عالی است.آقا جواد دستت درد نکنه
راستش من هنوز وقت نکردم همه مطالبو بخونم.فقط چون خودم می خوام یه جزوه آموزش اکسل داشته باشم تا بعدا بهش مراجعه کنم و اگه کسی ازم سوال کرد بتونم جواب بدم می خواستم از آقا جواد اجازه بگیرم که آیا ایرادی داره من مطالبه شما رو توی جزوم کپی پیست کنم و در اختیار دیگران قرار بدم؟
سلام Mefmef جاننوشته شده توسط mefmef [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد رو خوب و درست نوشتی. معلومه که خوب متوجه شدی.
برای TB5 هم با یه کم تغییر می تونستی همون کد رو استفاده کنی، فقط قسمت اول (کد مربوط به دکمه جهت پایین و دکمه اینتر) رو لازم نداشت. نگاه:
برای این که موقع باز شدن WorkBook تکست باکس 1 فعال بشه باید در رویداد WorkBook_Open کدی رو که میگم بنویسید.کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
اول سمت چپ محیط کدنویسی در قسمت Project روی ThisWorkBook دوبار کلیک کنید، بعد در بالای پنجره کدنویسی، قسمت اشیاء ، شیء WorkBook رو انتخاب و در رویداد WorkBook_Open کد زیر رو بنویسد:
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
Last edited by javad2625; 16-08-2007 at 01:39.
نوشته شده توسط shahi-007 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
از شما ممنونم
کپی از مطالبی که میگذارم اشکال نداره مگر این که خودم بگم کپی نکنید.
Last edited by javad2625; 16-08-2007 at 04:03.
برنامه نویسی ویژوال بیسیک در اکسل
درس پنجم: انتقال داده ها از تکست باکس به کاربرگ
فرض کنید 3 تا TB دارید و میخواید نوشته های داخل اونها رو به خانه های A1 تا C1 از Sheet2 منتقل کنید. چکار می کنید؟
این کار بسیار ساده هست. کافیه یه CommandButton به برنامه اضافه کنیم و دستورات زیر رو در رویداد Click اون بنویسیم:
(تذکر: اعدادی که جلوی Cells نوشته شده اند به ترتیب شماره ردیف و شماره ستون خانه مورد نظر از جدول هستند و به جای اونها می تونه هر شماره دلخواه دیگری هم گذاشته بشه).
خوب!کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
حالا TB ها و CB رو بکشید و کدی رو که گفتم امتحان کنید ببینید درست کار می کنه یا نه؟
اگه درست کار کرد به سوال زیر جواب بدید:
سوال:
5 تکست باکس بکشید (از TB1 تا TB5) و برنامه ای بنویسید که داده های این TB ها رو به خانه های A1 تا A5 از Sheet2 منتقل کنه بعد هم Sheet2 رو فعال کنه (نمایش بده).
راهنمایی: برای نمایش Sheet2 باید از دستور Sheet2.Activate استفاده کنیم.
حالا یه سوال سخت هم می خوام بپرسم ببینم کی می تونه جواب بده:
در رویداد TextBox5_KeyDown برنامه ای بنویسید که اگه کسی کلید Enter رو در TB5 بزنه برنامه قبلی (جواب سوال قبل) اجرا بشه.
راهنمایی: از دستور Select Case استفاده کنید. کد کلید Enter هم عدد 13 هست.
برای امروز دیگه کافیه.
یکی دو جلسه دیگه از کلاس های ویژوال بیسیک مونده که بعداً ادامه میدیم. بعدش هم مثل قبل بر می گردیم به سبک Q&A (سوال و جواب).
بروبکس ازیز
اگه خواصطید طو برنامه های دیگیه آفیص ، از اکسل و اینچیزا استفاده کنید، یا تو برنامه ویبیه خودتون، کافیه که فایل لایبرریه اکسل رو Add کنید تو برنامتون....
اگه دلتون میخواد که تو اوتوکت هم برنامه بنویسید، منو بخبرید، پیلیض..
سلام دوست عزیز javad2625
کدی که گفته بودید را نوشتم درسته ؟
ولی متوجه این سوال نشدم وقتی کلید اینتر را می زنیم چی اجرا بشه ؟کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
یه سوالم دارم اگه بخواهیم بعد از ذخیره شدن اطلاعات مثلا در ردیف a1 تا f1 تمام تکست باکسها خالی شده و کرسر به تکست باکس اول منتقل بشه وبا کلیک بعدی کلید فرمان اطلاعات جدیدی که وارد کردیم در ردیف a2 تا f2 ذخیره بشه واین کار در ردیفهای بعدی هم تکرار بشه چکار باید بکنیم ؟حالا یه سوال سخت هم می خوام بپرسم ببینم کی می تونه جواب بده:
در رویداد TextBox5_KeyDown برنامه ای بنویسید که اگه کسی کلید Enter رو در TB5 بزنه برنامه قبلی (جواب سوال قبل) اجرا بشه.
Last edited by mefmef; 17-08-2007 at 18:03.
بله! كاملاً درست نوشتي.کدی که گفته بودید را نوشتم درسته ؟
وقتي Enter رو مي زنيم، همون كدي كه الآن نوشتي اجرا بشه.ولی متوجه این سوال نشدم وقتی کلید اینتر را می زنیم چی اجرا بشه ؟
براي اين كار، كافيه اون كد رو در رويداد TextBox5_Keydown داخل عبارت Select Case بنويسيم. اينجوري:
(همونطور كه مي بينيد در اين كدي كه نوشتم، فاصله قسمت هاي مختلف كد، نسبت به ابتداي سطر با هم متفاوت هست. كار رو برنامه نويس ها براي زيبايي بيشتر و خواناتر شدن كد مي كنند. شما هم بهتره هميشه همين كار رو بكنيد. )کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
براي پاك كردن محتواي هر تكست باكس (مثلاً TB1):یه سوالم دارم اگه بخواهیم بعد از ذخیره شدن اطلاعات مثلا در ردیف a1 تا f1 تمام تکست باکسها خالی شده و کرسر به تکست باکس اول منتقل بشه وبا کلیک بعدی کلید فرمان اطلاعات جدیدی که وارد کردیم در ردیف a2 تا f2 ذخیره بشه واین کار در ردیفهای بعدی هم تکرار بشه چکار باید بکنیم
براي فعال كردن تكست باكس 1:کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
براي اين كه داده ها در اولين رديف خالي از Sheet2 نوشته بشن،کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
بايد در همون كد قبلي، به جاي نوشتن شماره رديف، از برنامه بخوايم كه شماره اولين رديف خالي رو به دست بياره و استفاده كنه:
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
سلام دوست عزیز javad2625
خیلی ممنون از توضیحاتی که دادید فقط اگر لطف کنید در مورد کد زیر کمی بیشتر توضیح بدید سپاسگزار می شم
i = Sheet2.Range("A" & Rows.Count).End(xlUp).Row + 1
Sheet2.Cells(i, 1).Value = i 'ÔãÇÑå ÑÏíÝ
هم اکنون 2 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 2 مهمان)