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

موضوع: فیلتر کردن بعضی از ستون های یک جدول در یک شیت دیگر

  1. #1


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    فیلتر کردن بعضی از ستون های یک جدول در یک شیت دیگر

    با سلام خدمت اساتید

    من یک جدول دارم با 8 تا ستون .

    میخوام فقط از اون 8 تا ستون ، 3 تا ستون در یک شیت دیگه کپی بشه ( البته با یکسری فیلتر خاص بر روی همون 3 تا ستون)

    مثال:
    اطلاعات شیت اول با 8 تا ستون
    ردیف نام و نام خانوادگی سن(سال) وزن جنسیت سابقه بیماری شماره تماس مراجعه
    1 علی 10 80 مرد دارد 1111 داشته
    2 محمد 11 90 مرد دارد 1111 نداشته
    3 کریم 12 100 مرد دارد 1111 داشته
    4 نقی 13 80 مرد دارد 1111 داشته
    5 14 90 مرد دارد 1111 داشته
    6 عطا 15 100 مرد ندارد 11111111 نداشته
    7 عطا 2 16 80 مرد دارد 1111 داشته
    8 17 90 مرد ندارد 1111 نداشته
    9 18 100 مرد ندارد 1111 نداشته


    اطلاعات فیلتر شده بر اساس ستون ها ی وزن ، سایقه بیماری و مراجعه :

    وزن شان: 80 کیلو باشد
    سابقه بیماری: داشته اند
    مراجعه : داشته اند

    (که از جدول اصلی فقط سطر 1 و 7 و 4 با این شرایط موجود هست)
    وزن سابقه بیماری مراجعه
    80
    دارد
    داشته
    80
    دارد
    داشته
    80
    دارد
    داشته


    خود اکسل این قابلیتو داره(advance filter ) که در جای دیگه فیلتر کنه ، البته این امکان رو نداره که فقط 3 تا ستون رو در شیت دیگه بیاره.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: zip Book2.zip اطلاعات (7.8 کیلو بایت, 36 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    سلام
    اگه میخواید فقط لیستشو داشته باشید میتونید خوب ستونهای اضافرو هاید یا حذف کنید ( حالا بصورت دستی یا با vb ).
    اگرم میخواید ایمپورت کنید تو یه جدول یا جای دیگه هم گه با vb راحت میتونید با یه for راحت پیدا و ثبتش کنید .

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    نه میخوام ایمپورت بشه . چون یه سری کار دیگه هم روش میخوام انجام بدم.
    ممنون میشم اگه کسی وقت کنه فقط برای یه ستون انجام بده .نمونه ای هم متاسفانه پیدا نکردم تو نت

  6. #4


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    50 درصد کار حل شد.
    تونستم با این کد فیلتر و کپی کنم .
    (الان همه جدول کپی میشه)
    من میخوام فقط ستون 4 و6و8 کپی بشن .
    کد:
    Sub test()
    Dim i, LastRow
    
    LastRow = Sheets("DATA").Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 2 To LastRow
    If Sheets("DATA").Cells(i, "D").Value = "80" And Sheets("DATA").Cells(i, "F").Value = "ÏÇÑÏ" And Sheets("DATA").Cells(i, "H").Value = "ÏÇÔÊå" Then
    
    Sheets("DATA").Cells(i, "A").EntireRow.Copy Destination:=Sheets("Filtred").Range("A" & Rows.Count).End(xlUp).Offset(1)
    
    End If
    Next i
    End Sub

  7. سپاس ها (1)


  8. #5


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    خوب کارو برای خودتون سخت کردید ، اینطوری بنویسید راحتره
    کد PHP:
    Private Sub CommandButton1_Click()
    lastrow Sheet1.Range("a:h").Cells.Find("*"SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row
    lastrow_2 
    Sheet2.Range("a:d").Cells.Find("*"SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row 1

    For 2 To lastrow
    If ((Sheet1.Range("d" i).Value "80") And (Sheet1.Range("d" i).Offset(02).Value "ÏÇÑÏ") And (Sheet1.Range("d" i).Offset(04).Value "ÏÇÔÊå")) Then
    lastrow_2 
    lastrow_2 1
    Sheet2
    .Range("b" lastrow_2).Value Sheet1.Range("d" i).Value
    Sheet2
    .Range("c" lastrow_2).Value Sheet1.Range("d" i).Offset(02).Value
    Sheet2
    .Range("d" lastrow_2).Value Sheet1.Range("d" i).Offset(04).Value
    End 
    If
    Next i
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm Book2.xlsm اطلاعات (22.0 کیلو بایت, 28 نمایش)

  9. سپاس ها (3)



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

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

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

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

  1. ترکیب داده های چند شیت بر اساس سه ستون مشترک
    توسط shebrahimi در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2016/12/10, 19:02
  2. شیت 1 با شیت 2 ستون b مقایسه شود
    توسط saman501 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2016/05/10, 13:49
  3. [حل شده] انتقال بین ستون ها داخل یک شیت
    توسط mehrada در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 10
    آخرين نوشته: 2015/11/11, 14:07
  4. کپی اطلاعات یک ستون مشخص از چندین شیت به یک شیت مشخص
    توسط mobinsaffarpour در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2015/04/25, 13:56

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

انتقال بعضی از داده ها در اکسل

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

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

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