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

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

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

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    وعليكم السلام انا عندي W.XP تقبل تحياتي وشكري
  2. عبدالله باقشير
    وعليكم السلام جزاكم الله خيرا بالنسبة لميزان المراجعة ممكن تعملها عل حسب ماتريد انا اعملها على الحسابات التحليلية الاخيرة بنفس ترتيب الدليل ام تقصد بسؤالك شي آخر؟) تقبلوا تحياتي وشكري
  3. عبدالله باقشير
    وعليكم السلام اسعدني مروركم العطر جزاكم الله خيرا وبارك فيكم وزادكم علما وفضلا تقبلوا تحياتي وشكري
  4. عبدالله باقشير
    وعليكم السلام اسعدني مروركم العطر جزاكم الله خيرا وبارك فيكم وزادكم علما وفضلا تقبلوا تحياتي وشكري
  5. عبدالله باقشير
    ,وعليكم السلام جزاك الله خيرا وبارك فيكم واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة سؤال: هل ظهر لك شريط التمرير في معاينة الكل في هذا الملف؟ تقبلوا تحياتي وشكري
  6. عبدالله باقشير
    السلام عليكم نموذج للدليل المحاسبي اربعة مستويات بالامكانيات التالية: 1- العمل على نموذج فارغ 2- اضافة حذف جذور(1-9) 3- امكانية اضافة 99 حساب للرئيسي وفروعة الاخرى نموذج للدليل المحاسبي ثلاثة مستويات شاهد المرفق 2003-2010 نموذج للدليل المحاسبي 4 مستويات.rar
  7. عبدالله باقشير
    السلام عليكم جرب التالي للاخفاء Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" للاظهار Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" في امان الله
  8. عبدالله باقشير
    السلام عليكم اخي شوقي ربيع .............حفظكم الله عمل جميل ورائع جزاكم الله خيرا تقبلوا تحياتي وشكري
  9. عبدالله باقشير
    السلام عليكم قد يكون ممكن....والله اعلم
  10. عبدالله باقشير
    السلام عليكم هذه الامكانية غير موجودة الموجود اوتو زيز يتحجم الكائن بحجم ما بداخله ولكن هذه الميزة مش عملية لانه لو ادخلنا حرف يتحجم بحجم الحرف ثم لو ادخلنا كلمة يتحجم طوليا .. والله اعلم تحياتي
  11. عبدالله باقشير
    السلام عليكم اخي شوقي .... مفروض ان يظهر ... الظاهر ان المشكلة عندك لانه ماحدش غيرك اشعرنا بذلك تحياتي
  12. عبدالله باقشير
    السلام عليكم جمعة مباركة قمنا ببعض التعديلات الجديدة 1- امكانية حذف واضافة جذور. 2- زيادة طول الرقم الرئيسي الى ثلاثة ارقام ليتسع لاضافة 99 حساب 3- العمل على نموذج فارغ . وجاري تطوير العمل الى اربعة مستويات المرفق في المشاركة الاولى في امان الله
  13. عبدالله باقشير
    السلام عليكم احسنت عملا ,اخي ضاحي الغريب---حفظكم الله وجزاكم خيرا وبارك فيكم تقبلوا تحياتي وشكري
  14. عبدالله باقشير
    السلام عليكم الاخ الفاضل/ عمرو_________ حفظه الله اسعدني مروركم العطر جزاكم الله خيرا وبارك الله فيكم.. تقبلوا تحياتي وشكري
  15. عبدالله باقشير
    السلام عليكم جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim iRow As Integer If Not Intersect(Target, Range("B1:B50")) Is Nothing Then iRow = Target.Row Cells(iRow, "C") = Val(Cells(iRow, "C")) + Val(Target) End If '''''''''''''''''''''''' If Not Intersect(Target, Range("A1:A50")) Is Nothing Then iRow = Target.Row If Val(Target) = 0 Then Cells(iRow, "C") = "" End If End If End Sub
  16. عبدالله باقشير
    السلام عليكم ما شاء الله لا قوة الا بالله الله يكرمك في الدارين تقبل تحياتي وشكري
  17. عبدالله باقشير
    السلام عليكم تفضل التعديل Sub kh_Merge() Dim LR As Long, i As Long, ii As Long, iii As Long LR = Range("A" & Rows.Count).End(xlUp).Row On Error GoTo 1 Application.ScreenUpdating = False Range("A1:E" & LR).Sort Columns(1), xlAscending For i = LR To 1 Step -1 If Application.CountIf(Range("A1:A" & LR), Cells(i, "a")) > 1 Then Range("A" & i) = "" ii = ii + 1 Else If ii Then With Range("A" & i) .Resize(ii + 1, 1).Merge .VerticalAlignment = 2 End With With Range("E" & i) .Resize(ii + 1, 1).Merge .VerticalAlignment = 2 End With End If ii = 0 End If Next For i = 1 To LR If Len(Range("A" & i)) Then iii = iii + 1 Range("E" & i).Value = iii End If Next 1: Application.ScreenUpdating = True End Sub في امان الله
  18. عبدالله باقشير
    السلام عليكم الحمدلله رب العالمين وشكرا لمرورك العطر اخي حمادة ......حفظكم الله تقبلوا تحياتي وشكري
  19. عبدالله باقشير
    السلام عليكم Sub kh_Merge() Dim LR As Long, i As Long, ii As Long LR = Range("A" & Rows.Count).End(xlUp).Row On Error GoTo 1 Application.ScreenUpdating = False Range("A1:E" & LR).Sort Columns(1), xlAscending For i = LR To 1 Step -1 If Application.CountIf(Range("A1:A" & LR), Cells(i, "a")) > 1 Then Range("A" & i) = "" ii = ii + 1 Else If ii Then With Range("A" & i) .Resize(ii + 1, 1).Merge .VerticalAlignment = xlTop End With Range("E" & i).Resize(ii + 1, 1).Merge End If ii = 0 End If Next 1: Application.ScreenUpdating = True End Sub في امان الله
  20. عبدالله باقشير
    السلام عليكم للبحث عن تاريخ استخدمنا مربع نص مربع النص يحول اي ادخال فيه الى تاريخ المرفق 2003 VVVVV+-++.rar
  21. عبدالله باقشير
    السلام عليكم ضع هذا الكود في موديل ورقة1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("b1").Address Then Range("C1") = Val(Range("C1")) + Val(Target) End If End Sub تحياتي
  22. عبدالله باقشير
    السلام عليكم الاخ الفاضل/ مراد _________ حفظه الله ملفكم رائع جدا جزاكم الله خيرا وبارك الله فيكم.. تقبلوا تحياتي وشكري
  23. عبدالله باقشير
    السلام عليكم الاخ الفاضل/ ايهاب سعيد_________ حفظه الله هذه المرحلة بدون رصائد تقبلوا تحياتي وشكري
  24. عبدالله باقشير
    السلام عليكم الاخ الحبيب/ احمد فضيلة_________ حفظه الله جزاكم الله خيرا وبارك الله فيكم.. تقبلوا تحياتي وشكري
  25. عبدالله باقشير
    السلام عليكم اخي الحبيب / رجب جاويش ...........حفظكم الله عمل رائع جدا جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
×
×
  • اضف...

Important Information

  I accept