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

موضوع: فعال و غیر فعال نمودن یک دکمه که یک ماکرو را اجرا می نماید

  1. #1

    آخرین بازدید
    2017/11/06
    تاریخ عضویت
    August 2015
    نوشته ها
    2
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    Teeth فعال و غیر فعال نمودن یک دکمه که یک ماکرو را اجرا می نماید

    سلام و خدا قوت
    من میخوام توی یک شیت که الان چندتا دکمه تعبیه کردم و هرکدام از اونها توسط ماکرو فرمی رو چاپ میکنه ... در کنار هر کدام از این دکمه های چاپ یک چک باکس هم بذارم که اگه تیک خورد چاپ انجام بشه و اگر نداشت چاپ انجام نشه
    قبلا از لطف شما دوستان سپاسگذارم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    ویرایش توسط qaem : 2017/10/23 در ساعت 15:54 دلیل:غلط املائی

  2.  

  3. #2


    آخرین بازدید
    2023/05/10
    تاریخ عضویت
    January 2017
    محل سکونت
    کرمانشاه
    نوشته ها
    360
    امتیاز
    571
    سپاس
    98
    سپاس شده
    550 در 269 پست
    سطح اکسل
    80.00 %

    سلام
    میتونید ترتیبی دهید با تیک نخوردن یا خوردن چک باکس مقادیر خاصی مثلا 0 و 1 در سلول A1 وارد شود
    و در ادامه دستور چاپ در کد ماکروی دکمه چاپ رو در داخل یک شرط به صورت ذیل قرار بدید که زمانی مقدار سلول A1 برابر 1 بود چاپ انجام شود
    کد PHP:
    IF Range("A1")= 1 Then
     
    'Print
    End If 
    بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
    مشکلات دیگران، روزی مشکلات ما هم خواهد شد


  4. سپاس ها (2)


  5. #3

    آخرین بازدید
    2017/11/06
    تاریخ عضویت
    August 2015
    نوشته ها
    2
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    ممنون از پاسخ شما...
    اگر بخوام چند if که نوشتم و هرکدام چاپهای جداگانه انجام میدن رو اجرا کنم چکار کنم . من تمام if ها رو پشت سرهم قرار دادم. اما فقط اولی اجرا میشه .
    کدی که نوشتم اینه
    کد:
    Sub Macro11()'
    ' Macro11 Macro
    '
    
    
    '
    If Range("F6") = True Then
        Sheets("ÊãÈÑ").Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
    End If
    If Range("F5") = True Then
        Sheets("˜ÇÑãÒÏÇÓÊÚáÇã").Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
    End If
    If Range("F4") = True Then
        Sheets("ÇÚÊÈÇÑ").Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
    End If
    If Range("F9") = True Then
        Sheets("ËÈÊ ÇÍæÇá").Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
    End If
    If Range("F10") = True Then
        Sheets("˜ÇÑãÒÏ720").Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
    End If
    If Range("F7") = True Then
        Sheets("˜ÇÑãÒÏ ÊÔ˜íá ÑæäÏå").Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
    End If
    If Range("F8") = True Then
        Sheets("1").Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
    End If
    If Range("F11") = True Then
        Sheets("2").Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
    End If
        Sheets("Ç").Select
    End Sub

  6. #4


    آخرین بازدید
    2023/05/10
    تاریخ عضویت
    January 2017
    محل سکونت
    کرمانشاه
    نوشته ها
    360
    امتیاز
    571
    سپاس
    98
    سپاس شده
    550 در 269 پست
    سطح اکسل
    80.00 %

    یک متغیر مثل x تعریف کنید و تو این کد های بالا بجای دستور پرینت قرار بدید و در هر شرط یک مقدار یکتا پیدا کنه
    بعد در ادامه کد ها از چند تا شرط دیگه برای پرینت استفاده کنید یعنی با هر مقدارx چاپ مربوطه انجام بشه
    بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
    مشکلات دیگران، روزی مشکلات ما هم خواهد شد



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

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

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

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

  1. پرسش غیر فعال بودن کلید مکان نمای کیبرد
    توسط mmt در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2016/03/29, 18:39
  2. نحوه شمارش سطرهای غیرفیلتر شده
    توسط morteza_bn در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2015/03/29, 12:48

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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