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

or

كيفية تحديد كل صف آخر أو نث في إكسيل؟

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

حدد كل صف آخر أو نث مع فبا

حدد كل صف آخر أو نث مع كوتولس ل إكسيلفكرة جيدةنومك

حدد كل الصفوف أو الأعمدة nth في ورقة عمل Excel

مع ال حدد الفواصل الزمنية والأعمدة فائدة كوتولس ل إكسيل، يمكنك بسرعة تحديد كل الصفوف / الأعمدة أو الصفوف الأخرى عن طريق وضع المراجع في مقاطع الفاصل الزمني والصفوف / الأعمدة. تحميل مجاني!
دوك حدد فاصل زمني
Kutools لـ Excel: مع أكثر من 300 من الوظائف الإضافية في Excel سهلة الاستخدام ، مجانًا بدون أي قيود في أيام 30.

حدد كل صف آخر أو نث مع فبا

في هذا المثال، سأختار صف واحد مع فواصل زمنية. مع التعليمات البرمجية فبا، ويمكن الانتهاء منه على النحو التالي:

1. حدد النطاق الذي تريد تحديده لكل صف آخر أو نث.

2.Click المطور > البصرية الأساسية، جديد ميكروسوفت فيسوال باسيك للتطبيقات سيتم عرض نافذة، انقر فوق إدراج > وحدة، وإدخال التعليمات البرمجية التالية في الوحدة النمطية:

Sub EveryOtherRow()
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1)
For i = 1 To InputRng.Rows.Count Step xInterval + 1
    Set rng = InputRng.Cells(i, 1)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireRow.Select
End Sub

3.Then انقر DOC-ضرب-حساب-3 زر لتشغيل التعليمات البرمجية. و مربع حوار للملوثات العضوية الثابتة بالنسبة لك لتحديد نطاق. انظر لقطة الشاشة:



4. انقر OK، وفي هذه الحالة، أنا إدخال شنومك في الحوار منبثقة آخر كصف الفاصل الزمني. انظر لقطة الشاشة

5. انقر OK، وتم اختيار كل صف ثالث. انظر لقطة الشاشة:

يمكنك تغيير الفاصل الزمني الذي تحتاج إليه في الثانية KutoolsforExcel الحوار.


حدد كل صف آخر أو نث مع كوتولس ل إكسيل

باستخدام رمز VBA ، يمكنك تحديد صف واحد فقط بفواصل زمنية محددة ، إذا كنت بحاجة إلى تحديد صفّين أو ثلاثة أو أي صفوف أخرى بفواصل زمنية محددة ، كوتولس ل إكسيل يمكن أن تساعدك على حل هذه المشكلة بسهولة ويسر.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، يجعل وظائفك أكثر سهولة.

بعد تركيب مجاني كوتولس ل إكسيل، يرجى القيام على النحو التالي:

1. انقر Kutools > Select > Select Interval Rows & Columns...، انظر الصورة:

وثيقة اختيار كل row8 الأخرى

2. في ال Select Interval Rows & Columns مربع الحوار، انقر فوقDOC-استبدال-المدى الأسماء 7 زر لتحديد النطاق الذي تحتاجه، واختيار Rows or Columns تبدأ من Select قسم، وحدد الرقم الذي تريده في Interval of مربع الإدخال و Rows صندوق الإدخال. انظر لقطة للشاشة:

وثيقة اختيار كل row9 الأخرى

وثيقة اختيار كل row10 الأخرى

الملاحظات:
1. إذا كنت بحاجة إلى تحديد كل صف آخر في التحديد ، يرجى إدخال 2 في مربع فواصل المدخلات و 1 في Rows صندوق الإدخال.

2. إذا كنت ترغب في تحديد الصف بأكمله الذي تحتاجه ، يمكنك التحقق Select entire rows الخيار.
وثيقة اختيار كل row11 الأخرى


تظليل كل صف آخر أو صف n مع Kutools لـ Excel

إذا كنت تريد تظليل نطاقات في كل صف آخر بحيث تبدو البيانات أكثر تميزًا كما هو موضح أدناه لقطة شاشة ، فيمكنك التقديم كوتولس ل إكسيلالصورة Alternate Row/Column Shading وظيفة للتعامل بسرعة مع المهمة.

وثيقة اختيار كل row12 الأخرى
دوك سهم لأسفل
وثيقة اختيار كل row13 الأخرى

بعد تركيب مجاني كوتولس ل إكسيل، يرجى القيام على النحو التالي:

