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

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

  1. #1


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    January_2017
    محل سکونت
    کرمانشاه
    نوشته ها
    251
    امتیاز
    280
    سپاس
    22
    سپاس شده
    259 در 167 پست

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

    سلام
    عنوان : نحوه انتخاب چند گزینه همزمان و حذف کردن گزینه ها از منوی آبشاری
    راه حل:
    بر روی نام شیتی منوی آبشاری در ان قرار دارد کلیک راست کرده و 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
مشاهده: 25
حجم:  18.2 کیلو بایت
    امیدوارم به کارتون بیاد
    فايل هاي پيوست شده فايل هاي پيوست شده

  2. سپاس ها (2)


  3.  


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

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

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

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

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

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

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

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

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