اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اخذ الراى


الردود الموصى بها

السلام عليكم / اشكركم على المجهود المبذول من جانب جميع الاعضاء وخاصه كل الشكر لكل القائمين بهذا العمل

انا اعمل فى مجال الموارد البشريه ومرفق ملف احتاج الى مساعده فيه

باختصار شديد نظام العمل بالشركه التى اعمل بها 24 ساعه عمل منقسمه الى

نوبتين نوبه صباحيه منالساعه 8 الى الساعه 20

ونوبه مسائيه من الساعه 20 الى الى الساعه 8

اقوم بتفريغ ذلك على شيت اكسل يدويا طبقا للنوذج المرفق

ومن خلال يستخرج عدد ايام الصبخ والمسائى التى عملها كل موظف

وكل ما طلبه هلى يوجد شى اسهل من الذى اقوم به

ابريل2011.rar

رابط هذا التعليق
شارك

عليكم السلام

هذا كود لتنفيذ المطلوب

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

رابط هذا التعليق
شارك

بارك الله فيك وجزاك الله كل خير

عليكم السلام

هذا كود لتنفيذ المطلوب

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

المرفق

رابط هذا التعليق
شارك

طب لو انا عايز اعملها على خلايا متباعده زى 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

رابط هذا التعليق
شارك

اخي الفاضل

بعد اذن الاستاذ الفاضل ابوعمر

الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت

فما هو المقصود name manger

ابواحمد

رابط هذا التعليق
شارك

ابو عمر و ابو احمد اشكركم كثيرا

مرفق الملف الموضح به ماذا اريد

اشكركم جدا على تعاونكم

اخي الفاضل

بعد اذن الاستاذ الفاضل ابوعمر

الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت

فما هو المقصود name manger

ابواحمد

نطاق متعدد.rar

رابط هذا التعليق
شارك

اشكركم تم فعلها بااضافه , بعد اسم النطاق

Set myrng = Range("azzam1,azzam2,azzam3")

ابو عمر و ابو احمد اشكركم كثيرا

مرفق الملف الموضح به ماذا اريد

اشكركم جدا على تعاونكم

اخي الفاضل

بعد اذن الاستاذ الفاضل ابوعمر

الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت

فما هو المقصود name manger

ابواحمد

رابط هذا التعليق
شارك

الأخ جمال

شكرا كثيرا لك

ولك مثل دعائك لى

==

الأخ azzam egy

منبهر به و هو يسأل و يعلم نفسه

أعتقد السؤال الثانى أسهل

طب هل فى امكانيه لمسح علامه ْX بعد عملها

سيكون التعديل فى جملة if

If myc = "" Then

تصير

If myc = "x" Then

myc = ""

وفقك الله

رابط هذا التعليق
شارك

اخى الفاضل ابو عمر لم يفعل رجاء توضيخ

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information