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

أبوســـارة1973

03 عضو مميز
  • Posts

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

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

  • Days Won

    1

كل منشورات العضو أبوســـارة1973

  1. الأخ العزيز أيسم إبراهيم جزاك الله خير الجزاء وتقبل منك صالح الأعمال
  2. ما هو كود إظهار فورم معين بحجم الشاشة ، بغض النظر عن مقاس الفورم ؟ أي المطلوب أظهار الفورم بحيث يملأ الشاشة . أرجو التعديل على هذا الكود : Private Sub Image3_Click() Sheet4.Select End End Sub
  3. يمكنك عمل ذلك باتباع الخطوات التالية : 1- حدد الجدول أو الكشف بجميع بياناته ابتداء من عنوان العمود باستخدام الفأرة 2- اذهب لقائمة بيانات أو ( Data) 3- اختر منها فرز أو Sotr 4- ستظهر لك قائمة حدد فيها في الخانة الاولى عنوان العمود( العمر).
  4. TareQ M أيسم إبراهيم أبو عبدالله جزاكم الله خير الجزاء وشكرا لكم على سرعة الرد والتجاوب مع موضوعي كتب الله لكم جميعاً الجنة وحرم أجسادكم على النار بحق محمدوآله وأصحابه الأطهار.
  5. السلام عليكم جمعيا أسعد الله صباحكم بكل خير المطلوب أخواني كود يقوم بمسح جميع الصور الموجودة في ورقة العمل ( sheet5)
  6. أحسنت يا أستاذ خبور جزاك الله خير الجزاء في ميزان حسناتك إن شاء الله نعم أنت دائما من يتصدى لمثل هذه الطلبات هل بالإمكان أن يحدد المعلم الذي أسند له الصف في المسج بوكس بدلاً من عبارة ( معلم آخر) ؟ أسأل الله لك رزقا واسعا ذنبا مغفورا وحاجة مقضية وهموما مكفية .
  7. تعديل الخطأ في كلمة كتبت خطأ( selection) بدلا من ( Selection)
  8. Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Integer, C As Integer If Not Intersect(Target, Range("E8:AN78")) Is Nothing Then Application.ScreenUpdating = False C = Target.Column For R = 8 To 78 If Cells(R, C) <> "" And Application.CountIf(Range(Cells(8, C), Cells(80, C)), Cells(R, C)) > 1 Then Cells(R, C).Interior.ColorIndex = 39 Else Cells(R, C).Interior.ColorIndex = xlNone End If Next Application.ScreenUpdating = True End If End Sub هذا الكود يقوم بتلوين الخلايا التي يتم فيها إدخال الصف لأكثر من مرة في نفس الحصة ( العمود ) والمطلوب إضافة تعديل عليه ليظهر رسالة ( مسج بوكس ) من نوع yesno في حال إدخال صف تم إدخاله من قبل في نفس الحصة ( العمود) مفادها (" ثم إسناد هذا الصف لمعلم آخر ....... هل تريد المتابعة ؟" الضغط على yes يفعل الكود ( تلوين الخليتين الأولى والثانية وكل الخلايا التي تحمل نفس الصف ) والضغط على no يجعل الخلية النشطة فارغة ( الخلية النشطة يعني نفس الخلية التي جرت عليه العملية ) مع خالص شكري وتقديري للجميع abusarah73-22.rar
  9. Dim P Dim oRange As Range Dim oCht As Chart Dim oImg As Picture P = ActiveWorkbook.Path & "\" Set oRange = Selection Set oCht = Charts.Add Application.ScreenUpdating = False Application.DisplayAlerts = False oRange.CopyPicture xlScreen, xlPicture oCht.Paste oCht.Export Filename:=P & "SavedRange.jpg", Filtername:="JPG" oCht.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub وعند التعديل على السطر السادس ليكون ( Set oRange = selesctin) بدلا من : Set oRange = Range("A1:O35") يتم حفط أي نطاق يتم تحديده
  10. فيا من يرويني من عذب عيونها فقد ظمئت نفسي وعزّ شراب ؟
  11. HaNcOcK أحسنت بارك الله فيك ، بالفعل مهما كانت الفكرة سهلة وبسيطة فهناك دائما من يجهلها ويحتاج إليها أنا كنت أستخدم هذه الدالة في ملف الجدول المدرسي : =IF(D17=0,"",IF(AND(SUM(A15:A16)=0,A14>0),A14+1,IF(AND(D17>0,A16=""),A15+1,IF(AND(D17>0,A16>0),A16+1,"")))) وعيب هذه الدالة : 1- طويلة جداًُ. 2- الصف الأول والثاني يحتاج لدالة أخرى =IF(D8="","",1) 3- الصف الثالث دالة أخرى أيضا: =IF(D10=0,"",IF(AND(SUM(A8:A9)=0,A7>0),A7+1,IF(D10>0,A9+1,""))) 4- تسمح بوجود صفين - كحد أقصى - فارغين حتي تعطي ترقيم تلقائي للصف التالي للصفين الفارغيين. هذا قدر معرفتي .
  12. أخي العزيز أبو البراء أخي أبوعبدالله رفع الله قدركما ، وقضى حاجتكما ، وأسعد أيامكما بالخير والصحة والعافية أخي أبو البراء حصلت على كود من الموقع الأجنبي الذي أحلتني عليه مسبقافي الموضوع ( Sum of Cells Within the Selected Range (vba) ، وقمت بالتعديل عليه ليناسب حاجتي حيث المطلوب هو تحديد مجموعة خلايا تحتوى على أرقام( بالفأرة ) والضغط على زر Ctrl واختيار خلية أخرى بالفأرة أيضا( مع الاستمرار بالضغط على زرCtrl ) وعند الضغط على زر الفأرة الأيمن يعطي المطلوب دون الحاجة لزر ماكرو . شاهد الملف المرفق : أخوك : أبو زينب ، وسارة، وجنات 12.rar
  13. بواسطة الكود كيف استطيع أن أحصل على ناتج مجموع خلايا في نطاق مختار بواسطة الضغط على زر ماكرو بحيث يكون الناتج في الخلية A1 على سبيل المثال : الحصول على ناتج جمع خلايا في نطاق مختار
  14. المطلوب تعديل على كود تلوين الخلية المتساوية مع أخرى من نفس العمود ليظهرمسج بوكس ( yesno ) بالإضافة إلى تلوين الخلية المتساوية في قيمتها مع أخرى من نفس العمود . والضغط على yes يقبل القيمة المدخلة في الخلية . والضغط على no يجعل الخالية فارغة . أخوكم أبو سارة 123.rar
  15. وتتوالى الإنجازات يا كبير
  16. أنا ممتن لك كل الامتنان أخي أبا عبدالله أغلب المواضيع التي أطلب فيه المساعدة تكون أنت من بتصدى لها ويحل المشكل فيها بجدارة وفقك الله أخي ودعائي لك هذه المرة : ( اللهم لا تدع له ذنبا إلا غفرته ولا هما إلا كشقته ولا عيبا إلا سترته لا رزقا إلا بسطته ولا حاجة هي لك رضا وله قيها صلاح إلا أعطيته ) أخوك أبو سارة
  17. عفوا أستاذي أبو عبدالله يبدو أنك أخطأت في تحديد المدى المطلوب تنفيذ الكود فيه كما حدث للأستاذ كيماس أو مرة أثناء الشرح المدى b2:b11 وليس b2:b13 وهذا الخطأ يعطي نتائج خاطئة
  18. ألف شكر لك أخي kemas شرح وافي ومشوق وجميل حرصت على متابعته بكل شوق وشغف سؤال : هل هذا صوتك ؟ هل أنت معلم؟ صاحب هذا الصوت يمتلك مهارة عالية وطرق تدريس مشوقة إذا كنت معلما فلا بد أنك متميز ومحبوب عند تلاميذك ، وأعتقد بأنهم لا يرضون بك بديلا أرجو أن تستمر في الشرح بهذه الطريقة وتفيدنا نفعك الله به يوم لا ينفع مال ولا بنون
  19. أخي الفاضل / ولد طيبة السلام عليكم ورحمة الله جربت الملف ولكن يوجد به خطأ في الكود ، وبالنتيجة فإن أزرار الماكرو لا تعمل . ألف شكر لك على اهتمامك وأدعو لك بمثل ما دعوت لأخي أبي عبدالله
×
×
  • اضف...

Important Information