أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الاصدار الأول لشيت المرتبات الاوتوماتيك - حسام خطاب اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





اصلاح وتفعيل كود به معادلة

السلام عليكم اساتذتى واخوانى كل عام وانتم بخير جميعا أود ان اجد حل لمشكلة هذا الكود, فالكود به معادلة احب ان تنفذ على اك ..



09-08-2018 11:36 مساء
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 347
الاعجاب : 148
 offline 

السلام عليكم اساتذتى واخوانى كل عام وانتم بخير جميعا
أود ان اجد حل لمشكلة هذا الكود, فالكود به معادلة احب ان تنفذ على اكمل وجه فعندما اقوم بتفعيل الكود تظهر معى مشكلة فى صورة رسالة سوف ارسلها لكم هى والكود
ومضمون عمل الكود :بحيث اذا تواجد اى اسم تلميذ كغياب فى صفحة التقرير اليومى خلال يوم معين
فلابد ان يقوم الكود بكتابة حرف غ أمام نفس اسم التلميذ فى نفس اليوم وذلك فى صفحة الغيابات-ولابد ان لا تمحى هذه النتيجة وهى حرف غ حتى لو حذف غياب هذا اليوم من صفحة التقرير اليومى فهو يتغير يوميا
ولكم جزيل الشكر وبارك الله لكم جميعا
Sub FormulaCopy()
Range("F6:IE560").Formula = "=IF(AND(COUNTIF('ÇáÊÞÑíÑ Çáíæãí'!$C$63:$I$102,$B6)=1,COUNTIF('ÇáÊÞÑíÑ Çáíæãí'!$N$61,F$5)=1),""Û"","""")"
Sheet("ÇáÊÞÑíÑ Çáíæãí").Activate
Range("c63:h102").ClearContents
MsgBox "Done...", 64
End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
oMjpHn8ggv0dZZv
 
 
  Function Not WORK.rar   تحميل rar مرات التحميل :(6)
الحجم :(235.204) KB







10-08-2018 05:51 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 12
يتابعهم : 0
يتابعونه : 327
قوة السمعة : 14182
الاعجاب : 5279
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
حملت الملف وجربت زر الأمر المسمى "تفعيل المعادلة" لكن على ما يبدو أنه مرتبط بكود ليس موجوداً في الملف المرفق باسم sajida1 ...





10-08-2018 01:07 مساء
مشاهدة مشاركة منفردة [2]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 347
الاعجاب : 148
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
شكرا لك استاذى الكريم ياسر على سرعة الإٌجابة واعتذر من حضرتك على تأخرى فى الرد
ولكنى اريد ربطه بالكود الموجود فى الملف
بارك الله فيك وأكثر الله من أمثالك





10-08-2018 01:30 مساء
مشاهدة مشاركة منفردة [3]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 137
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 17
قوة السمعة : 995
الاعجاب : 275
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
السلام عليكم ورحمة الله
تعديل طفيف فى الكود لا يكاد يذكر
اليك الكود بعد التعديل
Sub FormulaCopy()
Range("F6:IE560").Formula = "=IF(AND(COUNTIF('التقرير اليومي'!$C$63:$I$102,$B6)=1,COUNTIF('التقرير اليومي'!$N$61,F$5)=1),""غ"","""")"
Sheets("التقرير اليومي").Activate
Range("c63:J102").ClearContents
MsgBox "Done...", 64
End Sub

أثارت هذه المشاركة إعجاب: Eslam Abdullah، هانى على،




10-08-2018 01:52 مساء
مشاهدة مشاركة منفردة [4]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 347
الاعجاب : 148
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
بارك الله فيك استاذنا الغالى
الكود قام بالفعل بمسح البيانات الموجودة فى المدى المحدد من صفحة التقرير اليومى
ولكنه لم ينفذ الجزء الأهم وهو وضع حرف غ أمام اسم التلميذ الغائب فى نفس اليوم  وذلك فى صفحة الغيابات فبالتالى لم يقم الكود بتنفيذ المعادلة الموجودة فى هذه الصفحة قبل مسح البيانات
ياريت أجد حل !





10-08-2018 05:58 مساء
مشاهدة مشاركة منفردة [5]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 347
الاعجاب : 148
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
للرفع جزاكم الله كل خير





11-08-2018 12:14 صباحا
مشاهدة مشاركة منفردة [6]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 347
الاعجاب : 148
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
للرفع رفع الله قدركم