1. حدد نطاق الخلايا الذي ترغب في تظليله ، انقر فوق Kutools > Format > Alternate Row/Column Shading.
وثيقة اختيار كل row14 الأخرى

2. في ال Alternate Row/Column Shading الحوار، كما تفعل هذه:

1) حدد الصفوف أو الأعمدة التي تريد تظليلها ؛

2) اختر Conditional formatting or تنسيق قياسي ما تحتاج إليه؛

3) تحديد الفاصل الزمني للتظليل ؛

4) اختر لون التظليل.
وثيقة اختيار كل row15 الأخرى

3. انقر Ok. الآن تم تظليل النطاق في كل صف nth.

إذا كنت ترغب في إزالة التظليل ، تحقق إزالة التظليل الصف البديل الحالي الخيار في التظليل الصف / العمود البديل الحوار.


الاستعراض المبوب وتحرير العديد من مصنفات Excel / مستندات Word مثل Firefox و Chrome و Internet Explore 10!

قد تكون معتادًا على عرض صفحات ويب متعددة في Firefox / Chrome / IE ، والتبديل بينها بالنقر على علامات التبويب المقابلة بسهولة. هنا ، يدعم Office Tab عملية المعالجة المماثلة ، والتي تسمح لك باستعراض مصنفات Excel المتعددة أو مستندات Word في إطار Excel واحد أو إطار Word ، والتبديل بينها بسهولة بالنقر فوق علامات التبويب الخاصة بها. انقر للحصول على نسخة تجريبية مجانية من 30 لمدة يوم من علامة تبويب Office!

بعد التمديد

مقالات ذات صلة:


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.
    arrbeejay · 2 years ago
    Help, please. This looks great, BUT when I hit the > Run button it fails with a "Compile error: Sub or Function not defined" and the code stopped at "Set rng = InputRng.Rows.Count Step xInterval +1".
    • To post as a guest, your comment is unpublished.
      FREDRIK · 2 years ago
      Also I don't get how "Set" and "Step" could ever work together
    • To post as a guest, your comment is unpublished.
      FREDRIK · 2 years ago
      Not sure that I will be able to help, but..
      First of, there is a spacing between "C" and "ount" in "Count" when i copied your code string over to a module.
      Secondly, I can´t find your code anywhere else on this page, please submit the whole thing, if the problem remains.
  • To post as a guest, your comment is unpublished.
    Fredrik · 2 years ago
    Replace
    OutRng.EntireRow.Select
    with
    Intersect(OutRng.EntireRow, InputRng).Select
    if you want every other row within your selection
  • To post as a guest, your comment is unpublished.
    Nata · 2 years ago
    really good, thanks!
  • To post as a guest, your comment is unpublished.
    Jon · 3 years ago
    The code has one request. Does it have to select the ENTIRE ROW for each nth row? Can't it just select certain cells (range of cells) within each nth row?

    I don't need all the information in each row. Just certain cells of each nth row.
    • To post as a guest, your comment is unpublished.
      David · 3 years ago
      I made the modifications below to select 30 rows

      Sub EveryOtherRow()
      Dim rng As Range
      Dim InputRng As Range
      Dim OutRng As Range
      Dim xInterval As Integer


      xTitleId = "KutoolsforExcel"
      Set InputRng = Application.Selection
      Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
      xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1)
      For i = 1 To InputRng.Rows.Count Step xInterval + 1
      Set rng = InputRng.Cells(i, 1).Resize(, 30) 'Resize to the number of columns to select, 30 in this case
      If OutRng Is Nothing Then
      Set OutRng = rng
      Else
      Set OutRng = Application.Union(OutRng, rng)
      End If
      Next
      OutRng.Select 'Use OutRng.EntireRow.Select to select the entire row




      End Sub
      • To post as a guest, your comment is unpublished.
        Duda · 2 years ago
        Nice, thanks, this was very helpful ^_^
  • To post as a guest, your comment is unpublished.
    ali · 4 years ago
    fanatastic.
    thanks a lot.it works perfect.I have more than 7000 data that need to select them with different interval.this trick was like a miracle for me.thaaaaaaaanks.
  • To post as a guest, your comment is unpublished.
    Daear · 5 years ago
    I'm trying to use the VBA macro in Excel 2010. It will only select the first nth row, not all of them in the selection. If I run it again, it will go to the next. Any idea what I'm doing wrong? Thanks!
  • To post as a guest, your comment is unpublished.
    Christian · 6 years ago
    Just saved my ass with this code thanks!
    My matlab decided to randomly stop working and
    so I had to resort to excel which I am not as familiar with as with Matlab. This def. helped. Thanks.