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

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

  1. #1


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    January_2014
    نوشته ها
    724
    امتیاز
    1500
    سپاس
    540
    سپاس شده
    1,075 در 380 پست

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

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


  2.  

  3. #2


    آخرین بازدید
    4 ساعت پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9052
    سپاس
    5,990
    سپاس شده
    7,388 در 2,451 پست

    نقل قول نوشته اصلی توسط 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


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    January_2014
    نوشته ها
    724
    امتیاز
    1500
    سپاس
    540
    سپاس شده
    1,075 در 380 پست

    نقل قول نوشته اصلی توسط 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


    آخرین بازدید
    4 ساعت پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9052
    سپاس
    5,990
    سپاس شده
    7,388 در 2,451 پست

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

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

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

  8. سپاس ها (1)



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

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

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

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

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

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

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

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

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