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

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

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

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    السلام عليكم اكرمكم الله اخواني الاحباء على هذا الاطراء وجزاكم ربي خيرا تقبلوا تحياتي وشكري
  2. عبدالله باقشير
    السلام عليكم جمعة مباركة على الجميع عمل ولا اروع جزاك الله خيرا وبارك فيك تقبل حياتي وشكري
  3. عبدالله باقشير
    السلام عليكم بعد اذن الاساتذه Sub newsheetcustomename() Dim sheetname As String sheetname = InputBox("من فضلك ادخل اسم الشيت") If kh_Test_MyChr(sheetname) Then Exit Sub Sheets.Add.Name = sheetname End Sub Function kh_Test_MyChr(khString As Variant) As Boolean Dim MySh As Worksheet Dim MyChArray, MyChr Dim S As Integer, R As Integer S = Len(Trim(khString)) If S > 31 Or S = 0 Then MsgBox "حروف الاسم قد تكون اصغر من 1 او اكبر من 31", 524288 + 1048576 + 16, "اسم مرفوض" kh_Test_MyChr = True Exit Function End If '------------------------------------ MyChArray = Array("/", "*", ":", "؟", "?", "[", "]") For Each MyChr In MyChArray If InStr(1, khString, MyChr, 1) <> 0 Then MsgBox "حروف الاسم تحتوي على الحرف " & Chr(10) & Chr(10) & Chr(9) & MyChr & Chr(10) & Chr(10) & "وهو من الاحرف الممنوعة " & "/ * : ؟ [ ]", 524288 + 1048576 + 16, "حرف ممنوع" kh_Test_MyChr = True Exit Function End If Next '------------------------------------ For Each MySh In ActiveWorkbook.Sheets If UCase(Trim(MySh.Name)) = UCase(Trim(khString)) Then MsgBox "الاسم مكرر ", 524288 + 1048576 + 16, "اسم مكرر" kh_Test_MyChr = True Exit Function End If Next End Function في امان الله
  4. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته الاخ الفاضل/ احمد عباس ----------------حفظكم الله هو صعب شوية بسبب طول الرقم سيختلف ولكن سنحاول اما الكود المشار اليه في مشاركتكم فهو لاحصاء الحسابات المضافة في الشيت c في امان الله
  5. عبدالله باقشير
    احسن الله اليك تقبلوا تحياتي وشكري
  6. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم منتظر تعليقكم بعد ان ترى الملف تقبلوا تحياتي وشكري
  7. عبدالله باقشير
    وعليكم السلام جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  8. عبدالله باقشير
    استخدم هذه المعادلة =IF(AND(ISNUMBER(B2);COUNTIF(Data!$A$3:$C$1000;report!B2));"نعم";"") في امان الله
  9. عبدالله باقشير
    السلام عليكم ضع المعادلة التالية في الخلية A2 واسحبها على باقي الصفوف في العمود =IF(COUNTIF(Data!$A$3:$C$1000;report!B2);"نعم";"")
  10. عبدالله باقشير
    السلام عليكم هذه لم افهمها ممكن توضيح المقصود منها في امان الله
  11. عبدالله باقشير
    السلام عليكم في كود البحث ButtonFind_Click غير هذه السطر ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 بهذا السطر ib = CStr(.Cells(R, MyColmnFind)) = CStr(Me.TextFind) في امان الله
  12. عبدالله باقشير
    السلام عليكم اخي الحبيب / ضاحي الغريب ---------حفظكم الله هدية مقبولة................اكرمكم الله وعمل جميل ورائع جزاكم ربي خيرا وبارك فيكم تقبلوا فائق شكري وتقديري
  13. عبدالله باقشير
    السلام عليكم اخي الحبيب في الله/ الجزيرة -----------حفظكم الله ان شاء الله جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  14. عبدالله باقشير
    السلام عليكم اخي الحبيب / محمدي عبد السميع -----------حفظكم الله جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  15. عبدالله باقشير
    ربنا يطمنا عليهم يا رب يكونوا بخير
  16. عبدالله باقشير
    لا إله الا الله الحليم الكريم .. لا اله الا الله العلي العظيم .. لا إله الا الله رب السماوات السبع و رب العرش العظيم .. لا إله إلا الله وحده لا شريك له .. له الملك .. و له الحمد و هو على كل شيء قدير .. الحمد لله الذي لا إله إلا هو .. و هو للحمد أهل .. و هو على كل شيء قدير .. و سبحان الله .. و لا إله إلا الله .. و الله أكبر .. و لا حول و لا قوة إلا بالله .. إلهي .. أذهب البأس رب الناس ، اشف و أنت الشافي ، لا شفاء إلا شفاؤك ، شفاءً لا يغادر سقماً .. إلهي .. أذهب البأس رب الناس ، بيدك الشفاء ، لا كاشف له إلا أنت .. يارب العالمين آمين .. إلهي .. إني أسألك من عظيم لطفك وكرمك و سترك الجميل أن تشفيه و تمده بالصحة و العافية .. إلهي .. لا ملجأ و لا منجا منك إلا إليك .. إنك على كل شيء قدير .
  17. عبدالله باقشير
    السلام عليكم اخي الفاضل هاني بدر......حفظكم الله فهمت ما تعنيه حديثك لا يمل منه.....بل نستفيد منه ...جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  18. عبدالله باقشير
    اكرمكم الله في الدارين وجزاكم خيرا وبارك فيكم تقبلوا تحياتي وشكري
  19. عبدالله باقشير
    جزاك الله خيرا تقبل تحياتي وشكري
  20. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته تهنئة بالترقية للاخ شوقي ربيع الى عضو محترف الف مبروك والى الامام دوماً............
  21. عبدالله باقشير
    وعليكم السلام ورحمة الله وبركاته جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  22. عبدالله باقشير
    وعليكم السلام اكرمكم الله وفرج همكم وحفظكم من كل مكروه انتم واهلكم وذويكم وجميع المسلمين. تقبلوا تحياتي وشكري
  23. عبدالله باقشير
    يمكنك التعديل مباشرة في مربعات النص واضغط زر تاب لتمكين التعديل تقبل تحياتي وشكري
  24. عبدالله باقشير
    وعليكم السلام جزاك ربي خيرا ورزقك علما نافعا وعملا متقبلا تقبلوا تحياتي وشكري
  25. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
×
×
  • اضف...

Important Information

  I accept