مرحبا،
أنا أعمل في Excel 2013 ،
أحتاج إلى عامل التصفية التلقائي "# N / A" في العمود "F" ، إذا كانت تصفية "# N / A" لا توجد بيانات بالعنوان ، فإن الكود "الانتقال إلى 0:" يفعل ...
لكن ، الكود الخاص بي لا يعمل ، انتقل إلى 0:
الاختبارات الفرعية ()
إدراج مرشح و # N / A نسخ ولصق
'VBA - إيقاف تشغيل التصفية التلقائية من الرمز
إذا كان ActiveSheet.AutoFilterMode ثم
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range ("A1"). التصفية التلقائية ---> تشغيل التصفية التلقائية
إنهاء حالة
مرشح تلقائي للخلايا الفارغة في العمود الثاني
خافت الصف الأخير بطول
LastRow = النطاق ("B" & Rows.Count). النهاية (xlUp). الصف
في خطأ ، استئناف التالي 'إذا كان التصفية ، فلن تنتقل البيانات بعد ذلك
ActiveSheet.Range ("$ A $ 1: $ F" & LastRow). حقل AutoFilter: = 6 ، Criteria1: = "# N / A" "مرشح الخلايا غير القابلة للتطبيق ، ثم حدد الخلايا المرئية
Range ("$ A $ 2: $ F" & LastRow) .SpecialCells (xlCellTypeVisible). اختر
إيقاف لصق النسخ إذا كان النطاق المفلتر لا يحتوي على بيانات
If Range ("A1: F" & LastRow) .SpecialCells (xlCellTypeVisible). العد> 1 ثم
النطاق ("$ B $ 2: $ D" & LastRow) .SpecialCells (xlCellTypeVisible). اختر
الاختيار
'افعل شيئا .........
Application.CutCopyMode = خطأ
آخر
ActiveSheet.AutoFilterMode = خطأ
الذهاب إلى 0:
إنهاء حالة
'افعل شيئا .........
0:
نهاية الفرعية
الرجاء مساعدتي ، شكرا مقدما
أوقف لصق النسخ إذا كان النطاق الذي تمت تصفيته لا يحتوي على data.zip
أوقف لصق النسخ إذا كان النطاق الذي تمت تصفيته لا يحتوي على data.zip
أنا أعمل في Excel 2013 ،
أحتاج إلى عامل التصفية التلقائي "# N / A" في العمود "F" ، إذا كانت تصفية "# N / A" لا توجد بيانات بالعنوان ، فإن الكود "الانتقال إلى 0:" يفعل ...
لكن ، الكود الخاص بي لا يعمل ، انتقل إلى 0:
الاختبارات الفرعية ()
إدراج مرشح و # N / A نسخ ولصق
'VBA - إيقاف تشغيل التصفية التلقائية من الرمز
إذا كان ActiveSheet.AutoFilterMode ثم
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range ("A1"). التصفية التلقائية ---> تشغيل التصفية التلقائية
إنهاء حالة
مرشح تلقائي للخلايا الفارغة في العمود الثاني
خافت الصف الأخير بطول
LastRow = النطاق ("B" & Rows.Count). النهاية (xlUp). الصف
في خطأ ، استئناف التالي 'إذا كان التصفية ، فلن تنتقل البيانات بعد ذلك
ActiveSheet.Range ("$ A $ 1: $ F" & LastRow). حقل AutoFilter: = 6 ، Criteria1: = "# N / A" "مرشح الخلايا غير القابلة للتطبيق ، ثم حدد الخلايا المرئية
Range ("$ A $ 2: $ F" & LastRow) .SpecialCells (xlCellTypeVisible). اختر
إيقاف لصق النسخ إذا كان النطاق المفلتر لا يحتوي على بيانات
If Range ("A1: F" & LastRow) .SpecialCells (xlCellTypeVisible). العد> 1 ثم
النطاق ("$ B $ 2: $ D" & LastRow) .SpecialCells (xlCellTypeVisible). اختر
الاختيار
'افعل شيئا .........
Application.CutCopyMode = خطأ
آخر
ActiveSheet.AutoFilterMode = خطأ
الذهاب إلى 0:
إنهاء حالة
'افعل شيئا .........
0:
نهاية الفرعية
الرجاء مساعدتي ، شكرا مقدما
أوقف لصق النسخ إذا كان النطاق الذي تمت تصفيته لا يحتوي على data.zip
أوقف لصق النسخ إذا كان النطاق الذي تمت تصفيته لا يحتوي على data.zip