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

صالح حمادي

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

  • Posts

    1,745

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

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

  • Days Won

    29

 نوع المحتوي 

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

  1. صالح حمادي
    السلام عليكم و رحمة الله و بركاته تقبل الله منا و منكم صالح الأعمال. لدي سؤال عن كيفية جمع أو ضرب أو قسمة عمودين في عمود ثالث بإستعمال VBA
  2. صالح حمادي
    اللهم آمين يا رب العالمين و نحن في هذا الشهر الفضيل إن شاء الله سوف أقوم بذلك الآن شكرا لك أستاذنا أبو البراء
  3. صالح حمادي
    السلام عليكم جزاكم الله كل خير على هذه المواضيع الهامة. أخوتي لدي سؤال عن كيفية جمع أو ضرب أو قسمة عمودين في عمود ثالث بإستعمال VBA
  4. صالح حمادي
    أهلين أستاذ رمهان. أخي لا أعرف ماذا أقول لقد وضعت يدك على الجرح تماما فهذا هو المطلوب بالضبط لكني أنا لم أعرف أوصل الفكرة. المهم الآن أنه وصلت و خلاص. تفضل أخي الكريم هذا الملف الذي طلبته من أجل التنفيذ. جزيت خير الجزاء إن شاء الله. استيراد.rar
  5. صالح حمادي
    ممتاز أخي رمهان تعودنا على إبداعك الكبير. الكود يعمل بشكل جد ممتاز. جزاك الله كل خير و نحن في هذا الشهر المبارك إن شاء الله
  6. صالح حمادي
    السلام عليكم... تقبل الله منكم الصيام و القيام. إخوتي في الله بعد إستراد ملف أكسل إلى ملف أكسس أريد أن أضيف أسماء الأوراق (sheet) إلى قائمة منسدلة تلقائيا يعني كلما أستورد ملف أكسل أجد أسماء الشيت في هذه القائمة المنسدلة. و الله المستعان جزاكم الله كل خير.
  7. صالح حمادي
    العفو أخ أحمد. مشكور أخي رمهان على المشاركة و دائما كلما كان الكود أقصر كان أفضل. لكن المشكلة أن هذا الكود لم يعمل معي و الله أعلم
  8. صالح حمادي
    السلام عليكم. بارك الله فيك يا أخي الفكرة حلوة. أضيف أيضا للحصول على نموذج يتغير لونه كل مرة تقوم بفتحه. أكتب الكود التالي في حدث عند الفتح للنموذج Dim t As Integer Dim r As Date r = Now [t] = Second([r]) Me.تفصيل.BackColor = [t] * 15 و سوف تحصل على نموذج يتغير لونه بإستمرار ملاحظة: أنا فقط قمت بنقل هذا الكود من أحد المنتديات. بالتوفيق
  9. صالح حمادي
    1- أنشئ قائمة منسدلة لاسم المشروع مصدر الصف فيها هو جدول المشاريع 2- أنشئ قائمة منسدلة لاسم المبنى و اجعل مصدر الصف فيها استعلام يكون فيه الشرط اسم المشروع يساوي القائمة الأولى 3- أنشئ قائمة منسدلة لرقم المبنى و اجعل مصدر الصف فيها استعلام يكون فيه الشرط اسم المبنى يساوي القائمة الثانية 4- في كل قائمة اجعل ماكرو تحديث في الحدث عند النقر
  10. صالح حمادي
    السلام عليكم. تفضل أخي. Database51.rar
  11. صالح حمادي
    يجب وضع الكود عند الحدث بعد التحديث لمربع نص السعر و أيضا لمربع نص الكمية المطلوبة.
  12. صالح حمادي
    السلام عليكم أخي الوزير أنا عملت هذا لأن كل معلم يدرس مجموعة من الصفوف و منهم من يدرس مادتين لنفس الصف. سوف أطلعك على النتائج حبيبي بعد تحليل البرنامج وتجربته حياك الله.
  13. صالح حمادي
    الحمد لله المهم تحقق الأمر
  14. صالح حمادي
    آميييين يا رب العالمين إن شاء الله الله يكتبلك بكل حرف حسنة و الله يضاعف لمن يشاء
  15. صالح حمادي
    هذا الملف به طريقة استراد و تصدير البيانات من و إلى أكسل لكن عندي بعض الأسئلة : كيف يمكن وضع اسماء sheet ملف الأكسل المستورد في مربع قائمة كيف يمكن تحديد الاستراد بتعيين اسم الورقة في النموذج لمربع النص اسم الورقة كيف يمكن وضع عملية جمع عمودين في عمود آخر بإستعمال الكود (تنسيق الملف الذي سوف نصدره) كيف يمكن إضافة الأستعلام1 برمجيا استيراد و تصدير.rar
  16. صالح حمادي
    جزاك الله خيرا
  17. صالح حمادي
    بارك الله فيك يا أستاذ
  18. صالح حمادي
    أكتب التاريخ مقلوب في قاعدة البيانات
  19. صالح حمادي
    الله يحفظك يا غالي
  20. صالح حمادي
    هل يمكن إستراد أعمدة محددة و وضعها في حقول محددة بوضع شروط معينة
  21. صالح حمادي
    لقد وصلت إلى الحل أخي الوزير بعد محاولات عديدة Dim lastRow As Long lastRow = ws.Range("A1").CurrentRegion.Rows.Count .Range("A2:Q" & lastRow).Locked = False مشكور أخي. بهذا نكون قد أنهينا درس التصدير و سوف ننتقل إلى درس الإستيراد هل أنت مستعد لتساعدني أخي
  22. صالح حمادي
    بارك الله لك و عليك على كل المجهودات المبذولة
  23. صالح حمادي
    السلام عليكم اخي الوزير بالنسبة لإخفاء العمود تمام مشي الحال. أما بالنسبة لكود تحديد النطاقات من أجل إلغاء الحماية لم يشتغل معي مع أني جربت كل المحاولات و الله أعلم
  24. صالح حمادي
    موفقين إن شاء الله
  25. صالح حمادي
    تقبل الله صيامكم جميعا
×
×
  • اضف...

Important Information

  I accept