البحث في الموقع

السلام عليكم ورحمة الله أشارك معكم اليوم أكواد داخل وحدة نمطية عامة تم تطويرها لتصفية محتويات أي مربع سرد (ComboBox) في أي نموذج بشكل ديناميكي بمجرد الكتابة داخل مربع التحرير والسرد تصفية ديناميكية: يدعم التصفية المتعددة باستخدام أكثر من حقل (مثل الاسم + الرقم القومي) تدعم التصفية على حقل واحد أو حقول متعددة باستخدام نمط LIKE '*...*' وذلك لتتم التصفية بناء على اى جزء من الكلمة الكود داخل الوحده النمطية العامة Option Compare Database Option Explicit Private dictRowSources As Object Private strLastFilterValue As String Private strLastComboName As String Private Sub EnsureDictionary() If dictRowSources Is Nothing Then Set dictRowSources = CreateObject("Scripting.Dictionary") End If End Sub Public Sub ClearComboMemory(ByVal frm As Access.Form) Dim strKey As Variant Call EnsureDictionary For Each strKey In dictRowSources.Keys If Left(strKey, Len(frm.Name) + 1) = frm.Name & "." Then dictRowSources.Remove strKey End If Next End Sub Public Sub FilterCombo(ByVal frm As Access.Form, _ ByVal strComboName As String, _ Optional ByVal strFilterField As String = "") Dim cmb As Access.ComboBox Dim strSourceSQL As String Dim strFilterValue As String Dim strFilteredSQL As String Dim strOrderByClause As String Dim strKey As String Dim objRegex As Object Dim objMatches As Object Dim arrFilterFields As Variant Dim strWhereClause As String Dim i As Long On Error GoTo ExitWithError ' التحقق من صحة النموذج وعنصر التحكم If frm Is Nothing Then MsgBox "النموذج غير صالح.", vbExclamation Exit Sub End If ' Debug.Print "Form: " & frm.Name ' Debug.Print "ComboBox: " & strComboName Set cmb = frm.Controls(strComboName) ' التحقق من مصدر البيانات Call EnsureDictionary strKey = frm.Name & "." & cmb.Name If dictRowSources.Exists(strKey) Then strSourceSQL = dictRowSources(strKey) Else strSourceSQL = Trim(Replace(cmb.RowSource & "", ";", "")) ' إزالة الفاصلة المنقوطة ' Debug.Print "RowSource: " & strSourceSQL If Len(strSourceSQL) = 0 Then MsgBox "مصدر البيانات غير صالح.", vbExclamation Exit Sub End If dictRowSources.Add strKey, strSourceSQL End If ' إعادة تعيين المصدر إذا لم يتم توفير حقل تصفية If Len(strFilterField) = 0 Then If cmb.RowSource <> strSourceSQL Then cmb.RowSource = strSourceSQL End If cmb.Requery cmb.Dropdown strLastFilterValue = "" strLastComboName = strComboName Exit Sub End If ' التحقق من نوع عنصر التحكم النشط If TypeOf Screen.ActiveControl Is Access.TextBox Or TypeOf Screen.ActiveControl Is Access.ComboBox Then strFilterValue = Nz(Screen.ActiveControl.Text, vbNullString) ' Debug.Print "ActiveControl: " & Screen.ActiveControl.Name ' Debug.Print "FilterValue: " & strFilterValue Else ' Debug.Print "ActiveControl is not TextBox or ComboBox" If cmb.RowSource <> strSourceSQL Then cmb.RowSource = strSourceSQL End If cmb.Requery cmb.Dropdown strLastFilterValue = "" strLastComboName = strComboName Exit Sub End If ' إعادة تعيين المصدر إذا كانت القيمة المصفاة فارغة If Len(strFilterValue) = 0 Then If cmb.RowSource <> strSourceSQL Then cmb.RowSource = strSourceSQL End If cmb.Requery cmb.Dropdown strLastFilterValue = "" strLastComboName = strComboName Exit Sub End If ' التحقق مما إذا كانت القيمة المصفاة أو ComboBox قد تغيرت If strFilterValue = strLastFilterValue And strComboName = strLastComboName Then cmb.Requery cmb.Dropdown Exit Sub End If ' استخدام Regex لاستخراج ORDER BY Set objRegex = CreateObject("VBScript.RegExp") With objRegex .Global = True .IgnoreCase = True .Pattern = "\s*ORDER\s+BY\s+.*$" End With Set objMatches = objRegex.Execute(strSourceSQL) If objMatches.Count > 0 Then strOrderByClause = objMatches(0).Value strSourceSQL = Trim(Replace(strSourceSQL, strOrderByClause, "")) Else strOrderByClause = "" End If ' Debug.Print "SourceSQL: " & strSourceSQL ' Debug.Print "OrderBy: " & strOrderByClause ' التحقق من الحقول وإنشاء شرط WHERE لحقول متعددة If Len(strFilterField) > 0 Then arrFilterFields = Split(strFilterField, ",") strWhereClause = "" For i = LBound(arrFilterFields) To UBound(arrFilterFields) Dim strField As String strField = Trim(arrFilterFields(i)) If Len(strField) > 0 Then If Len(strWhereClause) > 0 Then strWhereClause = strWhereClause & " OR " strWhereClause = strWhereClause & strField & " LIKE '*" & Replace(strFilterValue, "'", "''") & "*'" End If Next i If Len(strWhereClause) = 0 Then MsgBox "تعبير التصفية غير صالح: " & strFilterField, vbExclamation Exit Sub End If On Error Resume Next strFilteredSQL = strSourceSQL & " WHERE (" & strWhereClause & ")" & strOrderByClause ' Debug.Print "FilteredSQL: " & strFilteredSQL cmb.RowSource = strFilteredSQL If Err.Number <> 0 Then MsgBox "تعبير التصفية غير صالح: " & strFilterField & vbCrLf & "Error: " & Err.Description, vbExclamation On Error GoTo ExitWithError Exit Sub End If On Error GoTo ExitWithError Else strFilteredSQL = strSourceSQL & strOrderByClause cmb.RowSource = strFilteredSQL End If ' تعيين المصدر المصفى وتحديث واجهة المستخدم cmb.Requery cmb.Dropdown strLastFilterValue = strFilterValue strLastComboName = strComboName Exit Sub ExitWithError: Select Case Err.Number Case 2118 Resume Next Case Else MsgBox "حدث خطأ أثناء التصفية: " & Err.Number & " | " & Err.Description, vbExclamation End Select End Sub الاستدعاء فى النموذج في حدث Click : لإعادة تحميل القائمة الأصلية لمربع السرد عند الضغط عليه ' في حدث Click Private Sub ComboBoxName_Click() FilterCombo Me, "ComboBoxName" End Sub وايضا في حدث KeyUp : لتصفية القيم أثناء الكتابة في مربع السرد حسب حقل واحد ' في حدث KeyUp Private Sub ComboBoxName_KeyUp(KeyCode As Integer, Shift As Integer) FilterCombo Me, "ComboBoxName", "FieldName" End Sub مع امكانية في حدث KeyUp : لتصفية القيم أثناء الكتابة في مربع السرد حسب أكثر من حقل ' في حدث KeyUp لعمل التصفية المتعددة Private Sub ComboBoxName_KeyUp(KeyCode As Integer, Shift As Integer) FilterCombo Me, "ComboBoxName", "FieldName, FieldName2" End Sub تحياتى Filter inside the Combobox.accdb

