نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

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

  1. #1


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

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

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

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

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

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

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

  2. سپاس ها (2)


  3.  

  4. #2


    آخرین بازدید
    2011/11/19
    تاریخ عضویت
    September 2010
    نوشته ها
    35
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

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

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

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

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

    ممنون

  5. #3


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February 2010
    محل سکونت
    مشهد
    نوشته ها
    435
    امتیاز
    950
    سپاس
    294
    سپاس شده
    881 در 210 پست
    سطح اکسل
    81.00 %

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

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

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

  6. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

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

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

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

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

  7. #5


    آخرین بازدید
    2011/11/19
    تاریخ عضویت
    September 2010
    نوشته ها
    35
    امتیاز
    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


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

    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


    آخرین بازدید
    2011/11/19
    تاریخ عضویت
    September 2010
    نوشته ها
    35
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

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

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

  11. #8


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    172
    امتیاز
    202
    سپاس
    41
    سپاس شده
    78 در 46 پست
    تعیین سطح نشده است

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

  12. سپاس ها (1)


  13. #9


    آخرین بازدید
    2024/02/16
    تاریخ عضویت
    August 2015
    نوشته ها
    10
    امتیاز
    10
    سپاس
    4
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    vlookup در فرم

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

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


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

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

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

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

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

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

ایجاد کلید میانبر برای باز کردن فرم در افیس 2010

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

کلید میانبر آزمون بله و خیر

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

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

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

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

تعریف یک دکمه میانبر برای چاپ در اکسل

if و else در یوزرفرمvba

ساخت دکمه برای اوردن یوزر فرم

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

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

اضافه کردن دکمه دسترسی در اکسل

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

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

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

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

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

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

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

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

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

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

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

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

علاقه مندی ها (Bookmarks)

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

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