حذف چندین ردیف مشخص از اکسل بزرگتر

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ezel70

    • 2021/01/21
    • 12
    #1

    [حل شده] حذف چندین ردیف مشخص از اکسل بزرگتر

    سلام خدمت همه بزرگواران
    من یک اکسل دارم که شامل اطلاعات فروش کالاهام هست که در شیت فروش قرار داره و در شیت برگشت از فروش اطلاعات کالاهای مرجوعی ام ثبت شده.
    حالا میخوام که ردیف های مربوط به کالاهای برگشتی را بر اساس کد سفارش که در هر دو شیت ثابت هست را از اطلاعات فروش حذف کنم که قطعا به صورت دستی و تک تک سخت و زمان بر هست.
    دوستان اگه راهی بلد هستند ممنون میشم کمک کنند.
    ضمنا من زیاد اکسل بلد نیستم پس اگه همراه با توضیح باشه لطف بزرگی کردید
    یک فایل هم به صورت نمونه ارسال میکنم.
    سپاس بی کران
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • saed.rasa

      • 2014/11/02
      • 1054
      #2
      سلام

      تست کنید لطفا!

      ستون D از Conditional Formatting استفاده شده است
      یا ستون D ( رنگ) یا ستون F (N/A) را فیلتر کنید
      بعد ستون های فیلتر شده را انتخاب کنید اگر اکسل شما 2016 و بالاتر باشد کلیک راست بعد Delete Row
      نسخه های پایین اکسل : Alt + ; یا F5 >>Special >>Visible cells only
      کلیک راست بعد Delete Row
      فایل های پیوست شده
      Last edited by saed.rasa; 2021/07/11, 10:56.
      [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
      اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
      [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
      [/FONT][/CENTER]
      [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
      فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
      [/FONT][/CENTER]

        کامنت

        • ezel70

          • 2021/01/21
          • 12
          #3
          سلام مجدد
          امکان اش هست روش استفاده اش را توضیح بدید تا بتونم داخل فایل بزرگتر اجراش کنم

            کامنت

            • saed.rasa

              • 2014/11/02
              • 1054
              #4
              سلام
              در شیت فروش سلول F2 این فرمول را وارد کنید بعد گوشه سمت چپ پایین سلول F2 را که علامت مثبت یا بعلاوه دیده می شود را بگیرید و بکشید تا پایین
              بعد سلول ردیف اول را فیلتر کنید از تب Data >> Fillter
              بعد ستون F را فیلتر کنید تیک N/A را بردارید بعد انتخاب ردیف ها بعد دیلیت کنید

              کد:
              =MATCH(D2,'برگشت از فروش'!$D$2:$D$600,0)
              یا این فرمول را در F2 استفاده کنید کلمه « Ok » را فیلتر کنید بعد دیلیت ردیف ها

              کد:
              =IF(MATCH(D2,'برگشت از فروش'!$D$2:$D$600,0),"ok","")



              اگر فایل بزارید من درست می کنم
              Last edited by saed.rasa; 2021/07/11, 11:42.
              [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
              اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
              [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
              [/FONT][/CENTER]
              [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
              فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
              [/FONT][/CENTER]

                کامنت

                • generalsamad
                  مدير تالار توابع

                  • 2014/06/22
                  • 1496
                  #5
                  این هم یک نمونه کد
                  کد PHP:
                  Sub DeleteEntireRow()
                  Dim lr, lr2, i, j As Long
                  lr                   = Sheet1.Cells(Rows.Count, "D").End(xlUp).Row
                  lr2                   = Sheet2.Cells(Rows.Count, "D").End(xlUp).Row
                  For i = 2 To lr2
                                        For j = 2 To lr
                                            If Sheet1.Range("D" & j) = Sheet2.Range("D" & i) Then
                              Sheet1                  .Rows(j).EntireRow.Delete
                          End                   If
                                        Next j
                  Next i
                  End Sub 
                  فایل های پیوست شده
                  [CENTER]
                  [SIGPIC][/SIGPIC]
                  [/CENTER]

                    کامنت

                    • generalsamad
                      مدير تالار توابع

                      • 2014/06/22
                      • 1496
                      #6
                      با اصلاح کد بالا روند عملیات حذف کمی بالاتر می رود
                      کد PHP:
                      Sub DeleteEntireRow()
                      Dim lr, lr2, i, j As Long
                      lr                       = Sheet1.Cells(Rows.Count, "D").End(xlUp).Row
                      lr2                       = Sheet2.Cells(Rows.Count, "D").End(xlUp).Row
                      For i = 2 To lr2
                                                For j = 2 To lr
                                                    If Sheet1.Range("D" & j) = Sheet2.Range("D" & i) Then
                                  Sheet1                      .Rows(j).EntireRow.Delete
                                                        Exit For
                                                    End If
                                                Next j
                      Next i
                      End Sub 
                      [CENTER]
                      [SIGPIC][/SIGPIC]
                      [/CENTER]

                        کامنت

                        قبلی template بعدی
                        چند لحظه..