كيفية تجميع الخلايا المرئية فقط في Excel؟
إذا كانت لديك قائمة بالبيانات التي تمت تصفيتها ، الآن ، فأنت تحتاج فقط إلى ربط الخلايا المرئية فقط وتجاهل الخلايا المخفية للحصول على النتيجة المجمعة التالية. كيف يمكنك إنهاء هذه المهمة بسرعة وسهولة في Excel؟
ربط قيم الخلية المرئية فقط في خلية واحدة برمز VBA
ربط قيم الخلية المرئية فقط في خلية واحدة برمز VBA
يمكنك إنشاء وظيفة تعريف المستخدم لحل هذه الوظيفة ، يرجى اتباع الخطوات التالية:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
رمز فبا: تسلسل قيم الخلايا المرئية فقط:
Private Function ConcatenateVisible(xRg As Variant, sptChar As String)
'Updateby Extendoffice
Dim rg As Range
For Each rg In xRg
If (rg.EntireRow.Hidden = False) And (rg.EntireColumn.Hidden = False) Then
ConcatenateVisible = ConcatenateVisible & rg.Value & sptChar
End If
Next
ConcatenateVisible = Left(ConcatenateVisible, Len(ConcatenateVisible) - Len(sptChar))
End Function
3. ثم احفظ وأغلق هذا الرمز ، عد إلى ورقة العمل ، وأدخل هذه الصيغة: = concatenatevisible (B2: B10، "-") (B2: B10 هو نطاق البيانات المفلترة الذي تريد دمجه ، "-"هو الفاصل لفصل القيم المجمعة ، يمكنك تغييرها حسب حاجتك.) إلى خلية فارغة حيث تريد تحديد موقع النتيجة المدمجة ، ثم اضغط أدخل مفتاح للحصول على النتيجة. انظر لقطة الشاشة:
ملاحظات: باستخدام هذه الوظيفة المحددة بواسطة المستخدم ، سيتم تغيير النتيجة المجمعة ببياناتك التي تمت تصفيتها ديناميكيًا ، على سبيل المثال ، إذا قمت بتصفية منتج KTO ، فسيتم تغيير النتيجة المدمجة إلى البيانات المصفاة الجديدة. انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!