پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

موضوع: گذاشتن کلید میانبر برای کلیدهای یوزرفرم

  1. #1


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    گذاشتن کلید میانبر برای کلیدهای یوزرفرم

    [با درود فروان
    زمانی که روی یک یوزرفرم کلیدهای را قرار داده ایم و می خواهیم برای آن کلید ها روی کیبرد کلید میانبر قرار دهیم بدین صورت عمل می کنیم
    روی یوزرفرم دوبل کلید کرده تا به صفحه کد آن وارد و کد زیر را بنویسید.

    Private Sub UserForm_Initialize()
    CommandButton1.Accelerator = "d"
    End Sub

    همانطور که می بینید این میانبر برای CommandButton1 نوشته شده که برای کلیدهای دیگر کافیست نام کلیدهای دیگر نیز به همین ترتیب بنویسید.

    برای اجرای میانبر Alt+c که اجرا کنید CommandButton1 عمل می کند:blush:

    مثال
    [attachment=1]
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده

  2. سپاس ها (2)


  3.  

  4. #2


    آخرین بازدید
    19 _ 11 _ 2011
    تاریخ عضویت
    September_2010
    نوشته ها
    36
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    【★ tv_kade ★】 به Yahoo ارسال پیام

    RE: گذاشتن کلید میانبر برای کلیدهای یوزرفرم

    درود
    من کلید میانبرو همونطور که گفتید ساختم در حالتی که دارای دو گزینه بله و خیر ( Yes Or NO ) هستیم

    اما مشکلی که هست اینه که وقتی بروی هر دو کلیک میشه به صفحه اول یوزر فرم بر میگرده مثله فایل نمونه ای که قرار دادین
    اما چیزی که من میخوام اینه که وقتی بروی Yes کلیک میکنم به داخل لیست بره و وقتی بروی No کلیک میکنم کلا از اکسل بیاد بیرون

    لطفا کد مربوطه رو قرار بدین

    ممنون

  5. #3


    محصولات کاربر

    <a href=
    آخرین بازدید
    5 روز پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    مشهد
    نوشته ها
    426
    امتیاز
    887
    سپاس
    252
    سپاس شده
    818 در 183 پست

    mrexcel به Yahoo ارسال پیام

    RE: گذاشتن کلید میانبر برای کلیدهای یوزرفرم

    استاد بزرگوار جناب آقاي شمس العلما از توجهتون به مسائل طرح شده در تالار كمال تشكر را دارم
    مسائل بسيار كاربردي زيبا طرح شده است

  6. #4


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: گذاشتن کلید میانبر برای کلیدهای یوزرفرم

    با درود فراوان

    اگر با زدن کلید yes و No نتیجه ای یکسان می گیریم به دلیل آن است که برای کلیدهای yes و No دستوری ننوشته ایم
    و اگر بخواهیم با زدن مثلا Yes از برنامه خارج شود باید چنین دستوری را بنویسیم

    Private Sub CommandButton2_Click()
    If MsgBox("CommandButton2", vbYesNo) = vbYes Then
    ActiveWindow.Close
    End If
    End Sub

  7. #5


    آخرین بازدید
    19 _ 11 _ 2011
    تاریخ عضویت
    September_2010
    نوشته ها
    36
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    【★ tv_kade ★】 به Yahoo ارسال پیام

    RE: گذاشتن کلید میانبر برای کلیدهای یوزرفرم

    حالا اگه ما بخوایم هم واسه yes و هم no دستور بنویسیم یه مشکل دارم اونم این که نمی دونم چطور باید دوشرط که برای yes و no میذاریمو با هم ادغام کنم

    به عنوان مثال دستوری که مینویسم اینه

    Private Sub CommandButton2_Click()
    If MsgBox("CommandButton2", vbYesNo) = vbNo Then
    ActiveWindow.Close
    End If
    If MsgBox("CommandButton2", vbYesNo) = vbYes Then
    UserForm1.Hide

    End Sub

    مشکلی که در این دستور هست اینه که دوبار دستور رو نشون میده
    حالا چطور باید این دو ایف رو ادغام کرد که فقط یبار میانبر اجرا بشه؟

    سوالی دیگری که مرتیط با این موضوع دارم
    من نوشته ای که تو این میانبر میخوام بنویسم چند سطره

    چطور نوشته ها به صورت سطر زیر هم درمیان؟
    برای مثال در همین فایل نمونه نوشته ای که قرار داده شده
    CommandButton2
    هست
    حالا من میخوام چهار پنج تا CommandButton2
    زیر هم باشه. چجوری این کار انجام میشه؟

    با سپاس

  8. #6


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: گذاشتن کلید میانبر برای کلیدهای یوزرفرم

    با درود فراوان

    سئوال اول اینکه دو ایف نیاز نداریم شما ایف اول که نوشتی بجای end می نویسی else و بعد از هر دستوری بنویسی دستور دوم محسوب می شود چون در اینجا دو شرط بیشتر نداریم
    که اگر از دو شرط بیشتر شد می شود بجای Else از elseif استفاده کنیم

    کد به این صورت می شود
    Private Sub CommandButton2_Click()
    If MsgBox("CommandButton2", vbYesNo) = vbNo Then
    ActiveWindow.Close
    else

    UserForm1.Hide
    End If
    End Sub

    و یا به اینصورت:

    Private Sub CommandButton2_Click()
    If MsgBox("CommandButton2", vbYesNo) = vbNo Then
    ActiveWindow.Close
    ElseIf MsgBox("CommandButton2", vbYesNo) = vbYes Then
    UserForm1.Hide
    End If
    End Sub[hr]
    با درود فراوان

    در مورد سئوال دوم هم متوجه منظور شما نشدم

    ولی چیزی که حدس می زنم اینه که می خواهید اسم کلید که مثلا Commadbutton2 هست
    بجای ان اسمی برای روی کلیدتا متنی که می نوسیدی طولانی و در چند سطر باشد

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

  9. سپاس ها (2)


  10. #7


    آخرین بازدید
    19 _ 11 _ 2011
    تاریخ عضویت
    September_2010
    نوشته ها
    36
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    【★ tv_kade ★】 به Yahoo ارسال پیام

    RE: گذاشتن کلید میانبر برای کلیدهای یوزرفرم

    نه منظورم همونی بود که توضیح دادین
    مشکلم حل شد
    ممنون

  11. #8


    آخرین بازدید
    تاریخ عضویت
    January_2014
    نوشته ها
    172
    امتیاز
    198
    سپاس
    41
    سپاس شده
    74 در 45 پست

    اساتیدبزرگی همچون استاد شمس العلما استاد فیروزجایی واقعا معرکه هستند وباید همه دعاگوی این اساتیدبزرگ باشیم که فوق العاده هستند،درنهایت از هردوی ایشان کمال تشکر وقدردانی را مینماییم

  12. سپاس ها (1)


  13. #9

    آخرین بازدید
    4 هفته پیش
    تاریخ عضویت
    August_2015
    نوشته ها
    4
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست

    vlookup در فرم

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

    کی میتونه کمکم کنه


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. گرافیک و منو در یوزر فرم
    توسط shamsololama در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 15
    آخرين نوشته: 29 _ 08 _ 2015, 08:10
  2. یوزرفرم
    توسط payam در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 27 _ 03 _ 2013, 17:24
  3. قرار دادن نمودار در یوزرفرم
    توسط s.cheraghi در انجمن آموزش موضوعات (گرافيك ،چارت ،نمودار)
    پاسخ ها: 2
    آخرين نوشته: 02 _ 03 _ 2013, 18:42
  4. یوزرفرم
    توسط sonbol در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 13 _ 03 _ 2012, 16:52
  5. فراخوانی یوزرفرم
    توسط MEYTI در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 8
    آخرين نوشته: 24 _ 04 _ 2011, 19:42

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

گذاشتن کلید میانبر در vb6

کلیدهای میانبر اکسل 2010

کلیدهای میانبر در ویژوال بیسیک

گذاشتن اخطار برای کلید در اکسس

کلیدهای میانبر در vb6

گذاشتن کلید میانبر برای کامند در ویژوال بیسیک

گذاشتن کلید در اکسل

قراردادن کلید کلید عملیاتی جستجو در اکسل

کلید میانبر فرم در اکسس

تمامي كليدهاي ميانبرو غير ميانبر كامپيوتر

كليد گذاشتن در اكسس

داخل msgbox میخوام چند نوشته بنویسم زیر هم

کلید میانبر کلوز در اکسل

گذاشتن کلید پرینت برای اکسل

کلید های میانبر درAccess

گذاشتن بله خیر دراکسل

گذاشتن کلید در فرم اکسس

گزینه close بالای یوزرفرم اکسل

گذاشتن کلید منو در ایکسل

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است