كيف يمكن تحديد كل العمود الذي يحمل الرقم الترتيبي n في Excel؟
على سبيل المثال، لديك ورقة عمل كبيرة تحتوي على مئات الأعمدة من البيانات، وتحتاج الآن إلى نسخ كل عمود ثالث ولصقه في ورقة عمل جديدة. سيكون ذلك استهلاكًا للوقت إذا اضطرك الأمر إلى تحديد كل عمود يدويًّا واحدًا تلو الآخر—فهل هناك طريقة أسهل لتحقيق ذلك؟
تحديد كل العمود ذي الرقم الترتيبي n باستخدام VBA
تحديد كل العمود ذي الرقم الترتيبي n باستخدام Kutools لـ Excel
تحديد كل العمود ذي الرقم الترتيبي n باستخدام VBA
لا يبدو أن هناك طريقة بسيطة لحل هذه المشكلة سوى استخدام كود VBA. يُرجى اتباع الخطوات التالية:
1. حدد النطاق الذي ترغب في تحديد كل عمود ذي رقم ترتيبي n ضمنه.
2. انقر فوقالمطور > Visual Basic أو اضغط علىAlt+F11، وستظهر نافذة جديدة باسمMicrosoft Visual Basic for Applications. بعد ذلك، انقر فوقإدراج > وحدة نمطيةلإدخال الكود التالي في الوحدة النمطية:
Sub EveryOtherColumn()
'Updateby20140314
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 column interval», xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
Set rng = InputRng.Cells(1, i)
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
Next
OutRng.EntireColumn.Select
End Sub3. بعد ذلك، انقر فوق الزر
لتشغيل الكود، وستظهر نافذة منبثقة لتذكيرك بتحديد النطاق الذي تريد العمل عليه. انظر لقطة الشاشة:
4. انقر فوقموافق، ثم أدخل عدد الفواصل الزمنية في مربع الحوار المنبثق الآخر. في هذه الحالة، أدخل 3 في المربع. انظر لقطة الشاشة:
5. انقر فوقموافق. الآن تم تحديد كل عمود ثالث ضمن التحديد. راجع لقطة الشاشة:
ملاحظة: يمكنك تحديد العدد في مربع الحوار الثاني الخاص بـKutoolsforExcel لتلبية احتياجاتك.
ولكن في بعض الأحيان، قد تحتاج إلى تحديد عمودين بفاصلتين زمنيتين. لا يمكن للكود السابق التعامل مع هذه الحالة، فماذا عليك أن تفعل؟
تحديد كل العمود ذي الرقم الترتيبي n باستخدام Kutools لـ Excel
Kutools لـ Excel: مع أكثر من 300 إضافة مفيدة لـ Excel، جرّبها مجانًا دون أي قيود لمدة 30 يومًا.احصل عليها الآن.
معKutools لـ Excel، يمكنك تحديد عددٍ معيّن من الأعمدة بفواصل زمنية محددة. اتبع الخطوات التالية:
1. انقر فوقKutools > تحديد > تحديد صفوف الفاصل/أعمدة.
2. سيظهر مربع حوار باسمتحديد صفوف الفاصل/أعمدة. بعد ذلك، انقر فوق الزر
لتحديد النطاق الذي تحتاجه، واخترالأعمدةمن قسمالتحديد، ثم حدد العدد المطلوب من القائمة المنسدلةفترة الفاصل بينوالأعمدة. هنا، نختار عمودين من كل 3 أعمدة. انظر لقطة الشاشة:
3. انقر فوقموافق. سيتم تحديد عمودين يحتويان على فاصلتين زمنيتين ضمن التحديد. انظر لقطة الشاشة:
ملاحظة: إذا اخترت خيارتحديد العمود بالكاملفي مربع الحوار المنبثق، فسيتم تحديد وفرز الأعمدة بأكملها في الورقة. انظر لقطة الشاشة:
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل