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

موضوع: پیدا کردن و لیست کردن داده ها

  1. #1


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    پیدا کردن و لیست کردن داده ها

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


  2.  

  3. #2


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

    نقل قول نوشته اصلی توسط ali.b نمایش پست ها
    سلام خدمت دوستان
    با توجه به فایل نمونه دنبال کدی هستم که شماره عنوان مورد نظر رو در سلول مقابل لیست کنه
    مثلا اگه عنوان a رو انتخاب کردم تمام شماره های وابسته به a لیست بشه
    ممنونم

    سلام دوست عزيز

    با اين چيزي كه من از سوال شما فهميدم احساس ميكنم بايد مدرك VBA رو ازت پس بگيريم

    خدمت شما :
    کد:
    Sub find_category()
    Dim cel As Range, cel2 As Range
    Dim cat As String
    sep = "*"
    For Each cel In Range("F1:F4")
        For Each cel2 In Range("B2:B10")
            If cel2.Value = cel.Value Then cat = cat & sep & cel2.Offset(, -1).Value
        Next cel2
        cel.Offset(, 1).Value = Right(cat, Len(cat) - Len(sep))
        cat = ""
    Next cel
    End Sub

  4. سپاس ها (3)


  5. #3


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها

    سلام دوست عزيز

    با اين چيزي كه من از سوال شما فهميدم احساس ميكنم بايد مدرك VBA رو ازت پس بگيريم

    خدمت شما :
    کد:
    Sub find_category()
    Dim cel As Range, cel2 As Range
    Dim cat As String
    sep = "*"
    For Each cel In Range("F1:F4")
        For Each cel2 In Range("B2:B10")
            If cel2.Value = cel.Value Then cat = cat & sep & cel2.Offset(, -1).Value
        Next cel2
        cel.Offset(, 1).Value = Right(cat, Len(cat) - Len(sep))
        cat = ""
    Next cel
    End Sub
    سلام قابل نداره
    به خاطر فشار کاری و استرس بود . دلیلشو که میدونی،


  6. سپاس ها (1)


  7. #4


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

    نقل قول نوشته اصلی توسط ali.b نمایش پست ها
    سلام قابل نداره
    به خاطر فشار کاری و استرس بود . دلیلشو که میدونی،

    آره شما عذرت موجه

    حل شده نكردن تاپيك رو هم ميذارم به حساب همون استرسه

  8. سپاس ها (1)



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

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

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

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

  1. [حل شده] پیش نمایش چاپ و اضافه به لیست
    توسط bahman_220 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2016/11/06, 09:16
  2. پیروی یک لیست (data validation ) از داده انتخاب شده لیست قبل
    توسط mahdi-68 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2016/11/03, 21:54
  3. پیدا کردن لیست شهرها
    توسط aliarha در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2015/05/07, 02:38
  4. پاسخ ها: 0
    آخرين نوشته: 2014/04/19, 03:19
  5. هزار و یک شب اکسل - شب بیست و پنجم - پیدا کردن اخرین ستون در یک ردیف
    توسط امين اسماعيلي در انجمن ترفندهای اکسل Excel Tricks
    پاسخ ها: 0
    آخرين نوشته: 2014/04/19, 03:16

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

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

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

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

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