اعرض الملف مثال على تصفية فائمة بناء على اخرى بدون كود مثال على تصفية قائمة بناء على ما يتم اختياره فى قائمة اخري بدون كود صاحب الملف محمد طاهر تمت الاضافه 03 أكت, 2011 الاقسام قسم الإكسيل

 خواطر إكسيلية أساتذتي الكرام إخوتي الأحبة السلام عليكم ورحمة الله وبركاته: بدا لي أن أكتب موضوعاً لا يقف حكراً على أحد – بل بإمكان كلٍّ منا أن يجود بما يخطر له من مواضيع الإكسيل التي يريد أن يفيد بها - وهنا أنطلق من كلمة إكسل التي تعني البراعة أو كما يحلو لنا أن نسميها في بلدي المكلوم "برنامج الجداول الإلكترونية" : ولذلك فإنني سأنطلق من خاطرة أولى تتحدث عن بعض اختصارات برنامج الإكسيل التي نصادفها بشكل يومي كما يلي: اختصارات لوحة المفاتيح في الإكسيل: إظهار(عرض) الصيغ في الخلايا بدلاً من نتائجها المحتسبة CTRL + ~ سابقة أثر(الخلايا التي أثرت في قيمة الخلية الحالية CTRL + [ تاريخ اليوم CTRL+ ; اختيار(تحديد كل) الجدول الحالي CTRL+ * الوقت الحالي CTRL+SHIFT+ ; نسخ من الخلية المجاورة بالأعلى CTRL+ ' هذا ما استطعت عرضه في عجالة من أمري وسيتبع إن شاء الله تعالى بمواضيع أخرى والسلام عليكم خواطر إكسيلية.rar

السلام عليكم ورحمة الله وبركاته الاستعلام يُعتبر العمود الفقري لقواعد البيانات ، وكلما زادت معرفتنا به ، كلما يصبح البرنامج افضل واسرع 🙂 البحث/التصفية في الاستعلام من الطرق المهمة ، ولكن وللأسف الشديد ، ارى الكثير من المبرمجين لا يعرفون الطريقة الصحيحة في عملها ، فالطريقة الغير صحيحة قد تعطيك النتائج ولكن على حساب وقت تنفيذ الاستعلام 😞 الامثله هنا تقوم على انه يوجد لدينا نموذج اسمه frm_Main ، وبه حقل الاسم fName ، وحقل التاريخ:من Date_From ، وحقل التاريخ:الى Date_To ، والحقول في الاستعلام ، حقل الاسم fName ، وحقل التاريخ DateX . 1. اذا اردنا البحث عن اسم كامل (وليس جزء من اسم) ، فيجب ان يكون المعيار في الاستعلام: [forms]![frm_Main]![fName] 2. واذا كان حقل الاسم فارغا في النموذج ، ونريد ان نرى جميع الاسماء ، فالمعيار يصبح: iif(len([forms]![frm_Main]![fName] & '')=0,[fName],[forms]![frm_Main]![fName]) والشرح للتأكد بأن الحقل فارغ في النموذج، بدل ان نكتب IsNull([forms]![frm_Main]![fName]) or [forms]![frm_Main]![fName]=0 فإننا نختصر هذين الشرطين بشرط واحد len([forms]![frm_Main]![fName] & '')=0 iif(كان الحقل فارغ في النموذج,[fName] اعطنا جميع بيانات الحقل,[forms]![frm_Main]![fName]واذا كان الحقل به قيمة فاستعمل هذه القيمة) . 3. اذا اردنا البحث عن جزء من الاسم Like IIf(Len([forms]![frm_Main]![fName] & '')=0,"*","*" & [forms]![frm_Main]![fName] & "*") والشرح IIf(Len([forms]![frm_Main]![fName] & '')=0 نعم Like "*" لا Like "*" & [forms]![frm_Main]![fName] & "*") . 4. اذا اردنا البحث بين تاريخين بدون سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) مع سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null او طريقة استاذنا واخونا العود ابو خليل Between nz([forms]![frm_main]![Date_From];"01/01/1900") And nz([forms]![frm_main]![Date_To];"01/01/2100") . جعفر

السلام عليكم لدي سؤالين عن التصفية في الاستعلام لم أستطع التعامل معهم 1- في الدالة LIKE المطوب عند عدم كتابة قيمة يظهر كل السجلات وعند كتابة رقم "1" مثلاً يظهر فقط "1" ولا يظهر "11" "12" 2-هل يمكن التصفية في الاستعلام بقيم متعددة من مربع تحرير وسرد في نموذج سؤالين في التصفية في الاستعلام1.accdb

السلام عليكم يوجد كود تصفية الحسابات برقم الحساب فقط ارجو تصفية الحسابات بشرطين رقم الحساب ورقم العميل لان العميل احيانا ياخد اكثر من حساب وتوجد مشكلة اخرى عند التصفية يختفي سطرالعناوين ارجوالعمل على اجراءالتصفية من اول صف به البيانات دون اخفاء سطرالعناوين وهو السطر الرابع وكذلك التعديل على زر انهاءالتصفية ليطابق ما تم بشرطين كذلك . وفقكم الله وحفظكم من كل شر تصفيةبشرطين.rar

السلام عليكم تم طرح عدة اسئلة عن طريقة فرز او تصفية بيانات النموذج ، وسأقوم هنا بشرح الطريقتين: 1. إما عن طريق الاستعلام ، وهذا الرابط يعطينا المثال (والرجاء قراءته بتريث وتمعن وبالتفصيل) : 2. وإما عن طريق النموذج ، فميزتها: أ- انك تستطيع عمل تصفيه/تصفيات اضافية على النموذج او التقرير ، بعد تصفية الاستعلام ، ب- الاكسس سيعطيك الكود وسأشرح هنا كيفية عمل تصفية بيانات النموذج (وبنفس الطريقة يمكن عمل اكثر من تصفية ، وعمل فرز كذلك) : سأستعين بمرفق السؤال التالي للأخ محمد ، وبعد طلبت إذنه 1. قاعدة البيانات يجب ان تسمح لها ان تكون في وضع Layout View (هذا فقط حتى نتعلم الطريقة ، ويمكن الغاءه فيما بعد) ، . 2. النموذج يجب ان يكون غير منبثق . 3. هذا النموذج الذي نريد ان نعمل له تصفية بين تاريخين للحقل Date . 4. الهدف النهائي هو استخدام هذا الحقل لإدخال تاريخ معين ، ثم الضغط على زر "تصفية بين تاريحين" للقيام بالتصفية . 5. طريقة العمل: أ. بزر الفأرة اليمين نضغط في بيانات حقل التاريخ Date ، ب. ونختار تصفية التاريخ (السبب ان الاكسس اعطانا تصفية التاريخ هو لأن الحقل حقل تاريخ ، فلو كان الحقل نص او رقم لأعطانا الاكسس خيارات اخرى) ، ج. ونختار بين تاريخين (طبعا يمكنك اختيار اي من الاختيارات الاخرى ، وهذا يعتمد على التصفية التي تريد القيام بها) . د. تخرج لنا نافذة تطلب إدخال التاريخين (ويمكننا ادخال التاريخ بعدة طرق) ، وحسب اختيارنا ، والنتيجة المفروض ان نراها بعد التصفية هي السجلات بالاسهم الحمراء فقط . هـ. وهذه نتيجة التصفية اعلاه بين تاريخين . ح. والآن الى شرح كيفية الاستفادة مما عملناه اعلاه وتطبيقه في كود ، ننتقل بالنموذج الى وضع Layout View . ط. ونضغط بالفأرة اليسار على النموذج الفرعي الذي عملنا عليه التصفية ، ي. ثم ننظر في اعدادات النموذج ، الى ان نصل الى التصفية ، فنرى الكود الذي استعمله الاكسس للقيام بالتصفية ، فنعمل له نسخ ، ومثل ما اشرت اعلاه ، يمكننا اضافة اكثر من تصفية لأكثر من حقل ، ويمكن عمل فرز لحقل آخر ، ثم نرى الكود جاهزا هنا . ك. هذا الزر الذي سننقر عليه للقيام بالتصفية . ل. فنعمل الحدث على نقر الزر ، ثم نلصق الكود السابق ، ونقوم بتعديل التواريخ بما يناسب طلبنا ، وهو التصفية بين: تاريخ الحقل DateX و تاريخ الحقل DateX ناقصا 65 يوم ، او كما بالتواريخ في الملاحظات (باللون الاخضر في الكود) (ملاحظة مهمة للعلم: الاكسس يستخدم نظام التاريخ الامريكي في جميع عملياته ، والتاريخ الامريكي هو شهر/يوم/سنة ، كما نرى في كود التصفية) . م. وهنا نرى نتيجة النقر على زر "تصفية بين تاريخين" ، والذي يستعمل الكود اعلاه . ****************************************** اما اذا اردنا عمل استبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح الكود . ************************** الآن سنقوم بعمل اكثر من تصفية ، فرز بين تاريخين واستبعاد "الاسكندرية" فرزنا بين التاريخين ، وكانت نتيجته هكذا . واستبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح كود التصفية هكذا . والآن الى الكود الذي يضم هذه التصفيات: يجب ان نعرف اننا نتعامل مع مجموعة مختلفة من انواع الحقول ، وكل نوع له طريقة في عمل الكود ، فالسطر الاول هو تاريخ ، والسطر الثاني للنص ، ووضعت مثال في آخر سطر لحقل الرقم Dim City As String City = "اسكندرية" 'للتاريخ myCriteria = "([testQ].[datex] between #" & Me.DateX & "# and #" & Me.DateX - 65 & "#)" 'للنص myCriteria = myCriteria & " AND ([testQ].[country1]<> '" & City & "'" myCriteria = myCriteria & " or [testQ].[country1] is null)" 'للرقم 'myCriteria = myCriteria & " AND [testQ].[ID]<> " & Me.ID Me.TestF.Form.Filter = myCriteria Me.TestF.Form.FilterOn = True *********************************** كيف نعرف ان النموذج به تصفية: عند عمل التصفية في النموذج (وليس من الاستعلام) ، ستلاحظ ان النموذج يخبرك انك عملت تصفية ، هكذا بالتظليل الاصفر: . ولإزالة التصفية ، يجب عليك النقر على احد هذين المكانين المظللين بالاصفر ، او عمل زر: . والكود على نقر الزر سيكون: Me.TestF.Form.Filter = "" Me.TestF.Form.FilterOn = False جعفر 660.2.Test2006.mdb.zip

السلام عليكم حياكم الله المطلوب كود لتصفية ليست بوكس

اواجه مشكلة عند الفلترة لمجموعة بيانات في الاكسل ولم القى حل... مثلا الفلترة لعمود اعداد من 1-10 التصفية للعمود بحسب القيمة 1 يظهر جميع البيانات التي تحتوي على القيمة واحد في وبالاسفل سطر للرقم عشرة التصفية للعمود بحسب القيمة 2 يظهر جميع البيانات التي تحتوي على القيمة 2 في وبالاسفل سطر للرقم عشرة التصفية للعمود بحسب القيمة 3 يظهر جميع البيانات التي تحتوي على القيمة 3 في وبالاسفل سطر للرقم عشرة نفس السطر يتكرر عند التصفية

السلام عليكم ورحمــــة الله تعالى وبركاته المطلـــوب هو تصفية بيانات السجلات داخل الازرار بمعنى ( كل زر ياخد بيانات سجل ) انا استخدمت هده الطريقة لكن لا اجدها عملية ان كانت فيه طريقة اخرى فالمرجوا افادتي بها ومشكورين سلفا ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ me.a.caption = me.Iname DoCmd.GoToRecord , , acNext me.b.caption = me.Iname DoCmd.GoToRecord , , acNext me.c.caption = me.Iname me.d.caption = me.Iname فهده طريقة بسيطة بدون تعقيد لكن لا تخدم ما اريده لانه عدد الازرار يفوق 50 زر فالمثال يوضح الطلب وشكرا مسبقا تصفية بيانات سجل.rar

اتمنى من الاخوة الكرام المساعدة في المرفق حيث يوجد جدولين احدهما باسم بيانات والاخر باسم مخالفات جدول البيانات هو الجدول العام يشمل جميع اسماء الطلاب والجدول الاخر هو جدول الطلاب المخالفين وهم ضمن جدول البيانات اريد استعلام بحيث يظهر فيه الاسماء من جدول البيانات السليمة بمعنى لا يظهر فيه الطلاب المخالفين انا احتاج اليه كثيرا يسهل عملي بارك الله فيكم التقدم 2015 النهائي.rar

السادة الخبراء عندى ملف مرتبات 12 شهر وبه شيت تسوية الضرائب اريد عمل تصفية لكل الاسماء بدون تكرار فى اخر شيت التسوية ولكم جزيل الشكر جزاكم الله كل خيراً تسوية الضرائب.rar

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء اريد عند اختيار الصف من مربع تحرير وسرد يتم عمل تصفية للصف المختتار مرفق ملف لتوضيح المطلوب وجزاكم الله خيرا Book salim.rar

السلام عليكم المطلوب جزاكم الله خيرا عمل تصفية بالكود لمن لدية رسوب بثلاث مواد او اقل .. واذا كان بالامكان دمجه مع كود الاستاذ سليم حاصبيا جزاه الله خيرا اقصد التصفيه حسب الشرط وهو ان يكون راسبا بثلاث مواد او اقل ثم فتح صفحة جديدة باسم مدرسته .. لكم خالص احترامي وتقديري تصفية بشرط.rar

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء أصحاب الخبرة ...الرجاء مساعدتي في التالي 1- عمل فرز وتصفية أسماء الطلاب بناءا على رقم الطالب ID 2- ثم ترحيل البيانات التي تم فرزها وتصفيتها (طبعا دون تكرار ) 3- مع الترحيل : دمج الكورسات التي درسها الطالب خلال العام في خلية واحدة . 4- اذا أمكن أيضا دمج درجات الطالب في الكورسات بنفس ترتيب الكورسات في الخلية التي تم دمجهم فيها. *** ملحوظة: ِ5- أسماء الكورسات كثيرة وربما يصل الي 11 كورس 6- تم ارفاق ملف اكسل بالمطلوب شكرا مقدما لكم جميعا علي الاهتمام والمساعدة التي ألقاها منكم في هذا المنتدي المفيد للجميع مطلوب تصفية مع ترحيل بيانات مع دمج البيانات.rar

السلام عليكم كل عام وانتم بخير هدية الشهر الكريم فورم بحث و تصفية بامكانية التعديل مرن لكل المستخدمين لا عليك سوى التعديل في كود اظهار الفورم ضع نطاق رؤوس الاعمدة و يصبح جاهز للاستخدام ' اسم نطاق رؤوس الاعمدة ' او عنوان النطاق ملحوق باسم الورقة Private Const MyTopColmnRng As String = "البيانات!$B$3:$L$3" المرفق 2003 2007 فورم بحث بامكانية التصفية.rar ودمتم في حفظ الله ============================================================== ملحوظة: في المشاركات ادناه وجدت ان السؤال الاكثر حول كيفية البحث ليشمل نتائج اوسع والحل موجود اصلا وهو استخدام النجمة وعلامة الاستفهام وقد اوجدت زرين لهذا الغرض أحرف البدل يمكن استخدام أحرف البدل التالية كمعايير مقارنة لعوامل التصفية وعند البحث عن محتوى واستبداله. * (علامة نجمية) أي عدد من الأحرف على سبيل المثال، يتم العثور على "شمال شرق" و"جنوب شرق" عند كتابة *شرق ؟ (علامة استفهام) أي حرف مفرد على سبيل المثال، يتم العثور على "سمير" و"سفير" عند كتابة س؟ير ============================================================== ايضا الذي تطلع عنده رسالة بالخطأ عند السطر .ColumnWidths = wColmn يقوم بحذف هذا السطر من الكود او يعمل شرطة احادية قبل السطر ليلغي قراءة هذا السطر وستنتهي المشكلة ان شاء الله لان هذا السطر يقوم بوضع مقاسات الاعمدة من النطاق يعني هو مش مؤثر في الكود اصلا ستبقى المقاسات الافتراضية للست ==============================================================

لدي برنامج عبارة عن طلبات الزبائن... طلبات الزبائن تمر على عدة أقسام... المطلوب: عمل تصفية حسب القسم التي توجد فيه المعاملة. مثلاً: عن اختيار قسم الفحص في أعلى النموذج المرفق (المشار إليها باللون الأصفر) يتم فرز القائمة في أسفل النموذج حسب قسم الفحص... وهكذا وبارك الله فيكم جميعاً Orders.rar

اخوانى فى منتدى اوفيسنا السلام عليكم ورحمة الله وبركاتة رجاء المساعدة فى تغيير عنوان الورقة حسب عامل التصفية وللتوضيح اكثر فى الملف المرفق وجزاكم الله خيرا test.rar

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء جزاكم الله خيرا الملف المرفق فيه تصفية حسب الفصل والنتيجة وسبق ان رفعته لمنتدى اكسل الاخ الشقيق لمنتدانا اوفسينا الرائع حيث كانت هناك مشكلة عند تحميل الملفات في منتدى اوفسينا ولكنني حاولت في تطبيق كود للاستاذ الحسامي جزاه الله خيرا على ملفي واستطعت ان انفذه لكن فيه بعض المشاكل منها البطء في تنفيذ الاخفاء لغرض الطباعة ارجو المساعدة في تعديل الكود لتسريعة وتضبيطه او كود جديد لنفس الغرض وتقبلوا دعواتي لكم بالصحة والعافية . تعديل الكود بشكل اسرع.rar

السلام عليكم ورحمة الله وبركاته، لكل من أراد أن يقوم بتصفية بيانات أي جدول حسب المعايير التي يحددها وطباعتها في شيت منفصل فليتفضل بفتح المرفق. تصفية.rar

ملف يوضح تصفية القوائم بالمعادلات المعادلات موجودة في مكانين هما: 1- DATA VALIDATION. 2- NAMES. لا تتردد بالسؤال. قوائم.rar

السلام عليكم ورحمة الله وبركاته أساتذتي الأفاضل حفظكم الله المطلوب كود للتصفية التلقائية للعمود الذي يكون فيه أطول بيانات وتكون التصفية حسب شرط بلا فراغات حيث أن البيانات في الأعمدة متغيرة الطول وأريد أن تتم التصفية عند عمل الكود وفق أطول بيانات لعمود ما اذا لا توجد امكانية لكل الأعمدة على أقل تقدير العمودين A و G أبو أنس تصفية بشرط العمود الاطول بيانات.rar

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

هذه قائمة منسدلة متعددة المستويات اضافة لما تفضل به علينا استاذنا الكبير ابو ثامر اعاده الله الينا سالما معافى ان شاء الله ظ‚ط§ط¦ظ…ط© ظ…طھط¹ط¯ط¯ط© ط§ظ„ظ…ط³طھظˆظٹط§طھ.rar