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

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

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

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    السلام عليكم Sub kh_Replace() Dim ch With Range("C5:C1000") For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا", , , True Next .Replace "ة", "ه", , , True .Replace "ي ", "ى ", , , True End With End Sub تحياتي
  2. عبدالله باقشير
    السلام عليكم و رحمة الله تعالى و بركاته تم تعديل العنوان وارجوا الاهتمام لاحقا بذلك لكي لا يتعرض الموضوع للاغلاق دمتم في امان الله
  3. عبدالله باقشير
    السلام عليكم جميعا اشتقت لابداعك اخى حفظك الله وعليكم السلام وانا كذلك اخي الحبيب...نورتم المنتدى ........حفظكم الله تقبلوا تحياتي وشكري
  4. عبدالله باقشير
    السلام عليكم ما رايك بالمعادلات المرفق 2003 ناجح وراسب.rar
  5. عبدالله باقشير
    اخي الفاضل جلال
  6. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته اخي الحبيب أبو محمد عباس ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري
  7. عبدالله باقشير
    جزاكم الله خيرا في مثل الحالات استخدم النموذج 2 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لجميع بيانات السجل يعني اعملك ورقة خاصة بالطباعة في امان الله
  8. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا المرفق 2003 ابجده بشروط.rar
  9. عبدالله باقشير
    السلام عليكم الشكر واصل لاخي شوقي ...حفظه الله اثراءا للموضوع المرفق 2003 الحذف.rar
  10. عبدالله باقشير
    السلام عليكم شاهد المرفق 2003 ابجده بشروط.rar
  11. عبدالله باقشير
    جرب هذا Sub Macro3() Dim Cont, i, R, ary() Cont = 100000 ReDim ary(1 To Cont, 1 To 1) For R = 1 To Cont If Len(Trim(Cells(R, "A"))) Then i = i + 1: ary(R, 1) = i Next Range("B1").Resize(Cont, 1).Value = ary Erase ary End Sub تحياتي
  12. عبدالله باقشير
    السلام عليكم كيف حالك اخي سارب انا افضل ان تربط الكود بزر افضل من الحدث Worksheet_SelectionChange هذا تعديل للكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim j As Range, jj As Range, n As Long, MyColor On Error Resume Next n = 1 Do Until Cells(n, "a").Interior.ColorIndex = xlNone n = n + 1 Loop For Each jj In Range("A1:A" & n) MyColor = jj.Interior.ColorIndex jj.Offset(0, 1) = WorksheetFunction.VLookup(MyColor, Sheets("الوان").Range("A1:B5"), 2, 0) Next End Sub المرفق 2003 ++مثال مبسط.rar
  13. عبدالله باقشير
    السلام عليكم من القائمة صيغ اضغط ادارة الاسماء هل الاسم الذي وضعته في التعليق موجود من ضمن الاسماء ؟؟
  14. عبدالله باقشير
    الفورم FormDate يساعدك في اضافة التاريخ (ممكن تضيف التاريخ يدويا) اما بالنسبة للقائمة اضف الاسم (الذي اطلقته على القائمة ) في تعليق في راس العمود الذي تريد اظهار القائمة فيه.
  15. عبدالله باقشير
    السلام عليكم في المتغير Cont تحدد آخر سطر في العمود A Sub Macro1() Cont = 100000 With Range("B1") .Value = 1 .Resize(Cont, 1).DataSeries End With End Sub او هذا Sub Macro1() Dim Cont Cont = 100000 Range("B1").Resize(Cont, 1).Value = Evaluate("ROW(1:" & Cont & ")") End Sub تحياتي
  16. عبدالله باقشير
    السلام عليكم الشكر واصل لكل المشاركين ...حفطكم الله الاخ الحبيب / سعد عابد .......هذا هو طريق الخير والبركة في كل شي....ادامكم الله عليه وعلى الخير كله تقبلوا تحياتي وشكري
  17. عبدالله باقشير
    مثل ما قال اخي الحبيب حمادة لا اجد افضل من هذه الكلمات لاوفيكم حقكم جميعا جزاكم الله خيرا تقبلوا تحياتي وشكري
  18. عبدالله باقشير
    السلام عليكم المشكلة هذه من عندك .........
  19. عبدالله باقشير
    اخي الفاضل احمد فؤاد
  20. عبدالله باقشير
    شاهد المرفق 2010 فرن مرن الجموعي.rar
  21. عبدالله باقشير
    التهنئة بترقية الاخ الجموعي الى عضو مميز
  22. عبدالله باقشير
    اختي الفاضلة أم عبدالله
  23. عبدالله باقشير
    اخي الحبيب أبو حنين
  24. عبدالله باقشير
    اخي الحبيب حمادة عمر
  25. عبدالله باقشير
    السلام عليكم استبدل شرط البحث بهذا If LCase(TextBox1.Value) = LCase(cl) Then تحياتي
×
×
  • اضف...

Important Information

  I accept