نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية نسخ الصفوف واللصق إلى ورقة أخرى استنادا إلى التاريخ في إكسيل؟

افترض، لدي مجموعة من البيانات، والآن، أريد أن نسخ الصفوف بأكملها على أساس تاريخ محدد ثم لصقها في ورقة أخرى. هل لديك أي أفكار جيدة للتعامل مع هذه الوظيفة في إكسيل؟

انسخ الصفوف والصق إلى ورقة أخرى استنادا إلى تاريخ اليوم

انسخ الصفوف والصقها إلى ورقة أخرى إذا كان التاريخ أكبر من اليوم


انسخ الصفوف والصق إلى ورقة أخرى استنادا إلى تاريخ اليوم


إذا كنت بحاجة إلى نسخ الصفوف إذا كان التاريخ هو اليوم، يرجى تطبيق التعليمات البرمجية فبا التالية:

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في إطار الوحدة النمطية.

شفرة فبا: انسخ الصفوف والصقها استنادا إلى تاريخ اليوم:

Sub CopyRow()
'Updateby Extendoffice
    Dim xRgS As Range, xRgD As Range, xCell As Range
    Dim I As Long, xCol As Long, J As Long
    Dim xVal As Variant
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xCol = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Application.CutCopyMode = False
    J = 0
    For I = 1 To xCol
        Set xCell = xRgS.Offset(I - 1, 0)
        xVal = xCell.Value
        If TypeName(xVal) = "Date" And (xVal <> "") And (xVal = Date) Then
            xCell.EntireRow.Copy xRgD.Offset(J, 0)
            J = J + 1
        End If
    Next
    Application.CutCopyMode = True
End Sub

3. بعد لصق رمز أعلاه، يرجى الضغط F5 مفتاح لتشغيل هذا الرمز، وسوف مربع موجه يخرج لتذكيرك تحديد عمود التاريخ الذي تريد نسخ الصفوف على أساس، انظر قطة:

4. ثم اضغط OK زر، في مربع موجه آخر، حدد خلية في ورقة أخرى حيث تريد إخراج النتيجة، انظر قطة:

5. ثم انقر فوق OK زر، والآن، الصفوف التي يتم اليوم لصقها في ورقة جديدة في آن واحد، انظر الصورة:


انسخ الصفوف والصقها إلى ورقة أخرى إذا كان التاريخ أكبر من اليوم

لنسخ ولصق الصفوف التي يكون تاريخها أكبر من أو يساوي اليوم، على سبيل المثال، إذا كان التاريخ مساويا أو أكبر من أيام شنومك منذ اليوم، فانسخ الصفوف والصقها إلى ورقة أخرى.

قد يكون لك رمز فبا التالي صالح:

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في إطار الوحدة النمطية.

شفرة فبا: انسخ الصفوف والصقها إذا كان التاريخ أكبر من اليوم:

Sub CopyRow()
'Updateby Extentoffice
    Dim xRgS As Range, xRgD As Range, xCell As Range
    Dim I As Long, xCol As Long, J As Long
    Dim xVal As Variant
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xCol = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Application.CutCopyMode = False
    J = 0
    For I = 1 To xCol
        Set xCell = xRgS.Offset(I - 1, 0)
        xVal = xCell.Value
        If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then
            xCell.EntireRow.Copy xRgD.Offset(J, 0)
            J = J + 1
        End If
    Next
    Application.CutCopyMode = True
End Sub

ملاحظة:: في التعليمات البرمجية أعلاه، يمكنك تغيير المعايير، مثل أقل من اليوم أو عدد الأيام التي تحتاج إليها في إذا كان اسم النوع (زفال) = "ديت" و (زفال <> "") و (زفال> = ديت أند (زفال <ديت + شنومكس)) ثم رمز البرنامج النصي.

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز، في مربع المطالبة، يرجى تحديد عمود البيانات التي تريد استخدامها، انظر قطة:

4. ثم اضغط OK زر، في مربع موجه آخر، حدد خلية في ورقة أخرى حيث تريد إخراج النتيجة، انظر قطة:

5. انقر على OK ، والآن، الصفوف التي يساوي التاريخ أو أكبر من أيام شنومك منذ اليوم تم نسخ ولصق في ورقة جديدة كما يلي لقطة الشاشة:


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sarah B · 11 months ago
    Is it possible to do this for an entire workbook if the date is always in the same column on each? If so, what would the VBA code be, or which bit would I change?