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

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

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

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  2. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  3. عبدالله باقشير
    السلام عليكم تمام التمام اخي احمد عبد الناصر بارك الله فيك راحت من بالي جزاك الله خيرا تقبل تحياتي وشكري
  4. عبدالله باقشير
    السلام عليكم جرب المعادلة التالية مثلا اللغة العربية =SUMPRODUCT(N(ISNUMBER(SEARCH("لغة عربية";$C$2:$C$91;1)))) في امان الله
  5. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  6. عبدالله باقشير
    السلام عليكم ممكن بدون اكواد حدد مربع النص واذهب الى شريط الصيغة واعمل يساوي وحدد الخلية التي تريد تظهر محتوياتها في مربع النص في امان الله
  7. عبدالله باقشير
    السلام عليكم هذا تعديل طفيف على الكود لتحصل على التجميع في كود التقرير Sub BB() Dim i As Long, ii As Long On Error Resume Next Range("c7:g55").ClearContents Set MySheet = Sheets("data") For i = 1 To 7 If i > 1 Then Range("C" & [d10000].End(xlUp).Row + 1) = "الأجمالي" Range("C" & [d10000].End(xlUp).Row + 2) = MySheet.Cells(7, i + 11) Range(MySheet.Cells(8, i + 11), MySheet.Cells(MySheet.Cells(Rows.Count, i + 11).End(xlUp).Row, i + 11)).Copy Range("d" & [d10000].End(xlUp).Row + 2 + T).PasteSpecial (xlPasteValuesAndNumberFormats) T = 1 Next Application.CutCopyMode = False For i = 7 To 55 '''''''''''''''''''' If CStr(Cells(i, "C")) = "الأجمالي" Then Cells(i, "e").Resize(1, 3).Formula = "=SUM(R[-" & ii - 1 & "]C:R[-1]C)" ii = 0 Else ii = ii + 1 End If '''''''''''''''''''' If Cells(i, "d") >= 1 Then Cells(i, "e") = Application.WorksheetFunction.SumIf(Sheets("saad").Range("b7:b5000"), Cells(i, "d"), Sheets("saad").Range("c7:c5000")) Cells(i, "f") = Application.WorksheetFunction.VLookup(Sheets("report2").Range("d" & i), Sheets("data").Range("d6:e100"), 2, 0) Cells(i, "g") = Val(Cells(i, "e")) * Val(Cells(i, "f")) End If Next With Sheets("report2").[b6:g55] .Font.NAME = "Arabic Typesetting" .Font.Size = 14 .Font.Bold = True End With End Sub في امان الله
  8. عبدالله باقشير
    جزاك ربي خيرا
  9. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  10. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  11. عبدالله باقشير
    اسعدني مروركم وكلامكم الطيب جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  12. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  13. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  14. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  15. عبدالله باقشير
    اسعدني مروركم وكلامكم الطيب جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  16. عبدالله باقشير
    اسعدني مروركم وكلامكم الطيب جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  17. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  18. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  19. عبدالله باقشير
    السلام عليكم فكر راقي جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  20. عبدالله باقشير
    اخي الحبيب ضاحي ...........حفظكم الله جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  21. عبدالله باقشير
    ليس هناك تعليق أجمل ولا أروع من كلام أستاذى ( رجب جاويش ) للرد على أعمالك الرائعة بارك الله فيك أستاذى مروركم الطيب اسعدني جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  22. عبدالله باقشير
    مروركم الطيب اسعدني جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  23. عبدالله باقشير
    السلام عليكم قوائم مخصصة على الفورم باستخدام كومندبار مع اضافة قوائم فرعية (اختياري) القوائم الرئيسية هي النطاقات المسمى باسم الليبلات النطاق الاول: Lbl_ST_1 النطاق الثاني: Lbl_ST_2 النطاق الثالث: Lbl_ST_3 النطاق الرابع: Lbl_ST_4 اذا اردت زيادة قائمة اخرى اضف جدول آخر وسميه Lbl_ST_5 واضف ليبل آخر بنفس التسمية واعمل له كودين مشابهين لاكواد الليبلات الاخرى مع تغيير الرقم الى 5 مثال : الكود الاول Private Sub Lbl_ST_5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_AddBar sNeme & 5 End Sub الكود الثاني Private Sub Lbl_ST_5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_Set1 sNeme & 5 End Sub وهكذا اذا اردت اضافة ليبل آخر القوائم الفرعية تحتاج فقط لاضافتها اضافة نطاق وسميه باي اسم وضع هذا الاسم في القائمة الذي تريد اظهار القائمة الفرعية فيها مع وضع العلامة <<< لكي يفهم الكود انها قائمة . ويمكنك اضافة قائمة فرعية بداخل قائمة فرعية اخرى. يمكنك ايضا التحكم في النطاقات بادخال ما تريده من اكواد او الحذف او الاضافة . ================================================ لاختيار ارقام صور الكومندبار حمل الملف التالي http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=58279 ================================================ المرفق 2003-2010 قوائم مخصصة على الفورم باستخدام كومندبار+2.rar
  24. عبدالله باقشير
    السلام عليكم اخي الحبيب / رجب ....حفظكم الله شرح رائع ومفصل وصوت عذب جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  25. عبدالله باقشير
    السلام عليكم جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري
×
×
  • اضف...

Important Information

  I accept