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



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


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


نتائج البحث عن ردود العضو :محمد الدسوقى
عدد النتائج (101) نتيجة
19-02-2018 10:58 مساء
icon تسلسل أرقام لعناصر فرعية | الكاتب :محمد الدسوقى |المنتدى: اكسيل شروحات ودروس
 
بارك الله فيك أستاذى الجليل / إسلام
رائع ودائما نجمك ساطع فى عالم الاكسيل والبرمجة
زادك الله علما نافعا
تقبل تحياتى
17-02-2018 09:31 مساء
icon كود فك حماية ورقة معلومه كلمة مرورها | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
أخى الكريم
بالفعل نسيت فى الكود السابق وأعطيت عملية اللصق نفس الورقة ( جلاء ) ونسيت أنه هناك ورقة أخرى ( اداريون )
تفضل تعديل الكود
Sub export_data()
'-----------------------------------------------------
Dim WS As Workbook
Dim WB As Workbook
   
Set WS = ActiveWorkbook
Set WB = Workbooks.Open("E:2.xls")
'==================================================================
Application.ScreenUpdating = False
WB.Activate
'-----------
             Sheets("جلاء").Activate
             ActiveSheet.Unprotect Password:="222"
     
WS.Activate
'-----------
     Sheets("ورقة1").Range("B3").Activate
       ActiveCell.Copy

WB.Activate
'-----------
Sheets("جلاء").Range("Z3").Activate
            ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                      Range("A1").Select
                   
Sheets("اداريون").Activate
                          Range("B3").Activate
            ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                      Range("A1").Select
    
Application.CutCopyMode = False
Sheets("جلاء").Select
     ActiveSheet.Protect Password:="222"
'--------------------------------------
WB.Save
       WB.Close
'--------------------------------------
 WS.Activate
         Sheets("ورقة1").Range("C10").Value = "تم التغيير"
WS.Save
'--------------------------------------
Application.ScreenUpdating = True
End Sub




أما امتداد الملف .xls وضعته فى الكود بناء على الملف المرسل منكم ويمكن تغيير هذا الامتداد كما تشاء
17-02-2018 01:27 صباحا
icon كود فك حماية ورقة معلومه كلمة مرورها | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
بارك الله فيك أخى / ناصر سعيد
وجزاكم الله خيرا 
وادعو الله أن يكون هذا هو مبتغى أخونا / ظفر الله عسكر
17-02-2018 01:25 صباحا
icon أحدث إصدار لشيت كنترول ابتدائى 2018 ـ مدارس رسمية ولغات | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 
أستاذى الغالى / ناصر سعيد
عودا حميدا
برجاء ذكر اسم ورقة واحدة بالتحديد بها هذه الملحوظة 
حيث جربت صفحات البرنامج يعطى آخر العام ( دون المستوى ) ـ كالمفترض الطبيعى

 
16-02-2018 10:13 مساء
icon أحدث إصدار لشيت كنترول ابتدائى 2018 ـ مدارس رسمية ولغات | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 
الأستاذ الفاضل /  إبراهيم السيد
إن شاء الله ساقوم بهذه الاضافات فى القريب العاجل وسأعلن عنها هنا فى هذا الموقع العظيم مع تحديث روابط تحميل البرنامج
تقبل تحياتى
16-02-2018 05:34 مساء
icon كود فك حماية ورقة معلومه كلمة مرورها | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
الأخ الكريم / ظفر الله عسكر
تفضل المرفق به الكود المطلوب  لعله يفى بالغرض المطلوب
مع ملاحظة أن امتداد الملف المطلوب فتحه هو .xls ، ويجب أن يكون فى البارتشن E

Sub export_data()
'-----------------------------------------------------
Dim WS As Workbook
Dim WB As Workbook
   
Set WS = ActiveWorkbook
Set WB = Workbooks.Open("E:\2.xls")
'==================================================================
Application.ScreenUpdating = False
WB.Activate
'-----------
             Sheets("جلاء").Activate
             ActiveSheet.Unprotect Password:="222"
     