11-08-2018 06:53 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 12
يتابعهم : 0
يتابعونه : 327
قوة السمعة : 14182
الاعجاب : 5279
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
رغم أن الموضوع غير واضح بشكل كبير بالنسبة لي ..جرب الكود التالي عله يفي بالغرض
Sub FormulaCopy()
    Application.ScreenUpdating = False
    With ThisWorkbook.Worksheets("الغيابات").Range("F6:IE560")
        .Formula = "=IF(AND(COUNTIF('التقرير اليومي'!$C$63:$I$102,$B6)=1,COUNTIF('التقرير اليومي'!$N$61,F$5)=1),""غ"","""")"
        .Value = .Value
    End With

    With ThisWorkbook.Worksheets("التقرير اليومي")
        .Range("C63:J102").ClearContents
    End With
    Application.ScreenUpdating = True

    MsgBox "Done...", 64
End Sub

أثارت هذه المشاركة إعجاب: هانى على،




11-08-2018 12:07 مساء
مشاهدة مشاركة منفردة [8]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 347
الاعجاب : 148
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
جزاك الله كل خير استاذى الكبير ياسر وشكرا على حسن تعاون حضرتك
الكود كده تمام -ولكن هناك نقطة واحدة تنقصه
فهو يقوم بتفعيل المعادلة فعلا وكتابة حرف غ امام التلميذ الغائب فى صفحة الغيابات ويقوم ايضا فى نفس الوقت بمسح التلاميذ فى هذا اليوم من صفحة التقرير اليومى لحد كده الكود ماشى تمام
ولكن تظهر المشكلة عندما أقوم بتسجيل يوم غياب جديد فعند تفعيل الكود يقوم بمحو الغياب المسجل سابقا وكتابة حرف غ امام التلاميذ المسجلين لليوم الجديد فقط
أتمنى ان اجد حل استاذى الكريم -جزاك الله كل خير





11-08-2018 12:53 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 12
يتابعهم : 0
يتابعونه : 327
قوة السمعة : 14182
الاعجاب : 5279
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
جرب التعديل التالي عله يكون المطلوب ...
Sub FormulaCopy()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim x           As Variant

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("التقرير اليومي")
        Set sh = ThisWorkbook.Worksheets("الغيابات")
    
        x = Application.Match(ws.Range("N61").Value2, sh.Rows(5), 0)
        If Not IsError(x) Then
            With sh.Range(sh.Cells(6, x), sh.Cells(sh.Cells(Rows.Count, 2).End(xlUp).Row, x))
                .Formula = "=IF(AND(COUNTIF('التقرير اليومي'!$C$63:$I$102,$B6)=1,COUNTIF('التقرير اليومي'!$N$61," & Split(sh.Cells(5, x).Address, "$")(1) & "$5)=1),""غ"","""")"
                .Value = .Value
            End With
    
            With ws
                .Range("C63:J102").ClearContents
            End With
        End If
    Application.ScreenUpdating = True

    MsgBox "Done...", 64
End Sub

أثارت هذه المشاركة إعجاب: هانى على، ali mohamed ali،




11-08-2018 01:05 مساء
مشاهدة مشاركة منفردة [10]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 347
الاعجاب : 148
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
وبالفعل هو ده المطلوب استاذى الكريم
احسنت بارك الله فيك وجعله فى ميزان حسناتك ونور الله قبرك بالإيمان وجعله روضة من رياض الجنة وادخلك جنة الفردوس الأعلى بلا حسابٍ ولا سابقةِ عذابٍ
شكرا جزيلا لك استاذى الكريم وزادك الله من علمه وفضله

أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil،




11-08-2018 01:13 مساء
مشاهدة مشاركة منفردة [11]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 624
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 3014
الاعجاب : 973
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
أحسنت استاذ ياسر كود رائع بارك الله فيك وجزاك الله كل خير

أثارت هذه المشاركة إعجاب: هانى على، YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


11-08-2018 02:25 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 12
يتابعهم : 0
يتابعونه : 327
قوة السمعة : 14182
الاعجاب : 5279
 offline 
look/images/icons/i1.gif اصلاح وتفعيل كود به معادلة
وجزيتم خيراً إخواني بمثل ما دعوتم لي وزيادة ومشكور على دعواتكم الطيبة المباركة
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
موقع لتحميل برامج وتفعيلاتها بسرعه ahmed galal ebrahim
12 677 Khairi
كتابة وتفعيل معادلة SumProduct في VBA Abo Sohaib
5 97 salim
اضافة زر تعديل معتمد على بيانات ليست بوكس وتفعيل خلايا صفها taha hussian
7 256 YasserKhalil
اضافة زر تعديل معتمد على بيانات ليست بوكس وتفعيل خلايا صفها taha hussian
3 182 YasserKhalil

الكلمات الدلالية
اصلاح ، وتفعيل ، معادلة ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 01:54 صباحا

أعلن هنا
أعلن هنا
أعلن هنا