نجوم المشاركات

السلام عليكم و رحمة الله و بركاتة اخواني تم حل المشكلة محضر الاجتماع.xlsm

فيديو 3 ومرفيقين 2 + هديه مرفق Cinema 4D بسيط جدا من جدول لو كان من استعلام يعرض كافة الشركات المتعاقدة او طبخات دولية 😂 او ابداعات فنية 😂 وجعلة تنظيم قنواتك في اليوتيوب وكتابة وتدوين الملاحظات وتستطيع اضافة المشاركين واضافتهم في شريط المتحرك مع فيديو لقناتك مع اضافة شعار لقناتك او الشركة من خلال تصميم الشعار من برنامج Cinema 4d محاولة 1- يتضمن مرفق Cinema 4d مع شرح طريقة الاستخدام البسيطة فقط غير الصورة ثم ارفاقة في النموذج 2- يمكن تعديل مصدر الجدول باضافة دالة IFF -لتحديد اعلى وادنى قيمة ارقام لعرض السهم في النص المتحرك 3- الملاحظات من غير استخدام انشاء استعلامات وانما استعلام داخل الكود تحديد كل السنوات وتحديد الشهر وعرض الاجماليات وعرض الكل مع تقليص لعرض التاريخ مع الملاحظات والتوسيع توضيح اسفل الفيديو في الاسفل 4D بتعديل مرفق استاذ @Moosak 🌹 😇 ==================( تعديل الدالة False , Ture في التحديث 😇 مرفق شريط نص المتحرك لكافة سجلات في الجدول https://www.mediafire.com/file/ooh644tejv8k997/T_V_OpenSures.rar/file مرفق معد من استاذ @Moosak للملاحظات https://www.mediafire.com/file/bh1ffw53nau9zzf/__Notes+-+v2+(1).rar/file

وعليكم السلام ورحمة الله وبركاته اليك التعديل حيث الكود يتعامل مع الخلايا المدمجة Private Sub CommandButton2_Click() On Error GoTo ErrorHandler Dim wsSource As Worksheet Set wsSource = ThisWorkbook.Sheets("Sheet4") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With wsSource .Range("B3:G3").ClearContents .Range("G4:G6").ClearContents .Range("D4:E6").ClearContents .Range("C11:G17").ClearContents .Range("C21:G27").ClearContents .Range("C31:G34").ClearContents .Range("B37:G43").ClearContents .Range("B47:G51").ClearContents .Range("C54:G54").ClearContents .Range("C57:G59").ClearContents .Range("B61:G68").ClearContents End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Exit Sub ErrorHandler: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "حدث خطأ: " & Err.Description End Sub

طريقة تصميمك لنموذج A2 بحاجة الى تحسين الصحبة الطويلة بيننا اعرف ان اي فكرة في رأسك يصعب تغييرها الأفضل في النموذج عند التحميل ان يعرض اسم الأب افتراضيا وتحته الحقول الخمسة ( الهوية ورقمها وتاريخها والبلد) ان كانت تخصه فقط لأني لاحظت من خلال الجداول ان الزوجة والابناء لم ترصد لهم هذه البيانات . بعد ذلك .. اي اسفل هذه البيانات .. مربعي تحرير للزوجات والأبناء ( يتم الاختيار منهما حسب الطلب) واسفل مربعات التحرير مربعات اختيار ( لاختيار المحدد بالتصريح : ان كان الأب او احد الزوجات او احد الأبناء ) ثم مربعي الريبورت اللذين يحددان نوع الخدمة هذه الطريقة تختصر عليك الكثير الكثير من الاكواد وايضا يمكنك العرض ضمن تقرير واحد

ولا يهمك أخي الكريم.. قريباً سأحاول إدراج فيديو لطريقة الاستخدام بشكل مبسط .

وعليكم السلام نعم يمكنك فمثلا على افتراض ان هذا الحرف موجود بهذا النطاق (A2:H10) فستكون المعادلة كالتالى : =COUNTA(A2:H10)

السلام عليكم و رحمة الله ضع المعادلة التالية فى عمود الاسماء =IFERROR(INDEX(ورقة1!$B$2:$C$12;SMALL(IF((ورقة1!$C$2:$C$12>=$F$1)*(ورقة1!$C$2:$C$12<=$E$1)>0;ROW(ورقة1!$C$2:$C$12));ROW(A1))-1;1);"") ثم اضغط CTRL+ SHIFT + ENTER و اسحب نزولا حتى آخر خلية كرر نفس المعادلة فى عمود التاريخ و غير الرقم الاخير فى المعادلة و هو 1 الى 2

السلام عليكم Option Explicit ' بسم الله الرحمن الرحيم " ' ******************** " ' دالة استخراج اسم ولي الأمر " '========================================" ' يامكانية معالجة الاسم المركب الاول " ' تلقائياً حسب معايير معرفة لديها " ' Kh_Father_Replace في الدالة " ' ويمكنك اضافة اي معيار آخر " ' بجانب المعايير الموجودة " ' MyArray في المتغير " ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '========================================" '----------------------------------------------------------------- Function Kh_Father_Name(ByVal Name As String) As String Dim KhString As String, SearchChar As String, Kh_Mid As String, Kh_Rep As String Dim KhMyNo As Integer On Error GoTo Err_Kh_Father_Name If IsEmpty(Name) Then GoTo Err_Kh_Father_Name KhString = Kh_Father_Replace(Trim(Name)) & " " SearchChar = " " KhMyNo = InStr(1, KhString, SearchChar, 1) Kh_Mid = Trim(Mid(KhString, KhMyNo, Len(KhString))) Kh_Rep = Replace(Kh_Mid, "_", " ") Kh_Father_Name = Kh_Rep Exit Function Err_Kh_Father_Name: Kh_Father_Name = "" End Function Private Function Kh_Father_Replace(ByVal Kh_Sub As String) As String Dim MyArray, Ar Dim Sn As String, Re As String '==================================================== ' يمكنك اضافة اي معيار آخر هنا بجانب المعايير الموجودة MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله" _ , " الدين", " الإسلام", " الاسلام", " الحق") '==================================================== Sn = Kh_Sub For Each Ar In MyArray Re = Replace(Ar, " ", "_") Sn = Replace(Sn, Ar, Re) Next Kh_Father_Replace = Sn End Function استخراج اسم ولي الامر.rar

وعليكم السلام -تفضل لك ما طلبت هذا هو المستخدم بالقائمة الرئيسية من قائمة Data ثم Data Validation ثم بعد ذلك اختيار List ووضع هذا النطاق فى خانة Source =Classification!$A$1:$Q$1 أما القائمة الفرعية فعليك بإتباع نفس الخطوات مع وضع هذه المعادلة =OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,COUNTA(OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,20,1)),1) Classification1.xlsx

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة دالة vlookup والبحث ف ورقتين ف نفس الشيت تم ارفاق كود الحل من المبدع / سليم حاصبيا و لا تنسونا من صالح الدعاء تحياتى vlooup_dif_sheets.rar

السلام عليكم إضافة اكثر من 10 اعمدة الى اللست بوكس وخاصة عند البحث الملاحظ دائما عند اضافة قيم الى اللست بوكس يستخدم الغرض AddItem لكن عندما تكون الاعمدة اكثر من 10 اعمدة يظهر خطأ وهذا البديل وهواسرع وافضله حتى ولو كانت الاعمدة لا تتجاوز 10 اعمدة الملف 2003 ListBox.rar