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

عبدالله باقشير

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    السلام عليكم اخي الفاضل انت اوجزت الشرح وحصرت المشكلة ان كانت مشكلتك هذه اذن مثل ما عرفت المتغير يمكن تنهي ربطه بالكود التالي: set sh =Nothing ان شاء الله يكون تشخيصك صح لان هذا العلاج ودمتم في حفظ الله
  2. عبدالله باقشير
    السلام عليكم جرب الكود هذا لعله المطلوب مع ملاحظة ضع الكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim Num$ On Error Resume Next If Not Intersect(Target.Cells, Range("F12:F25").Cells) Is Nothing Then Num = Trim(Target) If Not IsNumeric(Num) Then Exit Sub If Len(Num) - 1 Then Target.Offset(-1, 0).Value = Mid(Num, 1, Len(Num) - 1) End If End If End Sub ودمتم في حفظ الله
  3. عبدالله باقشير
    اولا نسينا ان نخبرك من سابق ان موضوعك مخالف بسبب العنوان انا ساعدل العنوان وانتبه في الجيات تفضل المرفق 2003-2007 بيع الأدوية2.rar
  4. عبدالله باقشير
    اولا نورت المنتدى ثانيا اكرمك الله في الدارين واثابك بدعائك واعطاك بمثله اضعاف مضاعفة وجزاك خيرا وبارك فيك ووفقك في جميع امورك تقبل تحياتي وشكري
  5. عبدالله باقشير
    اكرمك الله في الدارين واثابك بدعائك واعطاك بمثله اضعاف مضاعفة وجزاك خيرا وبارك فيك تقبل تحياتي وشكري
  6. عبدالله باقشير
    شاهد الموضوع : بحث من فورم بعدة خيارات ووضع النتائج في listbox http://www.officena.net/ib/index.php?showtopic=42261 بيع الأدوية1.rar
  7. عبدالله باقشير
    total5.rar
  8. عبدالله باقشير
    سعدت كثيرا بمرورك العطر وجزاك الله خيرا وبارك فيك تقبل تحياتي وشكري
  9. عبدالله باقشير
    السلام عليكم تمت التعديلات المطلوبة شاهد المرفق 2007 تجربه فورم جديد - 3.rar
  10. عبدالله باقشير
    انا مجربها عل 2003 و2007 اما اوفيس 2010 لم اتشرف به بعد تقبل اعتذاري وتحياتي وشكري
  11. عبدالله باقشير
    في المرفق2003 تقويم ميلادي يفتح من خلال فورم ويضع النتيجة في التاكست النشط فتح فورم التاريخ من فورم اخر.rar
  12. عبدالله باقشير
    اخي ابو انصار ----حفظه الله انا اظنه من فورمات التاريخ حاول تغير الجزئية هذه في الكود kh_Start .AddItem Format(DateValue("1/" & iii), "mmmm") الى .AddItem Format(DateValue(iii & "/01"), "mmmm") اخبرنا بالنتيجة في التقويمين الميلادي والهجري في اوفيس 2010 انا في انتظارك
  13. عبدالله باقشير
    عند الضغط على الزر (حفظ اللست في ملف جديد) يتم اضافة مصنف جديد بورقة واحدة يتم اضافة اللست فيها وبعدين انت لك حرية حفظه في اي مكان تريد او عدم حفظه total3.rar
  14. عبدالله باقشير
    من نافذة الفيجوال بيسك اسحب الفورم الى ملفك لنفرض ان ملفك Book1 شاهد المرفق و لاتنسى الدعاء للاخ يحياوي
  15. عبدالله باقشير
    ولك بمثل دعائك اضعاف مضاعفة تقبل تحياتي وشكري
  16. عبدالله باقشير
    جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري
  17. عبدالله باقشير
    السلام عليكم في المرفق التالي 2003 استخدمت لست واحد فقط واضفت امكانية تحديد الخلية بدبل شيك على اللست اضافة اخي الحبيب عبدالله المجرب ودمتم في حفظ الله total2.rar
  18. عبدالله باقشير
    سباق دائما للخير حفظك الله ==================== في المرفق 2007 الامكانيات التالية: الاضافة تتم تحت بعض المقاسات تجدها بداية الكود غيرها حسب ما تريد العدد حسب ماتريد وحسب المعقول والمقبول في الاكسل الفرمة تاخذ عدد التاكسات حسب طولها اثناء التصميم وان زاد عنه يظهر لك زر التمرير ودمتم في حفظ الله إضافة تكست بوكس بالرقم الذي كتبته.rar
  19. عبدالله باقشير
    السلام عليكم اخي الفاضل / رجب جاويش --حفظه الله انطلاقا من الخلية a1 حددنا السلسلة من الصف 2 الى آخر قيمة في العمود a اذا كان التاريخ الموجود في الخلية العمود 3 محصور من dt1 الى dt2 Select Case .Cells(R, 3).Value2: Case dt1 To dt2 ممكن تستخدم if بدلا عن التعبير Select Case اذاكان التاريخ اكبر ويساوي dt1 و اصغر ويساوي dt2 If Len(Trim(Me.TextFind)) Then ib = CStr(.Cells(R, 1)) = CStr(Me.TextFind) Else ib = True هنا استخدمت المتغبر ib من النوع Boolean علشان اربط الشرط فيه اذا كانت قيمة البحث الموجودة في Me.TextFind ليست فارغة وضعت شرط التساوي بين قيمة البحث والقيمة في العمود 1 غير ذلك ياخذ القيمة الجزئية Me.ListFind.AddItem For i = 1 To ContColmn If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) Else _ MyValue = .Cells(R, i).Value2 Me.ListFind.List(Me.ListFind.ListCount - 1, i - 1) = MyValue Next هي اضافة البيانات الى اعمدة اللست اما الجملة الشرطية هذه If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) Else _ MyValue = .Cells(R, i).Value2 علشان اذا كانت القيمة تاريخ يعملها بالتنسيق DateFormt غير ذلك تبقى مثل ما هي عليه ارجوا ان يكون الشرح واضح لديك تقبل تحياتي وشكري
  20. عبدالله باقشير
    السلام عليكم اخي الفاضل رجب جاويش---------حفظه الله انسخ الاسطر التي تريد شرحها والاستفسار عنها وانا تحت امرك اما ان اشرح اي كود اعمله ده صعب ( يتطلب وقت وجهد ونفس وهوى) واغلب ما في الاكواد مكرر ومفهوم ولكن قد تكون هناك جزئية معينة غامضة لا مانع من السؤال عنها ولا مانع عندي ان اجيبك عليها والاصح واجب علي ان اجيبك عنها انا في انتظارك تقبل تحياتي وشكري
  21. عبدالله باقشير
    السلام عليكم اخي الفاضل محمود ---------حفظه الله انا اريدك ان تفكر وتدرس العمل اذا وصلت الى نقطة تريد الاستفسار عنها اسال وان شاء الله سنجيبك تقبل تحياتي وشكري
  22. عبدالله باقشير
    اولا جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة ام بخصوص ملاحظتك اي اوفيس تستخدم 2010 ؟ بالنسبة لاوفيس 2003 و 2007 عندي لا توجد هذه المشكلة بتاتا اما اوفيس 2010 لم اتشرف به بعد تقبل تحياتي وشكري
  23. عبدالله باقشير
    السلام عليكم اخي الفاضل amfouad555--------حفظه الله اخي الفاضل بليش روغ --------حفظه الله جزاكما الله خيرا تقبلا تحياتي وشكري
  24. عبدالله باقشير
    السلام عليكم الف مليون مبروك اخي محمود واعذرني انها جاءت متاخرة تقبل تحياتي وشكري
  25. عبدالله باقشير
    هذه رسالة وجود خطأ وارسال تقرير الى المصدر لا اعلم حقيقة السبب ؟؟ وما هي المشكلة عندك لا استطيع اصلاح شي لا اعاني منه ودمتم في حفظ الله
×
×
  • اضف...

Important Information

  I accept