[حل شده] نمایش متن از پیش تعریف شده در یوزر فرم

[میثم مقدم نیا]

سلام
آیا امکانش هست که در یک User Form متن از پیش تعریف شده در روز های ایام هفته نمایش داده بشه
مثلا شنبه: امار کل چک شود
یک شنبه: لیست انبار برسی شود
دوشنبه: اقلام ورودی چک شود
و ......
ایا راهی وجود داره

[میثم مقدم نیا]

دوستان و اساتید بزرگوارم کسی راهکاری برای این موضوع نداره

[iranweld]

دوستان و اساتید بزرگوارم کسی راهکاری برای این موضوع نداره

شماره روز جاری را از توابع مرتبط استخراج کنید و با Select Case متن مورد نظر را نمایش دهید

Private Sub UserForm_Initialize()

xx = J_WEEKDAY(J_TODAY())

Select Case xx

 Case Is = 0
 Label1.Caption = "Emrooz shanbeh"
 
 Case Is = 1
 Label1.Caption = "Emrooz 1 shanbeh"
 
  Case Is = 2
 Label1.Caption = "Emrooz 2 shanbeh"
 
 Case Is = 3
 Label1.Caption = "Emrooz 3 shanbeh"
 
 
 Case Is = 4
 Label1.Caption = "Emrooz 4 shanbeh"
 
 
 Case Is = 5
 Label1.Caption = "Emrooz 5 shanbeh"
 
 Case Is = 6
 Label1.Caption = "Emrooz jomeh"
 
 End Select
 
End Sub 

[حسام بحرانی]

سلام
درصورتی که کد زیبای دوست خوبم جناب iranweld شما را به جواب رسوند، لطفاً تاپیک رو حل شده کنید.
موفق باشید.

[میثم مقدم نیا]

سلام
درصورتی که کد زیبای دوست خوبم جناب iranweld شما را به جواب رسوند، لطفاً تاپیک رو حل شده کنید.
موفق باشید.

ممنون از یاداوری شما استاد عزیزم ولی من هنوز نتونستم کد استاد را امتحان کنم ولی چشم امروز امتحان میکنم

[میثم مقدم نیا]

ممنون عالی بود