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

حسام مصطفي

03 عضو مميز
  • Content Count

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

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

كل منشورات العضو حسام مصطفي

  1. السلام عليكم اساتذتي الكرم احتاج الي زر للتعديل في سجل او صف معين في ليست بوكس فعندما اختار واحدد احد صفوف الليست بوكس تظهر القيم الخاصه بهذا الصف في تكستات بوكس فهل من الممكن التعديل في التكستات هذه ليتم التعديل في بيانات الليست بوكس فقط قبل الترحيل للشيت او تنفيذ اي شئ او هل هناك طريقة اخري لتنفيذ ذلك ومرفق ملف للاستاذ / حمادة عمر ... جزاه الله خيرا كمثال للعمل عليه في انتظار روائعكم اساتذتي مثال في الصورة لما هو مطلوب طريقة تصميم فورم بحث عن طريق لست بوكس5.xls
  2. السلام عليكم استاذي الرائع / علي محمد جزاك الله خيرا الكود اتم المهمة علي اكمل وجه ولكن لي استفسار وتعقيب علي الكود ... قمت بوضع الكود بالكامل بملفي ولكن قمت بوضع الجزء التالي من الكود خاصتك فقط لزر المسح ويعمل بكفاءة .. فهل يؤثر ذلك علي عمل الكود ويوجد شئ ناقص لا اعلم Private Sub btnRemove_Click() Dim i As Long Dim rowsList As String For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) Then ListBox1.RemoveItem i End If Next i End Sub وفي كل الاحوال ... بارك الله فيك وجعلك عونا للجميع وجعله في ميزان حسناتك استاذنا
  3. السلام عليكم اساتذتي الكرام مرفق ملف للقدير الاستاذ / حمادة عمر .. جزاه الله خيرا به فورم بحث واظهار النتائج في ليست بوكس ... يتم كتابة الاسم في التكست بوكس فتظهر النتائج في ليست بوكس قمت باضافة زر مسج في الفورم اريد كود له يعمل علي مسح السجل او الصف الذي تم تحديده في الليست بوكس بالضغط علي زر المسح وذلك من الليست بوكس فقط وجزاكم الله خيرا في انتظار روائعكم طريقة تصميم فورم بحث عن طريق لست بوكس4.xls
  4. السلام عليكم الاستاذ القدير الرائع / الـعيدروس جزاك الله خيرا الكود اكثر من راااائع وبصورة اكثر من رائعة وجديدة وجاري تنفيذ الكود علي ملفي لانه سيغير لي طريقة الملف بالكامل علي حسب فهمي المبدئي للكود وارجو من الله ان يتسع صدرك لاي استفسار بخصوص الكود والتعديلات التي من الممكن ان احتاجها علي حسب وقتكم تقبل خالص تحياتي
  5. قبل ان اري المرفق استاذي لا اعرف كيف اقدم لك الشكر والعرفان ولا املك الا ان اقول لك جزاك الله خيرا وجعله في ميزان حسناتك يوم القيامه تقبل خالص وكل تحياتي
  6. ولاثراء الموضوع جرب الاختيارات من تنسيق الخلايا باختيار تنسيق مخصص وتحديده
  7. السلام عليكم / استاذي العزيز بن عليه اعتذر عن التأخير في الرد بعد ان اثقلت عليكم والحاحي في الرد علي طلبي هذه ولكن عذرا والله كان هذا نتيجة لوعكه صحيه لم اتمكن معها من الاطلاع والرد علي حضرتك ... تقبل اعتذراتي جزاك الله خيرا بالفعل هذا هو ما اريده تماما اثابك اله كل الخير واعطاك ما تريد باذن الله ولكن هل لي ان اطمع في كرم حضرنك والاساتذة الكرام ... ( في الملف المرفق المعادلات تعمل بشكل أكثر من ممتاز وكما اريد تماما ) ولكن علي حسب فهمي لطريقة عملها انها تعمل بناءا علي اسم الحساب وبتغيير اي حرف من اسم الحساب ( لا تعطي المعادلات النتائج المطلوبه .. ) فهل من الممكن ان تعمل المعادلات علي اساس رقم الحساب وليس اسم الحساب
  8. استاذ / سليم المعادلة تعمل في الملف المرفق بشكل سليم ولكن القيم التي يتم ترحيلها ليست صحيحة .. راجعها بنفسك فمثلا المفروض ان قيمه الحساب رقم 1120 باسم حساب 120 قيمته في يوم 1 هو 35 قيمه الحساب رقم 1120 باسم حساب 120 قيمته في يوم 2 هو 351.52 ولكن المرحل بالمعادلة اليوم 1 صحيح واليوم الثاني خطا .... وهكذا باقي الحسابات جزاك الله خيرا استاذي
  9. عذرا علي تكرار كلماتي التالية ولكنه حققكم بالفعل حتي وان لم يتم حل موضوعي استاذي الفاضل / سليم حاصبيا والله لا اعرف كيف اشكرك أنت واستاذي / بن عليه بارك الله لكما وجزاكم الله خيرا اولا : لاهتمامكم لاكثر من مرة بالموضوع والعمل علي حل طلبي بالطريقة السليمه رغم ان الجميع يري ان الموضوع قد تم حله ولكن هذا لم يحدث معي حتي الآن ... فالعذر كل العذر ثانياً : علي تحملكم شخصي انا في طلبي الذي بدأت احس ان الخطأ لدي انا فعذرا ... رجاء لا تملوا مني بالنسبه لهذا الطلب استاذ / سليم قد قمن حضرتك بالرد علي في البدايه بكود جميل ولكنه يعمل بطريقه وضع اسم الحساب ورقيمته ولكني اريد وضع القيمة الخاصه بكل حساب امام حسابه في شيت 2 في يومه كما تم التسجيل في الشيت الرئيسي شيت 1 كقيم فقط لان اسماء وارقام الحسابات موجودة في شيت 2 والمطلوب يتم ترحيل القيم الخاصه بكل حساب في يومه ======================== اما بالنسبه للمعادلة الاخيرة المرفقه من حضرتك فشاهد استاذي ماذا يحدث عندما اقوم بتنفيذها في الخليه C//7 تظهر هذه الرسالة بعد وضع المعادلة والضغط Ctrl+Shift+Enter
  10. استاذي الفاضل / بن عليه والله لا اعرف كيف اشكرك أنت واستاذي / سليم حاصبيا بارك الله لكما وجزاكم الله خيرا اولا : لاهتمامكم لاكثر من مرة بالموضوع والعمل علي حل طلبي بالطريقة السليمه رغم ان الجميع يري ان الموضوع قد تم حله ولكن هذا لم يحدث معي حتي الآن ... فالعذر كل العذر ثانياً : علي تحملكم شخصي انا في طلبي الذي بدأت احس ان الخطأ لدي انا فعذرا ... رجاء لا تملوا مني بالنسبه لهذا الملف استاذ / بن عليه شاهد النتائج بنفسك استاذي في الملف المرفق من سيادتكم التي تعطيها المعادلات ستجد ان النتائج تكون لاول قيمه فقط لاي حساب في اليوم اليوم الاول فقط ويتم درجها لاي حساب في بدايه اليوم التالي برجاء مشاهدة ذلك واخباري بالنتيجه وهل الخطأ موجود لدي انا فقط علي جهازي ام ماذا ... في انتظار رد سيادتكم جزاك الله خيرا
  11. السلام عليكم الاستاذ الفاضل / بن علية حاجي جزاك الله خيرا علي مجهودك الرائع ولكن عذرا وسامحوني اساتذتي اصبحت أحس انني لحوح بعض الشئ .. فالتمس منكم العذر الملف المرفق من سيادتك بالتعديل يعمل بشكل رائع بالنسبة للبيانات الموجودة في الملف والتي تم العمل عليها من قبلكم ولكن عند اضافة يوم جديد في شيت1 مثلا يوم4 واضافة بعض الحسابات الجديدة أجد ان كل البيانات قد تم مسحها ولكن المعادلات موجودة وهذا موضح بالملف المرفق جزاكم الله خيرا ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls
  12. السلام عليكم الاخ الكريم / ابو الوفا سيد سليم هذه اول مشاركة لك في منتدانا الرائع .. الجميع هنا اخوة في الله .. وبان شاء الله ماتحتاجه بالضبط ستجده هنا باذن اله مع الاساتذة والخبراء وباقي الاعضاء ... فاهلا ومرحبا بك بين اخوانك في هذا الصرح العملاق ==================== بالنسبه لطلبك : ( سيتم الشرح علي الكود الخاص بك حيث انه خاص بالمعاينه وليس الطباعه ) ؟؟؟؟؟ هل الاوراق التي تقصدها في شيت واحد أي ( صفحه 1 - صفحه 2 - صفحه 3 - .... الخ ) يكون الكود الكتالي ( بتغيير المدي المحدد من قبلكم في أكثر من سطر في الكود ) ( لطباعة أكثر من مدي في نفس الصفحة sub طباعة() Sheet1.Range("a1:g29").PrintPreview Sheet1.Range("a30:g60").PrintPreview Sheet1.Range("a61:g90").PrintPreview End sub اما اذا كانت اوراق عمل مختلفة يتم تغيير اسم الشيت في البداية ليكون الكود كالتالي sub طباعة() Sheet1.Range("a1:g29").PrintPreview Sheet2.Range("a1:g29").PrintPreview Sheet3.Range("a1:g29").PrintPreview End sub وكما اخبرت حضرتك بان الكود المرسل منك خاص بالمعاينه فان اردت تغييره للطباعه المباشرة قم بتغيير .PrintPreview الي .PrintOut ارجو ان اكون قد وفقت في تنفيذ طلبك واي توضيح الجميع هنا في خدمه بعضهم البعض
  13. السادة الافاضل اساتذة المنتدي لي طلب بسيط بالنسبة لكم ( ان شاء الله ) احتاج الي مساعدة فيه وهو لدي عدد 2 شيت : Sheet1 هو الشيت الرئيسي للتسجيل ويتم تسجيل البيانات اليومية فيه من خلال فورم بشكل يومي ) و Sheet2 هو الشيت المطلوب الترحيل اليه ولكن بشرطين ان يتم الترحيل حسب تاريخ اليوم وكذلك حسب رقم الحساب .. ولكن بالشكل الموجود في الملف ( حاولت استخدام if مع vlookup ) ولكن لم اتوصل لنتيجة في انتظار ردودكم ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم النتيجة.xls
  14. السلام عليكم الاخ والاستاذ الكريم / حسين مامون جزاك الله خيرا هذا هو طلبي بالضبط وكما اريد تماما فوق فوق فوق الروووووووووووووووووعه مع وافر تحياتي لكم
  15. السلام عليكم اساتذتي واخواني الكرام لدي طلب اعرف انه باذن الله صغير لكم ولكنه كبير عندي في الملف المرفق به فورم ... يوجد به صف مكون من ( كومبوبكس وعدد 3 تكست بوكس ) ويليهم زر اضافة والمطلوب : بعد تعبئة هذه العناصر بالبيانات يتم الضغط علي زر ( اضافة ) فيتم تسجيل البيانات في الليست بوكس اسفلهم ليصبح الليست بوكس به عدد 1 صف به بيانات ... ثم يتم تعبئة العناصر المذكورة مرة اخري وبالضغط علي زر ( اضافة ) يتم تسجيل البيانات الجديدة في الليست بوكس ليصبح به عدد 2 صف ... وهكذا بعد الانتهاء من التسجيل في الليست بوكس باستخدام زر الاضافة يتم ترحيل كافة الصفوف الموجودة في الليست الي صفحة الاكسيل باستخدام زر الترحيل باسفل الفورم ارجو ان اكون قد اوضحت المطلوب بصورة واضحة وافر تحياتي اضافة بيانات لليست عن طريق تكستات بزر اضافة.xls
  16. من الممكن ان يكون شيت مخفي بالملف وان امكن قم بارفاق الملف لتتضح الصوره
  17. الواضح اخي الكريم من الصوره المرفقة هو ان هذه الخليه الموجود بها المعادلة تقول : ان هذه الخليه تساوي الخليه G7 في شيت اخر بنفس ملف الاكسيل ويسمي program فمثلا لو ذهبت لهذا الشيت ستجد ان القيمة الموجود هنا هي نفس القيمة الموجود في الخليه المذكورة تقبل وافر تحياتي
  18. ما معني بدون ماكرو... حيث ان الكود هو الماكرو فهل تقصد بدون زر تقبل وافر تحياتي
  19. قم اخي الكريم / محمد بوضع مرفق كمثال لما تريده ليتم فهم المطلوب وتنفيذه كما تريده تقبل وافر تحياتي
  20. الملف الاخير يعمل لدي بصورة طبيعية علما بان الويندوز لدي 32 انصحك اخي الكريم بتحويل الويندوز لديك الي 32 لتنهي مشكلتك ببساطه عذرا للدخول ولكنه رد بسيط مني تقبل وافر تحياتي
  21. جميل ورائع استاذنا هل يمكن ارفاق ملف للغة العربيه وهل يمكن للاكسيل قرائه الصوت اي يتم الادخال البيانات بالصوت شكرا
  22. هل معني ذلك استاذنا ان اقوم بتصميم الفورم لدي بالاكسيل كما اريد واصمم برنامجي علي الاكسيل بالشكل الذي اريده ثم اقوم بوضع الاكواد الموجودة في ملفك لربط الاكسيل االذي قمت بتصميمه مع الاكسيس ( اي ان الاكسيس ما هو الا مكان للتخزين كقاعد بيانات كبيرة فقط ) وبهذا يكون قد انتهي الربط والبرنامج ام ان كل برنامج مصمم علي الاكسيل له اكواده الخاصه ليتم ربطه مع الاكسيس علما بان معلوماتي عن الاكسيس لا تتعدي النماذج والجداول والاستعلامات والتقارير التي يتم انشاؤها وليس لدي اي درايه بأكواد الاكسيس نهائياً عكس الاكسيل فلدي الكثير منها وافهم معظمها بسهوله عذرا استاذي ولكن يجب ان نتعلم هذا الموضوع فهو ممتاز وسيفيد الجميع وليس امامنا سواك استاذنا تقبل وافر تحياتي .. جزاك الله خيرا
  23. قم اخي الكريم بوضع مرفق لتوضيح طلبك بصورة اكتر ليمكن للاخوة مساعدتك وهل هذه الارقام عباره عن صفوف بها بيانات ام ماذا فمع المثال يتتضح الامر تقبل وافر تحياتي
  24. شكرا لك استاذنا القدير الجميل / شوقي ربيع في انتظار البرنامج علي أحر من الجمر ( في السر كده يا كبير ... امتي البرنامج حينزل ... بكره ان شاء الله ... تمام .. بس كده هيبقي متأخر اوي .. خليه يظهر النهاردة ... مستعجل جدا .. هههه ) والجميل فعلا وما اسعدني بحق ان البرنامج يكون مفتوح المصدر ويمكن الاطلاع علي اكواده وطريقته ليمكنناالتعلم ومعرفة بعض من خبراتكم وعلمكم و بالنسبة للتعديل عليه ليتناسب مع الجميع فيكفي ان يكون مفتوح فقط وسنحتاج خبرتكم في التعديل في بعض الاشياء القليلة حيث انه من الواضح انه سيكون كامل وشامل باذن الله دمتم في عوننا وعون الخير دائما استاذنا القدير الجميل تقبل وافر تحياتي
×
×
  • اضف...