با درود فراوان
زمانی که می خواهیم یک Splash را در اکسل بسازیم راه های مختلفی وجود داره که یکی از آنها را در اینجا توضیح می دم
Splash همانطور که می دانید صفحه یا فرمی است که هنگام باز شدن یک برنامه بصورت موقت باز شده و پس از مدت کوتاه چند ثانیه ای بصورت خودکار بسته میشه که می تونیم آن را به منظور های مختلفی استفاده کرد مثلا معرفی برنامه یا تبلیغ برنامه یا یک راهنمایی یا خوش آمد گویی به برنامه و چیزهای که بسته به نوع برنامه ای که میسازیم مورد استفاده قرار میگیره
*
حالا برای ساخت چنین برنامه ای در اکسل بدین صورت عمل می کنیم
خوب ما وقتی یک فرم را در اکسل ساختیم و می خواهیم آن را به عنوان ااسپلش قرار دهیم کدی که این فرم را باز می کند در صفحه کد مربوط به Workbook قرار می دهیم که زمان باز شدن Workbook یوزر فرم باز شود مثل کد زیر
Private Sub Workbook_Open()
userform1.Show
End Sub
و حالا پس از باز شدن یوزر فرم می خواهیم که بصورت خودکار پس از چند ثانیه بسته شود
که برای این کار روی یوزر فرم دوبل کلید کرده و به صفحه کد مربوط به آن می رویم و کد زیر را می نویسیم
Private Sub UserForm_Initialize()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:03"), "payan"
End Sub
که در این کد payan ماکرویی است که در ان دستور بسته شدن یوزرفرم را در آن می نویسیم بدین صورت
Sub payan()
End
End Sub
و ("00:00:03") هم زمانی است که شما تعیین می کنید یوزرفرم بعد از چند ثانیه بسته شود
البته این نمونه ساده اسپلش هستش که توضیح دادم یک فایل نمونه برای دانلود می زام که یه کم حرفه ای تر نشون میده و یوزفرم ما از محو میاد روشن میشه و دوباره محو میشه
بدرود
فیال نمونه
[attachment=12]
زمانی که می خواهیم یک Splash را در اکسل بسازیم راه های مختلفی وجود داره که یکی از آنها را در اینجا توضیح می دم
Splash همانطور که می دانید صفحه یا فرمی است که هنگام باز شدن یک برنامه بصورت موقت باز شده و پس از مدت کوتاه چند ثانیه ای بصورت خودکار بسته میشه که می تونیم آن را به منظور های مختلفی استفاده کرد مثلا معرفی برنامه یا تبلیغ برنامه یا یک راهنمایی یا خوش آمد گویی به برنامه و چیزهای که بسته به نوع برنامه ای که میسازیم مورد استفاده قرار میگیره
*
حالا برای ساخت چنین برنامه ای در اکسل بدین صورت عمل می کنیم
خوب ما وقتی یک فرم را در اکسل ساختیم و می خواهیم آن را به عنوان ااسپلش قرار دهیم کدی که این فرم را باز می کند در صفحه کد مربوط به Workbook قرار می دهیم که زمان باز شدن Workbook یوزر فرم باز شود مثل کد زیر
Private Sub Workbook_Open()
userform1.Show
End Sub
و حالا پس از باز شدن یوزر فرم می خواهیم که بصورت خودکار پس از چند ثانیه بسته شود
که برای این کار روی یوزر فرم دوبل کلید کرده و به صفحه کد مربوط به آن می رویم و کد زیر را می نویسیم
Private Sub UserForm_Initialize()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:03"), "payan"
End Sub
که در این کد payan ماکرویی است که در ان دستور بسته شدن یوزرفرم را در آن می نویسیم بدین صورت
Sub payan()
End
End Sub
و ("00:00:03") هم زمانی است که شما تعیین می کنید یوزرفرم بعد از چند ثانیه بسته شود
البته این نمونه ساده اسپلش هستش که توضیح دادم یک فایل نمونه برای دانلود می زام که یه کم حرفه ای تر نشون میده و یوزفرم ما از محو میاد روشن میشه و دوباره محو میشه
بدرود
فیال نمونه
[attachment=12]
کامنت