اذهب الي المحتوي
أوفيسنا

قنديل الصياد

06 عضو ماسي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2661

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    28

 نوع المحتوي 

كل منشورات العضو قنديل الصياد

  1. قنديل الصياد
    شكرا لك اخى واستاذى العزيز الاستاذ / عباس السماوى على كلامك الطيب جزاك الله خيرا
  2. قنديل الصياد
    دائما اخى واستاذى الحبيب الاستاذ / حماده عمر رائع ومتميز دائما
  3. قنديل الصياد
    اخى العزيز بالنسبة لحماية اسم ورقة العمل من التغيير فى اكسل 2010 قم بتنفيذ ما يوجد فى الصور التالية : قم اولا بالضغط عل كلمة مراحعة ثم حماية المصنف كالتالى : مرفق ملف وكلمة السر (123) المصنف1.rar
  4. قنديل الصياد
    اخى العزيز فكرة جميلة ولقد قمت بتنفيذيها واليك الملف بعد التعديل Book1.rar
  5. قنديل الصياد
    اخى العزيز تم عمل كود لطباعة الصفحة الحالية والتى يتم معاينتها مدار+قوئم.rar
  6. قنديل الصياد
    اخى العزيز قمت ايضا بمراسلة الاستاذ المهندس / محمد طاهر مدبر منتديات اوفيسنا على رفع النتائج الى موقعنا هذا وبالرغم من بعد الموضوع تماما عن نطاق المنتدى الا انه لم يبدى الرفض وسيتم التفكير فى الموضوع لاحقا
  7. قنديل الصياد
    اخى وحبيبى واستاذى القدير والرائع الاستاذ / حماده عمر دائما كلماتى لا تقدر ان تصف قدرك العالى فانت ذو قدر رفيع علما وادبا وخلقا جزاك الله خير اخى واستاذى الحبيب
  8. قنديل الصياد
    اخى العزيز شاشة افتتاحية اخرى لاكثر من مستخدم ويمكن ان تضيف مستخدمين اخرين وتقوم بتحديد صلاحيتهم المستخدم الاول حسام كلمة السر / 1964 المستخدم الثانى قنديل كلمة السر / 1023 ساقوم باذن الله لاحقا بشرح كيفية العمل تحياتى مرفق ملف شاشة افتتاحية.rar
  9. قنديل الصياد
    طريقة اخرى لعمل شاشة افتتاحية بنفس اسم المستخدم وكلمة السر تفضل المرفق Book1.rar
  10. قنديل الصياد
    أخى العزيز هل هذا ما تريد اسم المستخدم : حسام كلمة السر : 1964 ملفات مرفقة الشاشة الافتتاحية.rar
  11. قنديل الصياد
    كود لعرض جميع اوراق العمل الموجودة بالملف الكود Sub ShowWorkSheets() Dim mySheet As Worksheet For Each mySheet In Worksheets MsgBox mySheet.Name Next mySheet MsgBox "مع تحياتى / قنديل الصياد " End Sub مرفق ملف به التطبيق Book1.rar
  12. قنديل الصياد
  13. قنديل الصياد
    اخى العزيز ارفقت لك الملف على اوفيس 2010 واظن انه سيعمل على اوفيس 2013 ولو اضفت اى اسماء جديدة وضغطت على زر الترتيب سيقوم بالترتيب مرة اخرى لان المدى بالكود من b2 : b1000 يمكن ان تزيد عدد الطلاب الى 1000 طالب ويمكن التغيير فى الكود الى اكثر من ذلك او حسب ما تريد ملفات مرفقة المصنف1.rar
  14. قنديل الصياد
    شكرا لك استاذى واخى العزيز وعفوا لم اتنبه الى المعادلة فلك شكرى وامتنانى تحياتى وشكرا لاستاذى الكبير والجليل الاستاذ / عبد الله باقشير ان لم اجد بصمة منه فى ملفى ولكن وجوده فى الموضوع ومتابعته له امتنان وشرف غالى لاستاذ واخ جليل وفاضل
  15. قنديل الصياد
    اخى واستاذى العزيز تم فتح الملف ولكن لا توجد اى تعديلات شكرا لحضرتك واتمنى ان تقوم برؤية المعادلة التى تقوم بنقل وترتيب الاسماء والتعديل عليها حتى تعمل صحيحة مرفق ملف قمت بالتعديل عليه ولا يتبقى سوى معادلة ترتيب الاسم ولا اعرف اين الخطا الوارد بها Book1.rar
  16. قنديل الصياد
    استاذى العزيز شكرا على الاهتمام بالرد ولكن الملف يفتح ويختفى بسرعة ولم اقم بغتحه
  17. قنديل الصياد
    شكرا استاذى العزيز قمت بعمل المطلوب كما اردت ولكن توجد مشكلة بسيطة الدالة التى تقوم بترتيب للاسم حسب المجموع موجودة ولكن لا تقوم بعملها رجاءا من اساتذتى فى المنتدى حل هذه المشكلة وشكرا لكم اساتذتى الكرام مرفق الملف Book1.rar
  18. قنديل الصياد
    السلام عليكم اخوانى واساتذتى الاعزاء مرفق ملف به اوائل الصف برجاء التعديل بحيث يظهر التكرار كالتالى ( الاول \ الاول مكرر / الثانى / الثانى مكرر / الثالث / الرابع .... الخ ) Book1.rar
  19. قنديل الصياد
    السلام عليكم اخى واستاذى العزيز اليك ما طلبت الكود المستخدم فى الترتيب Sub الترتيب() Range("b2:b10000").Select Selection.Sort Key1:=Range("b2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub مرفق الملف بعد التعديل Classeur1.rar
  20. قنديل الصياد
    الدالة مرتبطة بكود vb فقط فم بنسخ الكود فى موديل فى الملف الجديد الكود المستخدم Function SheetNum(Optional celRef As Range) As Long With Application.Caller.Parent If celRef Is Nothing Then SheetNum = .Index Else SheetNum = celRef.Parent.Index End If End With End Function
  21. قنديل الصياد
    تحياتى اخى واستاذ الرائع الاستاذ / جمال عبد السميع
  22. قنديل الصياد
    رائع استاذنا الجميل الاستاذ/ جمال عبد السميع ولكن لى رجاء ان تشرح طريقة العمل تحياتى
  23. قنديل الصياد
    اخى العزيز ايضا جرب استخدام الكود التالي في حدث الورقة المراد حماية معادلات بها Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Not Intersect(Target, [a1:iv36536]) Is Nothing Then If Target.HasFormula Then MsgBox "عفوا ليس لديكم الصلاحية للتعديل.. مع تحياتى / قنديل الصياد " End If End Sub مرفق ملف به التطبيق Book1.rar
  24. قنديل الصياد
    اخى العزيز جرب استخدام الكود التالي في حدث الورقة المراد حماية معادلات بها وستجد ان الاعمدة التى بها الخلايا لتى بها معادلات مؤمنة وباقةى الشيت يمكن ان تعدل فيه كمات تشاء Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub ملف مرفق به التطبيق Book1.rar
  25. قنديل الصياد
    اخى العزيز اليك هذا الشرح لكيفية حماية اسماء الشيتات من التعديل الشرح حماية الاوراق من تعديل اسمها.rar ملف تم التطبيق عليه وكلمة السر (123) قنديل.rar
×
×
  • اضف...

Important Information

  I accept