در open workbook یه یوزر فرم رو برای شروع معرفی کردم و توی اون فرم در انتهاش یک چک باکس گذاشتم که اگر کاربر اونو تیک بزنه دیگه اون فرم دیده نشه اگر هم نزد با هر بار باز شدن فرم رویت بشه از visible فرم استفاده می کنم جواب نمیده
-
[FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]
[CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
[/CENTER] -
تو ایونت چک باکس کد unload Me رو بنویسید[CENTER][COLOR=#ff0000]************************************[/COLOR]
No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
[COLOR=#ff0000]************************************[/COLOR]
[/CENTER] -
با درود فراوان
درWorkbook_Open باید این رو بنویسی
Private Sub Workbook_Open()
If Sheet1.Range("e1").Value = 0 Then
UserForm1.Show
End If
End Sub
و در چک باکس هم این کد رو بنویس
Private Sub CheckBox1_Click()
Sheet1.Range("e1").Value = CheckBox1.Value
End Sub
و در اونت باز شدن یوزر فرم هم این کد رو بنویس
Private Sub UserForm_Initialize()
CheckBox1.Value = Sheet1.Range("e1").Value
End Sub
---------------------------------------------------------------------------------------------------
بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
shamsololama@yahoo.com
09177733411کامنت
کامنت