كيف تُنشئ قائمة من نطاق معين في Excel؟
قد تحتاج إلى إنشاء قائمة من نطاق بيانات بشكل متكرر، مثل نطاق يحتوي على المصطلحات الشمسية الـ24 الموضّحة أدناه. بالطبع، يمكنك نسخها ولصقها يدويًا في قائمة، لكن هذه الطريقة قد تبدو مملةً بعض الشيء إذا كان النطاق يحتوي على العديد من الأعمدة. لحسن الحظ، توجد بعض الحيل الذكية التي تتيح لك إنشاء قائمة من نطاق محدد في Microsoft Excel بسهولة ويسر.
إنشاء قائمة من نطاق باستخدام VBA
إنشاء قائمة من نطاق باستخدام Kutools لـ Excel
إنشاء قائمة من نطاق باستخدام VBA
في Excel، يمكنك أيضًا استخدام كود VBA لاستيراد قائمة أو نطاق بسرعة.
1. اضغط مع الاستمرار على زرALT، ثم اضغط علىF11 على لوحة المفاتيح لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر فوقإدراج > وحدة، ثم انسخ كود VBA إلى الوحدة.
VBA: إنشاء قائمة من نطاق
Sub UniqueList()
'Updateby20140304
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range:", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("OutPut to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value
Set OutRng = OutRng.Offset(1, 0)
Next
Next
End Sub
3. انقر فوقتشغيلأو اضغط علىF5 لتشغيل كود VBA. بعد ذلك، سيظهر مربع حوار على الشاشة—فاختر نطاق البيانات الذي تريد إنشاء القائمة منه. راجع لقطة الشاشة:
5. انقر فوقموافق، ثم اختر خلية لإخراج القائمة منها من مربع الحوار المنبثق، ثم انقر فوقموافق. راجع لقطة الشاشة:
بعد ذلك، يُنشأ نطاق البيانات كقائمة في الخلية المحددة.
إنشاء قائمة من نطاق باستخدام Kutools لـ Excel
الأداة المفيدة – Kutools لـ Excelتحتوي على دالةتحويل النطاقالتي يمكنها أيضًا إنشاء قائمة من نطاق بيانات بسرعة وسهولة.
Kutools لـ Excelتضم أكثر من 300 أداة مفيدة لبرنامج Excel. جرّبها الآن مجانًا دون أي قيود لمدة 30 يومًا! احصل عليها الآن
1. حدد نطاق البيانات الذي تريد تحويله إلى قائمة، ثم انقر فوقKutools > نطاق > تحويل النطاق. راجع لقطة الشاشة:
2. في مربع الحوار المنبثقتحويل النطاق، اختر الخيارنطاق إلى عمود واحد، ثم انقر فوقموافق. بعد ذلك، سيظهر مربع حوار جديد لتختار فيه خلية فارغة لإخراج القائمة — فانقر فوقموافق. راجع لقطة الشاشة:
 |
 |
 |
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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل