طراحی یوزر فرمی که به هر شیت لینک بشه

[mo-aslani]

با عرض سلام خدمت اساتید عزیز بویژه شمس العلما عزیز
دوستان من یه موردی برام پبش اومده که چون تعداد شیت های ورک بوک ام زیاد هست میخوام یه یوزر فرم تهیه کنم که وقتی صفحه اکسل باز میشه اون یوزرفرم نمایش داده بشه و نام هر شیت روی این فرم باشه و با انتخاب هر گزینه به شیت مربوطه منتقل بشم البته با هایپرلینک این کار رو به صورت ابتدایی انجام دادم ولی خواسته هام رو به طور کامل تامین نمیکنه در ضمن میخوام یه command button روی هر شیت قرا بگیره که با کلیک بروی اون مجددا به صفحه انتخاب شیت ها منتقل بشم
ممنون میشم از دوستان عزیزی که من رو هم راهنمایی کنن
باز هم با تشکر ویژه از شمس العلما عزیز که مشکل دوستان رو در حد توان حل میکنن:heart:

[MEYTI]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

با سلام
خدمت شما دوست عزیز

http://www.mediafire.com/?9wmn2a697d990l9

[【★ tv_kade ★】]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

با سلام
خدمت شما دوست عزیز

http://www.mediafire.com/?9wmn2a697d990l9

تشکر فراوان
چطورباید کاری کرد که شیتها فقط از طریق یوزرفرمی که ساختیم قابل دسترسی باشه:huh:
چون بدین صورت زیاد فرقی نمیکنه:-/
یک پی ام براتون زدم

[shamsololama]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

با عرض سلام خدمت اساتید عزیز بویژه شمس العلما عزیز
دوستان من یه موردی برام پبش اومده که چون تعداد شیت های ورک بوک ام زیاد هست میخوام یه یوزر فرم تهیه کنم که وقتی صفحه اکسل باز میشه اون یوزرفرم نمایش داده بشه و نام هر شیت روی این فرم باشه و با انتخاب هر گزینه به شیت مربوطه منتقل بشم البته با هایپرلینک این کار رو به صورت ابتدایی انجام دادم ولی خواسته هام رو به طور کامل تامین نمیکنه در ضمن میخوام یه command button روی هر شیت قرا بگیره که با کلیک بروی اون مجددا به صفحه انتخاب شیت ها منتقل بشم
ممنون میشم از دوستان عزیزی که من رو هم راهنمایی کنن
باز هم با تشکر ویژه از شمس العلما عزیز که مشکل دوستان رو در حد توان حل میکنن:heart:

با درود فراوان
در این فایل نمونه که فرستادم هم میشه لیست شیت ها رو در کمبوباکس و هم در لیست باکس هرکدام که مناسبتر می بینید انجام دهید و در این روش هر شیت جدید که اضافه شود و یا حذف شود در لیست به روز می شود برای دید یوزفرم کنترل +T و یا اجرا ماکرو نمایان می شود و فرم را به گونه ای تغییر آبشن داده ایم که زمانی که یوزرفرم باز باشد نیز به صفحه دست رسی داشته باشیم
و اینکه دوست عزیزم پرسیده که شیت ها فقط با یوزرفرم باز شود می توانید در ایتدای کا همه شیت ها را وری هاید کنید که انتخاب شیت ممکن نباشد و در یوزرفرم زمانی که شیتی را انتخاب میکنیم بقیه شیت ها هاید شود و شیت مورد نظر از هاید بیرون بیاد که همیشه یک شیت را در صفحه ببینیم

فایل نمونه:
[attachment=176]

[mo-aslani]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

دوستان از همگی ممنون
استاد meyti تشکر از شما
استاد شمس العلما یک دنیا ممنون از راهنمایی هاتون
واقعا لطف کردین[hr]

و اینکه دوست عزیزم پرسیده که شیت ها فقط با یوزرفرم باز شود می توانید در ایتدای کا همه شیت ها را وری هاید کنید که انتخاب شیت ممکن نباشد و در یوزرفرم زمانی که شیتی را انتخاب میکنیم بقیه شیت ها هاید شود و شیت مورد نظر از هاید بیرون بیاد که همیشه یک شیت را در صفحه ببینیم

استاد عزیز
من وقتی میخوام شیت ها رو وری هاید کنم همه شیت ها رو بغیر از یک دونه وری هاید میکنه و اجازه این کار رو به من نمیده فکر کنم بایستی حتما یه شیت به صورت ویزیبل باقی بمونه در ضمن در مورد مابقی شیت ها که وری هاید شدن وقتی که ماکروی ارایه شده توسط جنابعالی رو اجرا میکنم پیام خطا میده و میگه چون شیت موردنظر هاید هست امکان لینک شدن به اون شیت وجود نداره
استاد لطف میکنین در این مورد هم این حقیر رو راهنمایی بفرمایین
ممنون از همه چیز:heart:

[【★ tv_kade ★】]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

با عرض سلام خدمت اساتید عزیز بویژه شمس العلما عزیز
دوستان من یه موردی برام پبش اومده که چون تعداد شیت های ورک بوک ام زیاد هست میخوام یه یوزر فرم تهیه کنم که وقتی صفحه اکسل باز میشه اون یوزرفرم نمایش داده بشه و نام هر شیت روی این فرم باشه و با انتخاب هر گزینه به شیت مربوطه منتقل بشم البته با هایپرلینک این کار رو به صورت ابتدایی انجام دادم ولی خواسته هام رو به طور کامل تامین نمیکنه در ضمن میخوام یه command button روی هر شیت قرا بگیره که با کلیک بروی اون مجددا به صفحه انتخاب شیت ها منتقل بشم
ممنون میشم از دوستان عزیزی که من رو هم راهنمایی کنن
باز هم با تشکر ویژه از شمس العلما عزیز که مشکل دوستان رو در حد توان حل میکنن

با درود فراوان
در این فایل نمونه که فرستادم هم میشه لیست شیت ها رو در کمبوباکس و هم در لیست باکس هرکدام که مناسبتر می بینید انجام دهید و در این روش هر شیت جدید که اضافه شود و یا حذف شود در لیست به روز می شود برای دید یوزفرم کنترل +T و یا اجرا ماکرو نمایان می شود و فرم را به گونه ای تغییر آبشن داده ایم که زمانی که یوزرفرم باز باشد نیز به صفحه دست رسی داشته باشیم
و اینکه دوست عزیزم پرسیده که شیت ها فقط با یوزرفرم باز شود می توانید در ایتدای کا همه شیت ها را وری هاید کنید که انتخاب شیت ممکن نباشد و در یوزرفرم زمانی که شیتی را انتخاب میکنیم بقیه شیت ها هاید شود و شیت مورد نظر از هاید بیرون بیاد که همیشه یک شیت را در صفحه ببینیم

فایل نمونه:

تشکر فراوان
جناب شمس العلما دو تا مشکل هست


اول اینکه چطور باید یوزر فرم رو کاری کرد که در عین حال به صفحه هم دسترسی داشت ؟
دوم وقتی شیت ها رو هاید میکنیم دیگه نمیشه از یوزر فرم به اون شیت لینک کرد و ارور میگیره چون هاید شده وباید قبلش از هاید دربیاد.
ممنون میشم راهنمایی کنید :blush:

[shamsololama]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

با درود فراوان
درست می فرمائید وقتی هاید میکنیم دیکه با انتخاب آن از یوزرفرم پیام خطا میده و این طبیعی است خطا بگیره چون شیت مورد نظر ماهاید است .
همانطور که خود شما نیز اشاره کرده بودید قبلش باید از هاید بیاد بیرون یعنی کدی که داخل کمبوباکس می نویسیم که شیت رو انتخاب کنه بصورتی می نویسیم که شیت مورد نظرمون را از هاید خارج کنه و و بقیه رو هاید کنه و می بایست حداقل یک شیت همیشه داشته باشیم و نمی شود که همه رو هاید کنیم

[mo-aslani]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

استاد ممنون از راهنمایی شما
استاد چطوری باید کد رو بنویسم که با انتخاب اون شیت از کمبوباکس شیت موردنظر رو ویزیبل کنه و به اون شیت لینک بشه در حالی که مابقی شیت ها همچنان هاید باقی میمونن
ممنون میشم اگه باز هم من رو کمک کنین

[shamsololama]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

استاد ممنون از راهنمایی شما
استاد چطوری باید کد رو بنویسم که با انتخاب اون شیت از کمبوباکس شیت موردنظر رو ویزیبل کنه و به اون شیت لینک بشه در حالی که مابقی شیت ها همچنان هاید باقی میمونن
ممنون میشم اگه باز هم من رو کمک کنین

با درود فراوان
نمونه فایل:
[attachment=177]

[mo-aslani]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

استاد یک دنیا ممنون از محبتتون

[【★ tv_kade ★】]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

در صورتی که از Command Botton برای لینک کردن به شیتها استفاده کرده اید برای نشان دادن فقط یکی از شیتهای انتخابی یوزرفرم از کد زیر استفاده کنید


Private Sub CommandButton1_Click()
Dim c
Sheet1.Visible = xlSheetVisible
For Each c In Sheets
If c.Name <> CommandButton1.Caption Then
c.Visible = xlSheetVeryHidden
End If
Next
End Sub


این کدبرای CommandButton1 و Sheet1 هست و برای بقیه شیت ها به همین صورت
توجه کنید حتما نامی که برای کامندباتن انتخاب کرده اید با نام شیت مورد نظر یکی باشد


نکته بعدی که اینجا بدرد میخوره جای یوزرفرم هست
همانطور که میدانید همواره یوزرفرم در مرکز نمایش داده میشه حال برای انکه جای ان را تغییر دهید میتوانید از کد زیر استفاده کنید


Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Top = (Application.Height - Me.Height) / 1.13
Me.Left = (Application.Width - Me.Width - 33)
End Sub

با این کد یوزرفرم در قسمت راست پایین (گوشه اکسل)قرارمیگیره :P
با تغییر در اعداد داخل فرمول میتوانید یوزرفرم را درجایی که مدنظرتون هست منتقل کنید


با سپاس

[mo-aslani]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

با تشکر از شما دوست عزیز[hr]
استادان گرامی
در نمونه نهایی ارسالی توسط استاد عزیز شمس العلما همه چیز عالی هست یغیر از یک مورد که اون هم مشکل اختصاصی خود من هست نه فرم استاد بزرگوار شمس العلما و اون هم این هست که من یه شیت دارم که پسوردهای کاربران در اون نوشته شده و نباید در اختیار کاربران قراربگیره ولی با این فرم طراحی شده نام این شیت هم در کمبو باکس نمایش داده میشه و با انتخاب اون شیت تمام پسوردها برای کاربران نمایان میشه
دوستان برای حل این مشکل چکار باید بکنم
ممنون میشم اگه بازهم من رو از چشمه بیکران دانشتون بهره مند کنین
با تشکر مججد 

[shamsololama]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

با درود فراوان
برای اینکه یک شیت و یا بیشتر از شیت های که داری نمایش داده نشه می توانی با اضاف کردن یک شرط آن شیت را نشان ندهد و یا اینکه برای ورود به آن شیت از شما پسورد بخواهد که کاربرانی که پسورد آن شیت را ندارند وارد آن شیت نشوند

در فایل نمونه برای ورود به شیت یک پسورد نیاز دارید
فایل نمونه:

[mo-aslani]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

استاد
الحق که برازنده نام کاربریتون هستین
یک دنیا ممنون از لطف و محبتتون 

[ariana4]

RE: طراحی یوزر فرمی که به هر شیت لینک بشه

سلام
و تشکر من از این فایل می خوام استقاده کنم و می خوام یوزر فرمم شامل یک کلید باشه که شیت جدید ایجاد کنه و دوم اینکه در کومبو شماره شیت را تایپ کنم و بدون خطا برام شیت را باز کنه