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

موضوع: مخفی کردن شیت مورد نیاز

  1. #1


    آخرین بازدید
    2019/06/26
    تاریخ عضویت
    July 2012
    نوشته ها
    78
    امتیاز
    6
    سپاس
    8
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    مخفی کردن شیت مورد نیاز

    با سلام ،با توجه به لیست که پنج مورد است من برای هر مورد، شیت های مربوطه رو رنگ کردم(چهار نوع رنگ) میخوام کاری کنم که با انتخاب هر مورد مابقی شیت ها مخفی شود و در صورتیکه گزینه همه انتخاب شود تمامی شیت ها نمایش داده شود.تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx input.xlsx اطلاعات (18.3 کیلو بایت, 6 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط razemana نمایش پست ها
    با سلام ،با توجه به لیست که پنج مورد است من برای هر مورد، شیت های مربوطه رو رنگ کردم(چهار نوع رنگ) میخوام کاری کنم که با انتخاب هر مورد مابقی شیت ها مخفی شود و در صورتیکه گزینه همه انتخاب شود تمامی شیت ها نمایش داده شود.تشکر

    سلام دوست عزيز
    درخواستي كه شما داريد فقط با كدنويسي VBA قابل انجامه
    براي همين من يك كد نوشتم اميدوارم مفيد باشه
    شما بايد اين كدها رو در قسمت كدهاي شيت input قرار بديد

    کد:
    Sub DropDown1_Change()
    dd = Range("F1").Value
    all = Array()
    fani = Array(Sheet2, Sheet3, Sheet4)
    khadamat = Array(Sheet5, Sheet6, Sheet7)
    barnamerizi = Array(Sheet8, Sheet9, Sheet10, Sheet11, Sheet12)
    shahrsazi = Array(Sheet13, Sheet14)
    Select Case dd
        Case 1
            hide_sheets all
        Case 2
            hide_sheets fani
        Case 3
            hide_sheets khadamat
        Case 4
            hide_sheets barnamerizi
        Case 5
            hide_sheets shahrsazi
    End Select
    Sheets("input").Activate
    End Sub
    
    Function hide_sheets(sheet_array)
    Dim sh As Worksheet, sht As Worksheet, shet 
    For Each sht In ThisWorkbook.Sheets
        If UBound(sheet_array) = -1 Or sht.Name = "input" Then
            sht.Visible = xlSheetVisible
        Else
            sht.Visible = xlSheetHidden
        End If
    Next sht
    For Each shet In sheet_array
        Set sh = shet
        sh.Visible = xlSheetVisible
    Next shet
    End Function
    ویرایش توسط Amir Ghasemiyan : 2018/02/07 در ساعت 09:24

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2019/06/26
    تاریخ عضویت
    July 2012
    نوشته ها
    78
    امتیاز
    6
    سپاس
    8
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

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

  6. #4


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط razemana نمایش پست ها
    با سلام و وقت بخیر ، دستور که فرمودین انجام دادم ولی درست کار نکرد اگه خودتون زحمت بکشین و تست کنین ممنون میشم
    سلام دوست عزيز
    لطفا فايل پيوست رو مشاهده بفرماييد
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm input.xlsm اطلاعات (30.9 کیلو بایت, 6 نمایش)

  7. سپاس ها (1)


  8. #5


    آخرین بازدید
    2019/06/26
    تاریخ عضویت
    July 2012
    نوشته ها
    78
    امتیاز
    6
    سپاس
    8
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    تشکر فراوان


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

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

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

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

  1. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54

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

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

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

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

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