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

موضوع: ماكرو براي جسجوي سطر به سطر

  1. #1


    آخرین بازدید
    تاریخ عضویت
    November 2012
    نوشته ها
    18
    امتیاز
    0
    سپاس
    3
    سپاس شده
    1 در 1 پست
    سطح اکسل
    43.00 %

    ماكرو براي جسجوي سطر به سطر

    [/font][/size]دوستان عزيز سلام
    يه كمكي ميخواستم
    فرض كنيد يه فايل داريم كه دو تا ستون داره توي اولي اسم افراد و دومي محل سكونتشون رو نشون ميده...به وسيله چه فرمولي ميشه يه حالتي مثل فيلتر كردن روي محل سكونت ايجاد كرد ؟؟؟؟؟
    به نظرتون تابع داريم براي اين كار يا بايد ماكرو براش نوشت؟؟؟
    ممنون ميشم راهنماييم كنيد[size=medium][font=Times New Roman]
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    [size=x-large][/size][size=large][/size]من خدا را دارم

  2.  

  3. #2
    komeilex
    مهمان

    RE: ماكرو براي جسجوي سطر به سطر

    نقل قول نوشته اصلی توسط اهورا
    [/font][/size]دوستان عزيز سلام
    يه كمكي ميخواستم
    فرض كنيد يه فايل داريم كه دو تا ستون داره توي اولي اسم افراد و دومي محل سكونتشون رو نشون ميده...به وسيله چه فرمولي ميشه يه حالتي مثل فيلتر كردن روي محل سكونت ايجاد كرد ؟؟؟؟؟
    به نظرتون تابع داريم براي اين كار يا بايد ماكرو براش نوشت؟؟؟
    ممنون ميشم راهنماييم كنيد[size=medium][font=Times New Roman]
    سلام دوست عزیز. منظورتون از فیلتر کردن محل سکونت رو نفهمیدم بیشتر توضیح می دین؟

  4. #3


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: ماكرو براي جسجوي سطر به سطر

    تقریبا متوجه منظورت شده ، فک کنم با Vlookup بتونی ، اگه فایل نمونه بذاری بهتره

  5. #4


    آخرین بازدید
    تاریخ عضویت
    November 2012
    نوشته ها
    18
    امتیاز
    0
    سپاس
    3
    سپاس شده
    1 در 1 پست
    سطح اکسل
    43.00 %

    RE: ماكرو براي جسجوي سطر به سطر

    vlookup نميتونه چون اگر داده هاي تكراري داشته باشيم فقط فايل اولين ركورد رو ثبت ميكنه
    من بلد نيستم تو اين محيط فايل اتچ كنم واسه همين همينجا توضيح ميدم..مثال

    نام استان نام داوطلب
    تهران علي
    شيراز حسين
    اصفهان حسن
    تهران سيامك
    تهران نيما
    تهران سهيل
    اصفهان سروش
    [size=medium][font=Times New Roman]
    حالا قصد داريم اسامي داوطلبان ساكن تهران را جدا كنيم
    راه حل ابتدايي استفاده از فيلتر كردن بر روي ستون " نام استان" ميباشد كه اين ند نظر ما نيست
    vlookup هم اگر استفاده كنيم در مقابل داده تهرات فقط اولين ركورد يعني نام علي را براي ما نمايش ميدهد.....
    سوال من اين است با استفاده از چه فرمول و يا ماكرويي ميتوان داوطلبان تهران را در يك ليست نمايش داد........
    [size=x-large][/size][size=large][/size]من خدا را دارم

  6. #5
    komeilex
    مهمان

    RE: ماكرو براي جسجوي سطر به سطر

    ببینین دوست عزیز شما خودتون به نکته ی خوبی اشاره کردین و اون منحصر به فرد کردن داده ها بود. حالا که داده هاتون تکراری هستن خودتون منحصر به فردش کنین. نمونشو براتون قرار دادم:
    [attachment=980]
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx vlk.xlsx اطلاعات (613.2 کیلو بایت, 23 نمایش)

  7. #6


    آخرین بازدید
    تاریخ عضویت
    November 2012
    نوشته ها
    18
    امتیاز
    0
    سپاس
    3
    سپاس شده
    1 در 1 پست
    سطح اکسل
    43.00 %

    Bow RE: ماكرو براي جسجوي سطر به سطر

    دوست عزيز
    جناب komeilex

    واقعاً ازتون تشكر و قدر داني ميكنم
    جوابتون عالي بود....واقعا عالي بود
    به ماكرو هم پيدا كردم كه از طرف بچه هاي خود اين انجمن بودش
    حالا يه سوال
    اگر بخواهيم اين اطلاعات توي يه فايل ديگه وارد بشه حتما بايد 2 تا فايل همزمان باز باشن؟؟؟؟

    اينم اون ماكرويي كه گفتم
    بازم تشكر و قدرداني ميكنم[size=medium][/size]

    Option Explicit

    Sub Macro1()
    Dim c, t
    For Each c In Sheet1.Range("A1:a50")
    For Each t In Sheet2.Range("A1:a30")
    If c.Offset(0, 1) = t Then
    If t.Offset(0, 3) = "" Then
    t.Offset(0, 3) = c.Offset(0, 3)
    Else
    t.Offset(0, 3) = t.Offset(0, 3) & Chr(10) & c.Offset(0, 3)
    End If
    End If
    Next t
    Next c
    End Sub
    Function ch(a, b, d As Range, m, n)

    Dim c
    ch = ""
    For Each c In d
    If c = a And c.Offset(0, m) = b Then
    If ch = "" Then
    ch = c.Offset(0, n)
    Else
    ch = ch & Chr(10) & c.Offset(0, n)
    End If
    End If
    Next c
    '
    End Function


    [size=x-large][/size][size=large][/size]من خدا را دارم

  8. #7

    آخرین بازدید
    2013/01/19
    تاریخ عضویت
    January 2013
    نوشته ها
    2
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: ماكرو براي جسجوي سطر به سطر

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

  9. #8


    آخرین بازدید
    تاریخ عضویت
    November 2012
    نوشته ها
    18
    امتیاز
    0
    سپاس
    3
    سپاس شده
    1 در 1 پست
    سطح اکسل
    43.00 %

    RE: ماكرو براي جسجوي سطر به سطر

    سلام
    به نظر من يا از Hlookup استفاده كن و يا اون قسمتو كپي كن و در هنگام PASTE كردن گزينه transpose رو انتخاب كن
    البته اينو ميتوني يه ماكرو كني كه هميشه اين كارو برات انجام بده

  10. #9

    آخرین بازدید
    2013/01/19
    تاریخ عضویت
    January 2013
    نوشته ها
    2
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: ماكرو براي جسجوي سطر به سطر

    من داده هام خیلی زیاده
    دو تا ستون دارم که طولش 20 هزار تاست نمی تونم همش رو transpose کنم
    هر کاری کردم نتونستم نمونه فایلم رو آپلود کنم

  11. #10


    آخرین بازدید
    تاریخ عضویت
    November 2012
    نوشته ها
    18
    امتیاز
    0
    سپاس
    3
    سپاس شده
    1 در 1 پست
    سطح اکسل
    43.00 %

    RE: ماكرو براي جسجوي سطر به سطر

    من نتونستم اينجا فايل آپلود كنم
    بهم ايميل بزن تا برات يه فايل بفرستم
    f.yaghoubi@kayson-ir.com


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

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

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

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

  1. چگونه مي توان دو سل حاوي فرمت تاريخ را از هم تفريق کرد ؟
    توسط ghodousifar در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2014/09/30, 12:33
  2. آمار بازديد از فايل بر روي شبكه
    توسط safaei.mehdi@mapnablade.com در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 2012/07/24, 09:30
  3. درج * با كليك كردن روي سلول
    توسط alisabet در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 12
    آخرين نوشته: 2012/07/01, 13:44
  4. منوي ابزارهاي فرم
    توسط mrexcel در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 0
    آخرين نوشته: 2010/11/09, 10:45

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

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

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

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

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