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

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




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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :محمد الدسوقى
عدد النتائج (512) نتيجة
25-05-2019 10:54 مساء
icon شيت كنترول المرحلة الاعدادية 2019 ـ برنامج كنوز | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
18-05-2019 10:54 مساء
icon تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد | الكاتب :محمد الدسوقى |المنتدى: موضوعات ياسر خليل أبو البراء
 
Private Sub CopySheet(ws As Worksheet)
17-05-2019 02:45 مساء
icon شيت كنترول المرحلة الاعدادية 2019 ـ برنامج كنوز | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 
المشاركة الأصلية كتبت بواسطة:ياسر الشبراوى محمود
أستاذنا الغالى والمحترم  أ / محمد توجد ملاحظة بالنسبة للطلبة المنازل فى الشيت التفصيلى آخر العام مجموع الفصلين الدراسيين يجمع مجموع نصف العام مع امتحان آخر العام وليس مجموع آخر العام وبالتالى الطالب يكون حاصل على أكثر من 50 % وله دور ثان مثال فى مادة اللغة العربية يجمع الخلية Q + الخلية T وليست الخلية U الرجاء من سيادتكم متابعة وذلك ولكم جزيل الشكر

======================================
مشكور جدا أستاذى الفاضل على هذه الملحوظة التى كانت موجودة بالفعل والحمد لله تجنبنا الخطأ وتم التعديل عليها
يمكنكم مراجعة الموضوع والاطلاع على كل حديث للبرنامج
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
ستجد التعديل فى الروابط الجديدة



09-05-2019 09:44 مساء
icon شيت كنترول المرحلة الاعدادية 2019 ـ برنامج كنوز | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 بالنسبة لبرنامج كنترول شيت إعدادي توجد ملحوظتان:
الأولى : الدرجة الفعلية لمادة الكومبيوتر وتكنولوجيا المعلومات من 20 فقط لكن الشيت بيخرجها على أساس أنها 40
الثانية : لا بوجد عمود ( متوسط الفصلين الدراسيين )في كل المواد الدراسية
الرجاء من حضرتك ملاحظة ذلك والتكرم بالتعديل [/quote]
================
بالنسبة للملحوظة ألولى تم التعديل عليها منذ فترة فى النسخة النهائية لكنترول المرحلة الاعدادية
أما الملحوظة الثانية : متوسط الفصلين الدراسيين لكل مادة على حده : ..... ليس لها داعى حبث تعمل على كبر حجم الشيت بدون فائدة 
09-05-2019 09:38 مساء
icon شيت كنترول ابتدائى 2019 ـ برنامج كنوز | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 
المشاركة الأصلية كتبت بواسطة:وليد عبدالرازق
السلام عليكم ورحمه الله وبركاته
جزاكم الله خيرا يا استاذ محمد وربنا يجعله في ميزان حسناتك البرنامج رائع جدا بس انا عندي بعض المشاكل وهي أن اللغة تظهر بشكل غريب وثانيا أن خانة الأنشطة معموله في البرنامج من ١٠٠ ولكن في الشيت الورقي مرصوده من ٢٠ فلو سمحت كيف يمكن تغيرها وثالثا البرنامج لا يدعم إضافة صف أو حذفه فلذلك عندما نقلت الأسماء بشكل خاطئ وعندما حاولت عمل cut و paste تظهر لي خطأ في الدول الخاصه بتاريخ الميلاد 
واخيرا جزاكم الله خيرا على هذا العمل الرائع وارجو من حضرتك الرد علي استفساري وشكرا جزيلا لحضرتك

===========================================
مشكلة اللغة الغريبة التى تظهر حلها بسيط يمكن التواصل فون وحضرتك فاتح الجهاز لأنها من الوندوز وليس من البرنامج
أما عن الأخطاء التى تتحدث عنها فالسبب الرئيسى هو محاولة حذف أو اضافة صفوف أو أعمدة بطريق ( قص ـ لصق ) مما ادى إلى تمزيق بطن الشيت ( إن صح التعبير ) 
وخطأ الرصد من 100 والبرنامج بيحسبها من 20 ........ هذا هو الطبيعى 

03-05-2019 09:31 مساء
icon ترحيل بيانات بشرط الاختيار من القائمة المنسدلة | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 الحمد لله الذى بنعمته تتم الصالحات
03-05-2019 02:52 مساء
icon ترحيل بيانات بشرط الاختيار من القائمة المنسدلة | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
اتفضل أستاذ على الملف بعد الإضافات المطلوب وبه شرح الأسطر الهامة المطلوبة للترحيل
حاول تفحص الكود والتدرج به لفهمة ليمكن التطبيق عليه فى ملفات أخرى لتتم الفائدة
Sub Test() ' اسم الماكرو الذى سيقوم بعملية الترحيل
Dim ws As Worksheet, sh As Worksheet
Set ws = Sheets("تقرير اعاقات") 'اسم ورقة العمل الهدف الذى سيتم الترحيل إليها
Set sh = Sheets("اعاقات") 'اسم ورقة العمل المصدر الذى سيتم الترحيل مها
Dim Arr As Variant, Arr1 As Variant, Temp As Variant
Dim LR As Long, i As Long, j As Long, P As Long


