یکی از امکاناتی که می توان با استفاده از ویژوال بیسیک(VBA) اکسل در فایل اکسل ایجاد کرد، امکان ذخیره سوابق "ذخیره فایل"(Save)، اعم از نام VBA صفحه فعال، ساعت و تاریخ (در اینجا میلادی عنوان شده ) است.

این پروژه نمونه ای از کدنویسی در محیط VBA ، برای علاقه مندان اکسل ارئه می شود. از مهم ترین بخش های یک نرم افزار، ذخیره و حفظ سوابق عملکرد آن بوده و این می تواند شروع یک کنترل عملکرد نرم افزار و حتی کاربر باشد و این کنترل به طور حتم در راستای بهبود پیشبرد اهداف یک مجموعه موثر واقع می شود.

تصویر زیر نمونه کدنویسی مبحث بالا را نمایش می دهد. و در ادامه، توضیحات مربوط به آن ذکر خواهد شد.

پس از ورود به محیط VBA اکسل(Alt+F11)، از پنجره VBAProject، ماژول ThisWorkbook را دابل کلیک کنید و در پنجره باز شده، از بخش Object، گزینه Workbook  و از بخش Procedure، گزینه BeforeSave انتخا می کنیم. با انتخاب دوم، بصورت خودکار، سابروتن(تصویر زیر) ایجاد می شود و مابین دو خط سابروتن کدهای مورد نظر را می نویسیم.

در بین دو خط، کد 

WSH = ActiveSheet.CodeName

Sheet1.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = WSH & "_" & Time & "_" & Date

را می نویسیم. در این کد، خط اول، نام VBA صفحه(Sheet) فعال را شناسایی می کند و برای استفاده در کدهای بعدی عنوان WSH را به منظور سهولت کدنویسی به آن می دهد.

خط دوم مسیر ذخیره را تعیین می کند این مسیر همان طور که پیداست در صفحه یک(Sheet1) و پایین آخرین سلول دارای داده (Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)) است و پس از یافتن، نام VBA صفحه فعال،ساعت و تاریخ(WSH & "_" & Time & "_" & Date) را درج می کند. این عملیات هم زمان اجرای ذخیره فایل در صفحه یک در ستون B اجرا می شود.

دانلود فایل