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

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

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

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    السلام عليكم اهلا وسهلا بيك والف مليون مبروك تقبلوا تحياتي الحارة
  2. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته بالنسبة للقوائم جعلت الخيار مفتوح لإضافة مزيد من الاسماء ولكن بدون ان تظهر الأسطر فارغة في القائمة المنسدلة وتوسيط الكلمة بالوسط شاهد المرفق 2010 المرضى المزمنين++.rar
  3. عبدالله باقشير
    ارفق الملف الذي تعمل لنرى ورقة المجموع وايضا اي قائمة الذي تتحدث عنها
  4. عبدالله باقشير
    السلام عليكم عملية الترحيل تتم مرة واحدة لكل صف من ورقة الترحيل الى الورقة الماخوذ اسمها من ( عمود المستفيد+الفرع) اذا كانت المشتركة لثلاثة حسابات حتعملها على ثلاثة صفوف اين المشكلة في ذلك ؟؟؟
  5. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا هذا كود يعمل على اي امتداد Option Explicit '====================================================== '====================================================== Sub RenameMe() Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String '============================ On Error GoTo Err_kh_Name '============================ 1: NewName = InputBox("ادخل اسم الملف الجديد", "اسم الملف") If StrPtr(NewName) = 0 Then Exit Sub If Trim(NewName) = "" Then GoTo 1 '============================ With ThisWorkbook MyBook = .Name MyPath = .Path & Application.PathSeparator End With MyTyp = Mid$(MyBook, InStrRev(MyBook, ".")) MyName = Replace(MyBook, MyTyp, "") '============================ If NewName = MyName Then MsgBox "اسم الملف هذا هو نفس الاسم الحالي", vbOKOnly, "" GoTo 1 End If '============================ NewName = MyPath & NewName & MyTyp If Dir(NewName, vbDirectory) = vbNullString Then ThisWorkbook.SaveAs Filename:=NewName Kill MyPath & MyBook MsgBox "تم تعديل اسم الملف بنجاح", vbOKOnly, "الحمدلله" Else MsgBox "اسم الملف هذا موجود مسبقا", vbOKOnly, "" GoTo 1 End If '============================ Err_kh_Name: If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear End If End Sub المرفق 2003 vvv.rar
  6. عبدالله باقشير
    تم الغاء خاصية المكرر المرفق 2010 المرضى المزمنين.rar
  7. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا وبارك الله فيكم تقبلوا تحياتي وشكري
  8. عبدالله باقشير
    السلام عليكم هذا ما استطعته من النقاط المذكورة مع زيادة امكانية الطباعة للسجل ولا املك حلول اخرى لاجعل الفورم يتناسب مع عملك شاهد المرفق 2010 المرضى المزمنين.rar
  9. عبدالله باقشير
    السلام عليكم تم تطبيق الفورم الذي في الموضوع التالي على ملفك http://www.officena.net/ib/index.php?showtopic=48811 المرفق 2010 المرضى المزمنين.rar
  10. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  11. عبدالله باقشير
    شاهد المرفق الاخير في المشاركة الاولى لقد اضفنا زر للحذف الى المرفق اما التنقل بين السجلات ما ينفعش مع هذا الملف . تقبل تحياتي
  12. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  13. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  14. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  15. عبدالله باقشير
    جزاكم الله خيرا وبارك واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري
  16. عبدالله باقشير
    هذا الفورم فيه هذه الامكانيات http://www.officena.net/ib/index.php?showtopic=48811 تقبل تحياتي وشكري
  17. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  18. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  19. عبدالله باقشير
    اختي الفاضلة نشاطك في المنتدى ملحوظ ما شاء الله عليك جزاك الله خيرا وجعل اعمالك في ميزان حسناتك ورزقك الفردوس الاعلى من الجنة . تقبلوا تحياتي وشكري
  20. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  21. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته دالة لاستخراج اسم واحد او عدة اسماء من اسم كامل kh_Names هي دالة مطورة من الدالة kh_Name والتي تستخرج اسم واحد حسب التعيين من اسم مركب تجدها في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=33289 اما هذه الدالة تستطيع من خلالها استخراج اكثر من اسم وباي ترتيب تريده (فكرة الدالة مستوحاه من مشاركة لاختي الفاضلة ام عبدالله حفظها الله حيث استخدمت الدالة السابقة kh_Name ثلات مرات لاستخراج الاسم الثلاثي ) كود الدالة: Option Explicit ' بسم الله الرحمن الرحيم " '======================================" ' دالة استخراج الاسماء من اسم مركب طويل ' iNdex1 بدلالة ترتيب الاسم '======================================" ' iNdex1 ' اختيار موقع الاسماء التي تريدها ' FullName حسب ترتبها في ' (اسم واحد او عدة اسماء) '======================================" ' وهي تقوم بإستخراج الاسماء المركبة ' للاسم الواجد ' تلقائياً حسب معايير معرفة لديها ' MyArray في متغير الجدول ' ويمكنك اضافة اي معيار آخر ' بجانب المعايير الموجودة ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '======================================" '----------------------------------------------------------------- Function kh_Names(FullName As String, ParamArray iNdex1()) As String Dim i As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String On Error GoTo Err_Kh_Names '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") '====================================== Sn = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== kh_Split = Split(Sn, " ", , vbTextCompare) On Error Resume Next For i = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & kh_Split(iNdex1(i) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") kh_Names = Kh_String Exit Function Err_Kh_Names: kh_Names = "" End Function المرفق 2003 استخراج عدة اسماء من اسم كامل.rar
  22. عبدالله باقشير
    http://www.officena.net/ib/index.php?showtopic=46483
  23. عبدالله باقشير
    السلام عليكم هذا تعديل بسيط لمرفق الاخ عباد حفظه الله المرفق 2003 الملف المرفق_A.rar
  24. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي و شكري
  25. عبدالله باقشير
    السلام عليكم قد عملنا هذا العمل حسب خطة عمل للاستاذ محمدي عبد السميع واظن انه اورد حلا لمثل هذا الطلب في المشاركات في نفس الموضوع اما انا فلا استطيع اجراء اي تعديلات عليه في الوقت الراهن تقبلوا تحياتي وشكري
×
×
  • اضف...

Important Information

  I accept