Note: The other languages of the website are Google-translated. Back to English

كيفية تحديد كل الصف الثاني أو التاسع في إكسيل؟

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

حدد كل صف آخر أو nth مع VBA

حدد كل صف آخر أو nth مع Kutools for Excelفكرة جيدة 3


حدد كل صف آخر أو nth مع VBA

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

1. قم بتمييز النطاق الذي تريد تحديده في كل صف آخر أو الصف التاسع.

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

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 ثم انقر فوق دوك-ضرب-حساب -3 زر لتشغيل الكود. وينبثق لك مربع حوار لتحديد النطاق. انظر لقطة الشاشة:



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

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

يمكنك تغيير الفاصل الزمني كما تريد في الثانية كوتولسفورإكسيل الحوار.


حدد كل صف آخر أو nth مع Kutools for Excel

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

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

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. انقر كوتولس > Select > Select Interval Rows & Columns... ، انظر لقطة الشاشة:

doc حدد كل صف آخر 8

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

doc حدد كل صف آخر 9

doc حدد كل صف آخر 10

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

2. إذا كنت تريد تحديد الصف الذي تريده بالكامل ، يمكنك التحقق منه Select entire rows الخيار.
doc حدد كل صف آخر 11


قم بتظليل كل صف أو صف آخر باستخدام Kutools for Excel

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

doc حدد كل صف آخر 12
السهم لأسفل
doc حدد كل صف آخر 13

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. حدد نطاق الخلايا الذي تريد التظليل الفاصل ، انقر فوق كوتولس > Format > Alternate Row/Column Shading.
doc حدد كل صف آخر 14

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

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

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

3) تحديد فترة التظليل ؛

4) اختر لون التظليل.
doc حدد كل صف آخر 15

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

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


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


أفضل أدوات إنتاجية المكتب

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

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

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (12)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فقط حفظ مؤخرتي مع هذا الرمز شكرا! قررت برنامج matlab الخاص بي التوقف عن العمل بشكل عشوائي ، ولذا اضطررت إلى اللجوء إلى التفوق الذي لست على دراية به كما هو الحال مع Matlab. هذا مواطنه. ساعد. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحتاج إلى تحديد صفوف متعددة وفاصل زمني ثابت والانتقال إلى الورقة الأخرى ، يرجى الإجابة علي في أقرب وقت ممكن 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحاول استخدام ماكرو VBA في Excel 2010. سيحدد الصف التاسع فقط ، وليس كلهم ​​في التحديد. إذا قمت بتشغيله مرة أخرى ، فسوف ينتقل إلى التالي. أي فكرة عما أفعله خطأ؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
متعصب. شكراً جزيلاً ، إنه يعمل بشكل مثالي ، لدي أكثر من 7000 بيانات تحتاج إلى تحديدها بفواصل زمنية مختلفة. كانت هذه الحيلة بمثابة معجزة بالنسبة لي. haaaaaaaanks.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الرمز له طلب واحد. هل يجب تحديد الصف الكامل لكل صف ن؟ ألا يمكن فقط تحديد خلايا معينة (نطاق من الخلايا) داخل كل صف ن؟ لست بحاجة إلى كل المعلومات في كل صف. فقط خلايا معينة من كل صف ن.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد أجريت التعديلات أدناه لتحديد 30 صفًا Sub EveryOtherRow () Dim rng مثل Range Dim InputRng مثل Range Dim OutRng كنطاق Dim xInterval As Integer xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox ("النطاق: "، xTitleId ، InputRng.Address ، النوع: = 8) xInterval = Application.InputBox (" إدخال فاصل الصف "، xTitleId ، النوع: = 1) بالنسبة إلى i = 1 إلى InputRng.Rows.Count Step xInterval + 1 Set rng = InputRng .Cells (i، 1) .Resize (، 30) 'قم بتغيير الحجم إلى عدد الأعمدة المراد تحديدها ، 30 في هذه الحالة إذا كان OutRng لا شيء ، فقم بتعيين OutRng = rng Else Set OutRng = Application.Union (OutRng، rng) End If التالي OutRng. حدد 'Use OutRng.EntireRow.Select لتحديد الصف بأكمله End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع ، شكرًا ، لقد كان هذا مفيدًا جدًا ^ _ ^
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حقا جيد ، شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
استبدل OutRng.EntireRow حدد بـ Intersect (OutRng.EntireRow، InputRng) حدد ما إذا كنت تريد كل صف آخر ضمن التحديد الخاص بك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ساعدنى من فضلك. يبدو هذا رائعًا ، ولكن عندما أضغط على زر التشغيل ، فإنه يفشل مع "خطأ في الترجمة: Sub أو Function غير محددة" وتوقف الرمز عند "Set rng = InputRng.Rows.Count Step xInterval +1".
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لست متأكدًا من أنني سأتمكن من المساعدة ، ولكن .. أولاً ، هناك تباعد بين "C" و "ount" في "Count" عندما قمت بنسخ سلسلة التعليمات البرمجية الخاصة بك إلى وحدة نمطية. ثانيًا ، لا يمكنني العثور على الكود الخاص بك في أي مكان آخر في هذه الصفحة ، يرجى إرسال كل شيء ، إذا استمرت المشكلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كما أنني لا أفهم كيف يمكن أن يعمل كل من "Set" و "Step" معًا
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL