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

موضوع: (آموزشی) استفاده از منوی آبشاری با امکان انتخاب چند گانه و حذف همزمان

  1. #1


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

    (آموزشی) استفاده از منوی آبشاری با امکان انتخاب چند گانه و حذف همزمان

    سلام
    عنوان : نحوه انتخاب چند گزینه همزمان و حذف کردن گزینه ها از منوی آبشاری
    راه حل:
    بر روی نام شیتی منوی آبشاری در ان قرار دارد کلیک راست کرده و viewCode را انتخاب کنید و کد ذیل را در کادر باز شده کپی نمایید
    کد PHP:
    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim oldVal As String
    Dim newVal 
    As String
    Dim strSep 
    As String
    Dim strType 
    As Long
    Dim AA 
    As String
    Dim HasVal 
    As Boolean
    Dim newValLen
    newValPos As Double

    'اضافه کردن ، بين گزينه ها
    strSep = ", "
        AA = Target.Address
        If AA = "$C$4" Then   '
    آدرس سلولهايي که داراي منوي آبشاري هستند رو به اين قسمت اضافه کنيد
            
    If Target.Count 1 Then GoTo exitHandler
            
            On Error Resume Next
            strType 
    Target.Validation.Type
            
            Application
    .EnableEvents False
            newVal 
    Target.Value
            Application
    .Undo
            oldVal 
    Target.Value
            
    If newVal <> "" Then
                HasVal 
    Application.WorksheetFunction.IsNumber(Application.WorksheetFunction.Search(newValoldVal))
            Else
                
    HasVal False
            End 
    If
            If 
    HasVal True Then
                newValLen 
    Len(newVal)
                
    newValPos Application.WorksheetFunction.Find(newValoldVal)
                If 
    newValPos 1 Then
                    Target
    .Value Application.WorksheetFunction.Replace(oldValnewValPos 2newValLen 2"")
                Else
                    
    Target.Value Application.WorksheetFunction.Replace(oldValnewValPosnewValLen 2"")
                
    End If
            Else
                If 
    oldVal "" Or newVal "" Then
                  Target
    .Value newVal
                
    Else
                  
    Target.Value oldVal _
                    
    strSep newVal
                End 
    If
            
    End If
        
    End If

    exitHandler:
        
    Application.EnableEvents True
    End Sub 
    در قسمتی که در کد نیز مشخص شده است ادرس سلول یا سلوهایی که دارای منوی آبشاریی هست را مشخص کنید
    حال با انتخاب هر گزینه از منوی آبشاری گزینه انتخابی به لیست اضافه شده و بانتخاب مجدد ان از موارد انتخاب شده حذف خواهد شد.
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  multiSelect.png
مشاهده: 42
حجم:  18.2 کیلو بایت
    امیدوارم به کارتون بیاد
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده

  2. سپاس ها (2)


  3.  


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

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

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

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

  1. پاسخ ها: 1
    آخرين نوشته: 2018/02/17, 16:57
  2. نحوه جستجو با استفاده از تابع وی لوکاپ روی دو مقدار
    توسط shaneh در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 16
    آخرين نوشته: 2016/02/04, 11:19
  3. آموزش استفاده از add ins در اکسل
    توسط mehdidada در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 4
    آخرين نوشته: 2015/08/28, 22:14
  4. بسته آموزشی نکات گرافیکی در اکسل
    توسط masoudian در انجمن پشتيباني محصولات فروشگاه - Products Support
    پاسخ ها: 2
    آخرين نوشته: 2015/02/03, 13:40

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

كشويي اكسل

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

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

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