LR = sh.Cells(Rows.Count, 3).End(xlUp).Row 'سيتم ترحيل البيانات إلى آخر صف يوجد به بيانات فى ورقة العمل المصدر

Application.ScreenUpdating = False
'----------------------------------------------
ws.Range("C4:J2500").ClearContents 'مسح النطاق الذى سيتم الترحيل البيانات إليه كاملا قبل عملية الترحيل الجديدة
Arr = sh.Range("A4:J" & LR).Value 'تحديد مدى مصفوفة البيانات التى سيتم الترحيل منها
Arr1 = Array(3, 4, 5, 6, 7, 8, 9, 10) 'أرقام الأعمدة التى سيتم ترحيلها من ورقة العمل إلى ورقة الهدف

ReDim Temp(1 To UBound(Arr, 1) + 1, 0 To UBound(Arr1) + 1)
For i = 1 To UBound(Arr)
'-----------------------------------
'الشرط الذى سيتم الترحيل بناء عليه وهو أن يكون قيمة العمود العاشر فى المصفوفة مساويا لقيمة الخلية التى بها اسم الدولى المختارة من القائمة

If Arr(i, 10) = sh.[D1].Value Then
'-----------------------------------
P = P + 1
For j = 0 To UBound(Arr1)
Temp(P, j) = Arr(i, Arr1(j))

Next j
End If
Next i
'تحديد أول خلية سيتم الترحيل إليها فى صفحة الهدف

If P > 0 Then ws.Range("C4").Resize(P, UBound(Temp, 2)).Value = Temp

'الانتقال إلى صفحة الهدف بعد اجراء عملية الترحيل
ws.Activate
'***************************************************************************
Application.ScreenUpdating = True
Application.Visible = True
End Sub



01-05-2019 11:56 مساء
icon ترحيل بيانات بشرط الاختيار من القائمة المنسدلة | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
أتقضل أحى الكريم
الملف بعد وضع الكود الخاص بالترحيل بناء على الشرط المذكور
وهذا هو الكود المستخدم فى الملف
Sub Test()
Dim ws As Worksheet, sh As Worksheet
Set ws = Sheets("تقرير اعاقات")
Set sh = Sheets("اعاقات")
Dim Arr As Variant, Arr1 As Variant, Temp As Variant
Dim LR As Long, i As Long, j As Long, P As Long
LR = sh.Cells(Rows.Count, 3).End(xlUp).Row
Application.ScreenUpdating = False
'----------------------------------------------
ws.Range("C4:I13").ClearContents
Arr = sh.Range("A4:I" & LR).Value

Arr1 = Array(3, 4, 5, 6, 7, 8, 9)

ReDim Temp(1 To UBound(Arr, 1) + 1, 0 To UBound(Arr1) + 1)
For i = 1 To UBound(Arr)
'-----------------------------------
If Arr(i, 9) = sh.[D1].Value Then
'-----------------------------------
P = P + 1
For j = 0 To UBound(Arr1)
Temp(P, j) = Arr(i, Arr1(j))

Next j
End If
Next i
If P > 0 Then ws.Range("C4").Resize(P, UBound(Temp, 2)).Value = Temp
'***************************************************************************
Application.ScreenUpdating = True
Application.Visible = True
End Sub


24-04-2019 07:38 مساء
icon ماوظيفة هذا الكود | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك أخى / ابو البراء
21-04-2019 07:12 مساء
icon دالة معرفة لتفقيط العمر (للمراجعة) | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
بارك الله فيك أخى الحبيب / أبو البراء

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

-----------------------------------------------------------

إن شاء الله دالة رائعة كما تعودنا منكم الابداع دائما

جارى التحميل والتجربــة 

123





19-04-2019 09:27 مساء
icon 1- مقدمة فى قواعد البيانات- معكم فيها - م/عبجالجيد محمد | الكاتب :محمد الدسوقى |المنتدى: اكسيس شروحات ودروس
 
بارك الله فيك أخى عبد الجيد
ومنتظرين إن شاء الله الدروس والتطبيق العملى لها
والابداع المعهود منك دائما 
142

14-04-2019 08:49 مساء
icon أكسيل للمبتدئين من الصفر بداية نحو الاحتراف مقدمه من ميكروسوفت - حسام خطاب | الكاتب :محمد الدسوقى |المنتدى: اكسيل شروحات ودروس
 
بارك الله فيك أستاذنا الفاضل / حسام
وجعلكم الله دائما نبراسا للعلم والعطاء والخير أينما كان
142


الصفحة 1 من 43 < 1 2 3 4 43 > الأخيرة »





الساعة الآن 11:18 مساء

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