WS.Activate
'-----------
     Sheets("ورقة1").Range("B3").Activate
       ActiveCell.Copy

WB.Activate
'-----------
Sheets("جلاء").Range("Z3").Activate
            ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                      Range("A1").Select
                   
Sheets("جلاء").Range("Z3").Activate
            ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                      Range("A1").Select
    
Application.CutCopyMode = False
Sheets("جلاء").Select
     ActiveSheet.Protect Password:="222"
'--------------------------------------
WB.Save
       WB.Close
'--------------------------------------
 WS.Activate
         Sheets("ورقة1").Range("C10").Value = "تم التغيير"
WS.Save
'--------------------------------------
Application.ScreenUpdating = True
End Sub


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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
-------------------------

تقبل تحياتى
13-02-2018 09:07 مساء
icon نص متحرك بشكل رائع على الفورم مع وضع روابط للنت | الكاتب :محمد الدسوقى |المنتدى: اكسيل شروحات ودروس
 
المعلم الفاضل والمبدع دائما / حسام
بارك الله فيك وجزاك عنا خيرا
كود بسيط وسهل ولكنه يحمل فى محتواه أفكار أكثر من رائعة
أسأل الله أن يمن عليك دائما بالعلم النافع
تقبل تحياتى
11-02-2018 08:39 مساء
icon حذف محتوى نطاق محدد مع الاحتفاظ بالمعادلات - أكاديمية الصقر للتدريب | الكاتب :محمد الدسوقى |المنتدى: اكسيل شروحات ودروس
 
بارك الله فيك أستاذ حسام
دائما باحث عن الدرر فى أعماق الاكسيل
تقبل تحياتى
09-02-2018 10:41 مساء
icon أحدث إصدار لشيت كنترول ابتدائى 2018 ـ مدارس رسمية ولغات | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 
الأستاذ الفاضل / mo_shoeb1
إن شاء الله فى التعديلات القادمة سنلبى كل طلباتكم ومقتراحاتكم الغالية
وسوف أقوم بالتنويه على ذلك فى مشاركة داخل هذا الموضوع وتحديث الروابط أيضا
تقبل تحياتى
09-02-2018 03:28 مساء
icon شيت الدور التاني .. للمدرسين | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
أخى الكريم / malik
فضلا منكم أرفق ملف عملك فى هذه المشاركة لكى يطلع عليه الأعضاء
وسنحاول جميعا بقدر الامكان مساعدتكم
تقبل تحياتى
06-02-2018 08:23 مساء
icon الدرس الاول التعرف على الاكسس | الكاتب :محمد الدسوقى |المنتدى: اكسيس شروحات ودروس
 
بارك الله فيك أخى / عبدالجيد أبومحمد
واصل بلا فواصل وإن شاء الله متابعين معك
تقبل تحياتى

 
06-02-2018 01:24 مساء
icon أحدث إصدار لشيت كنترول ابتدائى 2018 ـ مدارس رسمية ولغات | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 
الأستاذ الفاضل / ابو عبد الرحمن
بالنسبة الطالب الذى تم نقله إليكم مؤخرا فهناك حلان :
يوضع فى آخر الأسماء عادى خالص ويأخذ رقم جلوس تلثائيا الأخير ويتم رصد درجاته فى التيرم التانى الأخير عادى
معقده شويه : أ )  يتم معرفة مكانه بعد الأبجدة يدويا أولا    
ب) يتم تفريغ مكانه من البيانات الأساسية وذلك بنسخ جميع الأسماء تحته وترك سطر فارغ ،
                  ثم لصق جميع الأسماء المنسوحة تحت هذا السطر وكذلك بالنسبة لدرجات الملف والتحريرى    
ج) يتم إدخال بيانات الطالب المحول فى السطر الفارغ
مع أنى أميل إلى الخيار الأول بسيط ومفيد
ولو الأمر صعب عليك كلمنى هاتفيا للتوضيح
تقبل تحياتى

 

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






الساعة الآن 06:05 صباحا

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