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

أحمد عباس

عضو جديد 01
  • Posts

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

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

السمعه بالموقع

1 Neutral

عن العضو أحمد عباس

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب

اخر الزوار

1,069 زياره للملف الشخصي
  1. بارك الله فيك ... وجزاك الله خيراً على نشر هذا العمل الأكثر من ممتاز
  2. عمل رائع ... ورحم الله والدتك وغفر لها وأدخلها فسيح جناته بعد إذن حضرتك بالنسبة للكشف التحليلى خانة إختيار اللون وإختيار الشهر محمية ولا تقبل التغيير .. الرجاء فك الحماية
  3. ألف شكر أ/ أحمد ... وبارك الله فيك وزادك من علمه
  4. السلام عليكم ورحمة الله وبركاته الرجاء من القائمين على منتدى أوفيسنا مساعدتى فى : جعل الليست بوكس يتجاهل الفراغات الموجودة فى مدى البيانات المراد البحث عنها عدم ظهور فراغات فى الليست بوكس.rar
  5. جزاك الله خيرا استاذ هانى على الشرح الرائع ... فعلاً تصنيف أو تقسيم الأصناف يختلف من منشأة إلى أخرى حسب طبيعة النشاط فأنا أعمل محاسب فى شركة توزيع مواد غذائية تتعامل فى أكثر من 2000 صنف متنوع ونستخدم برنامج بلغة الأوراكل وعدد أٌقسام الأصناف فى المستوى الأول (جزور) يفوق ال 30 قسم . *** كل الشكر لهذا المنتدى الرائع والمتميز الذى تعلمت من الكثير على الرغم أننى مستجد وكل الشكر للعلامة الاستاذ القدير / عبدالله باقشير على ما يقدمه من إبداعات يعجز اللسان عن وصفها .
  6. السلام عليكم ورحمة الله وبركاته بعد إذن الاستاذ المحترم / عبد الله باقشير ------ حفظكم الله 1- هل من الممكن إضافة أكثر من 9 جزور عن الطريق التعديل فى الأكواد ؟ على إفتراض إننى سوف استخدم عملكم الرائع فى تسجيل شجرة أصناف فمن الممكن أحتاج أن يكون المستوى الأول أكثر من 9 حسابات 2- ما فائدة الكود التالى والخاص بالورقة الثانية sheet2 Function kh_NmRng(tNm, MyColmn As Integer) Dim NmCol As Range, uRng As Range Dim r As Integer, co As Integer ''''''''''''''''''''''''''' co = Len(CStr(tNm)) ''''''''''''''''''''''''''' With Sheet2 Set uRng = .Range("B2:D" & .Cells(.Rows.Count, "B").End(xlUp).Row) End With ''''''''''''''''''''''''''' With uRng For r = 1 To .Rows.Count If Left(.Cells(r, MyColmn).Value, co) = CStr(tNm) Then If NmCol Is Nothing Then Set NmCol = .Cells(r, MyColmn) Else Set NmCol = Union(NmCol, .Cells(r, MyColmn)) End If Next End With Set kh_NmRng = NmCol ''''''''''''''''''''''''''' Set NmCol = Nothing Set uRng = Nothing End Function
  7. ألف شكر استاذ أحمد ... و جزاك الله خيرا وزادك من علمه
  8. وعليكم السلام ورحمة الله وبركاته ... استاذ / أحمد إذا كان لابد من الخروج من الخلية بعد الكتابة فى الخلية فلا بأس وبالنسبة لمسح محتويات الخلية يفضل على أساس عند اختيار الصنف من الفورم يتم اضافته فى نفس الخلية أو حتى إن لم يوجد الصنف يتم كتابة حروف أخرى وشكرا على اهتمامك
  9. عثرت على هذا الرابط الذى يوضح ما أريد ولكن بصورة مختلفة http://www.officena.net/ib/index.php?showtopic=37658 الرجاء تطبيق نفس الفكرة على المرفق السابق
  10. اريد كود عند كتابة حروف البحث فى الخلية وبالضغط على زر معين فى الكيبورد وليكن F9 مثلاً يظهر لى فورم البحث وبداخل التكست بوكس الحروف المراد البحث عنها وتم كتابتها فى الخلية ظهور الفورم بالضغط على زر معين.rar
  11. السلام عليكم ورحمة الله وبركاته بسم الله ما شاء الله ... كنت انتظر دليل حسابات بهذا الشكل ... فهو بحق أفضل دليل حسابات على الاكسيل وأتفق مع جميع الأخوة الأفاضل فى طلباتهم وتحديداً إضافة مستوى رابع مع إضافة زر طباعة دليل الحسابات من خلال الفورم فى صفحة معاينة جميع حسابات الدليل بارك الله فيك وزادك الله من علمه
  12. السلام عليكم ورحمة الله وبركاته بعد إذن الاستاذ / شوقى ربيع الملف لا يعمل ... فعند فتحه يعطى رسالة خطأ
×
×
  • اضف...

Important Information