جلال الجمال_ابو أدهم قام بنشر أكتوبر 24, 2016 قام بنشر أكتوبر 24, 2016 تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة الخلية الاجبارية تم ارفاق كود الحل من الفاضل _ أ / أبوعبد الله مرفق الملف force to fill.rar و مرفق الكود Private Sub Worksheet_Activate() For Each cell In Range("my_rng") If cell.Value = "" Then MsgBox "fill cell " & cell.Address cell.Select End If Next cell End Sub و يمكن تعديل نطاق الخلايا من تعديل نطاق my_rng و لا تنسونا من صالح الدعاء
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.