iranweld
2015/10/07, 10:48
با سلام
از امکانات جالب اکسل رویدادها هستند با استفاده از رویدادها در اکسل میتوانیم در صورت تغییر مقدار یک سلول یا قبل از باز شدن فایل یا قبل از تغییر شیت ، ذخیره ، راست کلیک ، اضافه نمودن شیت جدید و ............. کدهای مختلف ویژوال بیسیک را فراخوانی نموده و کارهای مختلفی را انجام دهیم
برای مثال :
اولین دستور : Workbook_Open
برای این دستور بعد از باز نمودن یک فایل اکسل وارد محیط ویژوال بیسیک شوید و از آیکونهای سمت چپ this workbook را انتخاب نمودهو از قسمت general و سپس workbookرا انتخاب کنید
8828
رویداد Workbook_Open بصورت پیش فرض اضافه میگردد و تاثیر آن وقتی است که شما فایل مورد نظر را ذخیره نموده و در دفعات بعدی باز مینماید
Private Sub Workbook_Open()
End Sub
برای اولین مثال کدهای ذیل را در this workbook کپی کنید و فایل رابصورت macro enable یا اکسل 2007 ذخیره کنید و سپس فایل را ببندید. مجددا فایل را باز نمایید.
ملاحظه میفرمایید که در هنگام باز شدن یک پیغام خوش آمد گویی و نمایش تاریخ و ساعت ظاهر میگردد.
شما میتوانید با قرار دادن کدهای دیگر ویژوال بیسیک کارهای مختلفی را روی فایل خود در هنگام باز شدن انجام دهید
Private Sub Workbook_Open()
Private Sub Workbook_Open()
MsgBox "Welcome" & vbNewLine & Now()
End Sub
8831
جهت مطالعه سایر رویدادهای فایل ضمیمه را مطالعه بفرمایید
یک نمونه فایل که در هنگام باز شدن شیت ها رو مخفی نموده و یک یوزر فرم را نمایش میدهد به پیوست میباشد
از امکانات جالب اکسل رویدادها هستند با استفاده از رویدادها در اکسل میتوانیم در صورت تغییر مقدار یک سلول یا قبل از باز شدن فایل یا قبل از تغییر شیت ، ذخیره ، راست کلیک ، اضافه نمودن شیت جدید و ............. کدهای مختلف ویژوال بیسیک را فراخوانی نموده و کارهای مختلفی را انجام دهیم
برای مثال :
اولین دستور : Workbook_Open
برای این دستور بعد از باز نمودن یک فایل اکسل وارد محیط ویژوال بیسیک شوید و از آیکونهای سمت چپ this workbook را انتخاب نمودهو از قسمت general و سپس workbookرا انتخاب کنید
8828
رویداد Workbook_Open بصورت پیش فرض اضافه میگردد و تاثیر آن وقتی است که شما فایل مورد نظر را ذخیره نموده و در دفعات بعدی باز مینماید
Private Sub Workbook_Open()
End Sub
برای اولین مثال کدهای ذیل را در this workbook کپی کنید و فایل رابصورت macro enable یا اکسل 2007 ذخیره کنید و سپس فایل را ببندید. مجددا فایل را باز نمایید.
ملاحظه میفرمایید که در هنگام باز شدن یک پیغام خوش آمد گویی و نمایش تاریخ و ساعت ظاهر میگردد.
شما میتوانید با قرار دادن کدهای دیگر ویژوال بیسیک کارهای مختلفی را روی فایل خود در هنگام باز شدن انجام دهید
Private Sub Workbook_Open()
Private Sub Workbook_Open()
MsgBox "Welcome" & vbNewLine & Now()
End Sub
8831
جهت مطالعه سایر رویدادهای فایل ضمیمه را مطالعه بفرمایید
یک نمونه فایل که در هنگام باز شدن شیت ها رو مخفی نموده و یک یوزر فرم را نمایش میدهد به پیوست میباشد