
کار با Worksheet در ماکرونویسی اکسل
به نام خداوند بخشنده و مهربان، در این پست آموزشی قصد داریم به چندین متد و دستور پرکاربرد ماکرونویسی در خصوص کار با صفحات اکسل (Worksheets) خدمت شما عزیزان و علاقه مندان به یادگیری برنامه نویسی در اکسل، عرض کنیم.
نحوه ایجاد Worksheet جدید توسط ماکرونویسی در اکسل
به منظور اضافه کردن Worksheet جدید در اکسل می بایست از متد Add استفاده کنیم. این متد ساختار ساده ای دارد که در ادامه به توضیحات هریک از آرگومان های آن خواهیم پرداخت:

نحوه ایجاد Worksheet جدید توسط ماکرونویسی در اکسل
در ساختار فوق (Syntax) آرگومان های Before و After اشاره به جایگاه قرار گرفتن Worksheet جدید دارند درحالیکه آرگومان Count اشاره به تعداد و آرگومان Type اشاره به نوع Worksheet جدید دارد که بصورت عادی و پیشفرض مقدار اولیه آن برابر با xlWorksheet و یا به عبارتی همان Worksheet عادی است.
به ماکروی زیر دقت کنید:

کار با Worksheet در ماکرونویسی اکسل
در ماکروی فوق ما Worksheet جدید را بعد از (after) اولین Sheet موجود در Workbook ایجاد نمودیم. حال برای آدرس دهی بهتر میتوانیم جایگاه Worksheet جدید را براساس اسامی صفحات مشخص کنیم. به ماکروی زیر دقت کنید:

کار با Worksheet در ماکرونویسی اکسل
در ماکروی فوق ما جایگاه Worksheet جدید را قبل از Worksheet با عنوان Sheet2 قرار دادیم.
حال اگر قصد داشته باشیم Worksheet جدید را بعد از آخرین Worksheet موجود در Workbook قرار دهیم، می بایست از ماکروی زیر استفاده نماییم:

کار با Worksheet در ماکرونویسی اکسل
در ماکروی فوق، Worksheets.Count یعنی تعداد Worksheets موجود در Workbook فعال، فرض کنید شما در Workbook فعال تعداد ۱۰ صفحه دارید لذا خروجی Worksheets.Count عدد ۱۰ و به عبارتی جایگاه Worksheet جدید بعد از جایگاه دهمین Worksheet خواهد بود.
تغییر نام Worksheet توسط ماکرونویسی در اکسل
اگر قصد داشته باشیم عنوان یک Worksheet را تغییر دهیم، ابتدا می بایست به جایگاه و یا عنوان آن Worksheet اشاره داشته باشیم و سپس با استفاده از Name property اقدام به تغییر نام آن کنیم. به ماکروی زیر دقت کنید:

کار با Worksheet در ماکرونویسی اکسل
در ماکروی فوق عنوان Sheet1 به عبارت Excellearn تغییر یافت. دقت کنید اسامی در ماکرونویسی می بایست فی ما بین ” ” قرار گیرند. در ادامه دستورات ساده ای دیگری مرتبط با Worksheet در ماکرونویسی وجود دارد که میتوانید آن را در پست “آموزش دستورات Sheets در ماکرونویسی” مطالعه کنید.
درصورت وجود هرگونه انتقاد و پیشنهاد پیرامون پست آموزشی “کار با Worksheet در ماکرونویسی اکسل” آن را در قسمت نظرات برای ما ارسال نمایید تا در اسرع وقت نسبت به پاسخگویی آن اقدام گردد.
سلام دوست عزیز وقت به خیر ممنون از سایت خوبتون..
ببخشید من میخوام از طریق وی بی ای اطلاعات داخل یک جدول (مثال شیت ۲ را کپی کنم داخل یک محدوده در شیت ۱) به طوری که برای هر کد پرسنلی امکان این باشه که هر چند تعداد اطلاعات داشته باشه به ترتیب پشت سر هم مثلا۱.۲.۳.۴… به پایین کپی بشه…میخوام محدودیت ویلوکاپ حذف بشه..چون به اولین کد پرسنلی که رسید اونو میخونه دیگه چیز در ادامه نمیتونه پیدا کنه…ممنون میشم جواب بدید..یا آموزشی در ای ن باره دارین برام بفرستین..هر چه قدر هزینه هم باشه روی چشم.
سلام و وقت بخیر
متاسفانه همچین کدی درحال حاضر در اختیار ندارم.
پیشنهاد میکنم در گروه پرسش و پاسخ تلگرامی ما مطرح کنید، هستند عزیزانی که راهنمایی تان کنند.
به آی دی زیر جهت دریافت لینک گروه های پرسش و پاسخ پیام بدین:
@El1_Administrator
کانال تلگرامی ما:
@vba_Excel
و یه سوال دیگه اینکه چطور میتونم یه دکمه در یک صحفه بزارم و به ان کد داده بشه که به هر شیتی که خودمان در نظر دارم بریم و اخرین ردیف پر نشان بده…با تشکر
سلام
پیرامون پیدا کردن آخرین سطر و ستون پست زیر مناسب است :
http://blog.excellearn.ir/%D9%BE%DB%8C%D8%AF%D8%A7-%DA%A9%D8%B1%D8%AF%D9%86-%D8%A2%D8%AE%D8%B1%DB%8C%D9%86-%D8%B1%D8%AF%DB%8C%D9%81%D8%B3%D8%AA%D9%88%D9%86-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D9%84/
ماکروی زیر نیز جوابگو است:
Sub excellearn()
Worksheets(“Sheet2”).Activate
Dim LastRow As Integer
LastRow = Worksheets(“Sheet2”).Range(“A” & Rows.Count).End(xlUp).Row
Sheets(“Sheet2”).Range(“A” & LastRow).Select
End Sub
ممنون از لطف و صبوری شما…
لطفا این هم جواب بفرمایید
سلام دوست عزیز وقت به خیر ممنون از سایت خوبتون..
ببخشید من میخوام از طریق وی بی ای اطلاعات داخل یک جدول (مثال شیت ۲ را کپی کنم داخل یک محدوده در شیت ۱) به طوری که برای هر کد پرسنلی امکان این باشه که هر چند تعداد اطلاعات داشته باشه به ترتیب پشت سر هم مثلا۱.۲.۳.۴… به پایین کپی بشه…میخوام محدودیت ویلوکاپ حذف بشه..چون به اولین کد پرسنلی که رسید اونو میخونه دیگه چیز در ادامه نمیتونه پیدا کنه…ممنون میشم جواب بدید..یا آموزشی در ای ن باره دارین برام بفرستین..هر چه قدر هزینه هم باشه روی چشم.
پاسخ