احمد عـــزام قام بنشر مايو 14, 2011 قام بنشر مايو 14, 2011 السلام عليكم / اشكركم على المجهود المبذول من جانب جميع الاعضاء وخاصه كل الشكر لكل القائمين بهذا العمل انا اعمل فى مجال الموارد البشريه ومرفق ملف احتاج الى مساعده فيه باختصار شديد نظام العمل بالشركه التى اعمل بها 24 ساعه عمل منقسمه الى نوبتين نوبه صباحيه منالساعه 8 الى الساعه 20 ونوبه مسائيه من الساعه 20 الى الى الساعه 8 اقوم بتفريغ ذلك على شيت اكسل يدويا طبقا للنوذج المرفق ومن خلال يستخرج عدد ايام الصبخ والمسائى التى عملها كل موظف وكل ما طلبه هلى يوجد شى اسهل من الذى اقوم به ابريل2011.rar
عبد الفتاح كيرة قام بنشر مايو 14, 2011 قام بنشر مايو 14, 2011 عليكم السلام هذا كود لتنفيذ المطلوب Sub MakeX() Dim myrng As Range, myc As Range Set myrng = Range("kemas") For Each myc In myrng If myc = "" Then myc = "X" End If Next myc Set myrng = Nothing End Sub المرفق ابريل2011kemas.rar
دغيدى قام بنشر مايو 14, 2011 قام بنشر مايو 14, 2011 أخى الفاضل / أبو عمر الله ينور عليك وعلى والديك أنا قاعد وفاضى .. ومستمتع بالفرجة استبدلت ( x ) بلفظ الجلالة فكانت روعة
احمد عـــزام قام بنشر مايو 14, 2011 الكاتب قام بنشر مايو 14, 2011 بارك الله فيك وجزاك الله كل خير عليكم السلام هذا كود لتنفيذ المطلوب Sub MakeX() Dim myrng As Range, myc As Range Set myrng = Range("kemas") For Each myc In myrng If myc = "" Then myc = "X" End If Next myc Set myrng = Nothing End Sub المرفق
احمد عـــزام قام بنشر مايو 14, 2011 الكاتب قام بنشر مايو 14, 2011 طب لو انا عايز اعملها على خلايا متباعده زى name manger لكن كلهم بعيد عن بعض الكود يبقى اذاى Sub MakeX() Dim myrng As Range, myc As Range Set myrng = Range("kemas") For Each myc In myrng If myc = "" Then myc = "X" End If Next myc Set myrng = Nothing End Sub
عبدالله المجرب قام بنشر مايو 14, 2011 قام بنشر مايو 14, 2011 اخي الفاضل بعد اذن الاستاذ الفاضل ابوعمر الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت فما هو المقصود name manger ابواحمد
احمد عـــزام قام بنشر مايو 14, 2011 الكاتب قام بنشر مايو 14, 2011 ابو عمر و ابو احمد اشكركم كثيرا مرفق الملف الموضح به ماذا اريد اشكركم جدا على تعاونكم اخي الفاضل بعد اذن الاستاذ الفاضل ابوعمر الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت فما هو المقصود name manger ابواحمد نطاق متعدد.rar
احمد عـــزام قام بنشر مايو 14, 2011 الكاتب قام بنشر مايو 14, 2011 اشكركم تم فعلها بااضافه , بعد اسم النطاق Set myrng = Range("azzam1,azzam2,azzam3") ابو عمر و ابو احمد اشكركم كثيرا مرفق الملف الموضح به ماذا اريد اشكركم جدا على تعاونكم اخي الفاضل بعد اذن الاستاذ الفاضل ابوعمر الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت فما هو المقصود name manger ابواحمد
احمد عـــزام قام بنشر مايو 14, 2011 الكاتب قام بنشر مايو 14, 2011 طب هل فى امكانيه لمسح علامه ْX بعد عملها بمعنى بعد الضغط على ذر وضع X اريد بيضاء مره اخرى
عبد الفتاح كيرة قام بنشر مايو 14, 2011 قام بنشر مايو 14, 2011 الأخ جمال شكرا كثيرا لك ولك مثل دعائك لى == الأخ azzam egy منبهر به و هو يسأل و يعلم نفسه أعتقد السؤال الثانى أسهل طب هل فى امكانيه لمسح علامه ْX بعد عملها سيكون التعديل فى جملة if If myc = "" Then تصير If myc = "x" Then myc = "" وفقك الله
احمد عـــزام قام بنشر مايو 15, 2011 الكاتب قام بنشر مايو 15, 2011 اخى الفاضل ابو عمر لم يفعل رجاء توضيخ ub azzamdelletex() Dim myrng As Range, myc As Range Set myrng = Range("page1,page2,page3,page4,page5,page6,page7,page8,page9,page10,page11,page12,page13") For Each myc In myrng If myc = "x" Then myc = "" End If Next myc Set myrng = Nothing End Sub
عبد الفتاح كيرة قام بنشر مايو 15, 2011 قام بنشر مايو 15, 2011 هذه ال page(s) ما هى هل هى نطاقات أم صفحات ؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.