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

موضوع: vlookup چند گانه 2

  1. #1


    آخرین بازدید
    13 _ 01 _ 2018
    تاریخ عضویت
    August_2014
    محل سکونت
    کرج
    نوشته ها
    38
    امتیاز
    34
    سپاس
    18
    سپاس شده
    17 در 10 پست

    vlookup چند گانه 2

    با توجه به اطلاعات شیت یک فایل پیوست با سرچ کردن توسط تابع vlookupبه اطلاعات شیت دو برسم.
    این همان سوال قبلی که توسط بنده مطرح شد و خیلی واضح نبود مجددا پرسش رو با ویرایش فایل پیوست قبل مطرح کردم.
    فايل هاي پيوست شده فايل هاي پيوست شده

  2.  

  3. #2


    آخرین بازدید
    7 ساعت پیش
    تاریخ عضویت
    March_2015
    محل سکونت
    آمل
    نوشته ها
    2,199
    امتیاز
    8012
    سپاس
    941
    سپاس شده
    4,701 در 1,869 پست

    با سلام

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

    کد PHP:
    Sub UniqueCopy()
     
    Sheet1.Range("1:20").Clear
     On Error Resume Next
     Sheet2
    .Select
        With ActiveSheet
             
    .Range("A1", .Range("A65536").End(xlUp)).AdvancedFilter _
                 Action
    :=xlFilterCopyCopyToRange:=Sheet1.Range("A1"), Unique:=True
        End With
    On Error 
    GoTo 0

    test

    End Sub

    Sub test
    ()
    Dim k As Integer

    Sheet1.Cells(Sheet1.Rows.Count"A").End(xlUp).Row
    Sheet2.Cells(Sheet2.Rows.Count"A").End(xlUp).Row
    For 2 To Z
    2
    For 2 To y

    If LCase(Sheet1.Range("A" I).Value) = LCase(Sheet2.Range("A" j).ValueThen

    Sheet1
    .Cells(Ik).Value Sheet2.Range("b" j).Value

    1

    Sheet1
    .Cells(Ik).Value Sheet2.Range("c" j).Value
    1

    'Sheet1.Cells(i, k).Value = Sheet2.Range("d" & j).Value'
    'k = k + 1'

    'Sheet1.Cells(i, k).Value = Sheet2.Range("e" & j).Value'
    'k = k + 1'


    End If

    Next
    Next


    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده

  4. سپاس ها (3)


  5. #3


    آخرین بازدید
    13 _ 01 _ 2018
    تاریخ عضویت
    August_2014
    محل سکونت
    کرج
    نوشته ها
    38
    امتیاز
    34
    سپاس
    18
    سپاس شده
    17 در 10 پست

    سلام جناب مهندس
    راه حلی به جز ویژوال بیسیک وجود نداره؟ من میخوام از طریق فرمول ها برای فایلی که داه های زیادی دارم و حجمش هم خیلی زیاد هستش،فرمول بنویسم و برای همه داده هام اجرا کنم.
    با سپاس

  6. #4


    آخرین بازدید
    7 ساعت پیش
    تاریخ عضویت
    March_2015
    محل سکونت
    آمل
    نوشته ها
    2,199
    امتیاز
    8012
    سپاس
    941
    سپاس شده
    4,701 در 1,869 پست

    نقل قول نوشته اصلی توسط mehrabn نمایش پست ها
    سلام جناب مهندس
    راه حلی به جز ویژوال بیسیک وجود نداره؟ من میخوام از طریق فرمول ها برای فایلی که داه های زیادی دارم و حجمش هم خیلی زیاد هستش،فرمول بنویسم و برای همه داده هام اجرا کنم.
    با سپاس
    با سلام

    من فرمولی رو برای اینکار بخاطر ندارم، باید نظر سایر دوستان در انجمن رو جویا بشیم

    یک نمونه فایل با داده بیشتر ضمیمه کنید بهتر میشه نتیجه گیری نمود
    ویرایش توسط iranweld : 14 _ 10 _ 2015 در ساعت 11:29


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

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

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

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

  1. vlookup چند گانه
    توسط mehrabn در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 07 _ 10 _ 2015, 12:53
  2. for each یا vlookup ؟
    توسط majidartoor در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 1
    آخرين نوشته: 20 _ 11 _ 2014, 23:00
  3. هزار و یک شب اکسل - شب چهل وسوم جستجو با Vlookup در جهت عکس (سمت چپ ) Reverse Vlookup
    توسط امين اسماعيلي در انجمن ترفندهای اکسل Excel Tricks
    پاسخ ها: 6
    آخرين نوشته: 07 _ 05 _ 2014, 21:24
  4. حالت خاص در فرمول vlookup
    توسط master در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 25 _ 02 _ 2014, 19:33
  5. حل مشکل vlookup با کمک ماکرو
    توسط sshamedk در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 26 _ 12 _ 2013, 00:05

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

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

کلمات کلیدی این موضوع

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

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