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

تفضل اخي قمت بتعديل بسيط بنقل البيانات من عمود b الى عمود a xl.xlsb

بعد اذن الأستاذ محمد DATE 30J.xlsm

هممم طيب جرب الآن 🙂 ابدأ الكتابة مباشرة ، وبدون عمل اي شيء آخر ، ثم استخدم الاسهم في اختيار السجل ، وعند الاحتيار انقر على احد الزرين: TAB او ENTER . 1564.مشكلة استخدام السهم في البحث.accdb.zip

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

تفضل يا سيدي 🙂 النموذج والاستعلام هكذا : . وزر "عرض التقرير" يحتوي على هذا الكود في حدث النقر: Private Sub cmd_Preview_Click() Dim varItem As Variant Dim myWhere As String myWhere = "" ' Loop through the selected items in the ListBox For Each varItem In Me.lst_XX.ItemsSelected ' Add each selected item to the string myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', " Next varItem ' Remove the trailing comma and space from the string myWhere = Left(myWhere, Len(myWhere) - 2) 'هذه الفقرة الاخيرة بتعطينا المواد التي تم اختيارها بهذا التنسيق: 'الإقتصادية', 'الادارية', 'التربوية' DoCmd.OpenReport "qry_Section_Gender_Count", acViewPreview, , "[Section] in (" & myWhere & ")" 'والامر النهائي يصبح هكذا: 'DoCmd.OpenReport "qry_Section_Gender_Count", acViewPreview, , "[Section] in ('الإقتصادية', 'الادارية', 'التربوية')" End Sub . والنتيجة: جعفر 1563.baseNN.accdb.zip

لا الموضوع ليس بهذا الشكل اعتقد انك تعلم اخي جعفر اني قادر باذن الله على حل هذه المشكلة البسيطة انا فقط رتبت الكود وحذفت ماليس ذو صله وانتهت مشكلة الماوس مع ذلك طريقتك افضل ومختصره وهذا اقرار مني بذلك الشايب 🌹

هذا الميدان لك ، تفضل 🙂

وعليكم السلام ورحمة الله تعالى وبركاته =IF($F$10<>"";"30/"&TEXT($F$10;"mm/aaaa");"") ");"") اخر يوم في الشهر =EOMONTH($F$10;0)

شكر الله لكم أيها الكرام،، @شايب @jjafferr بالفعل تم التعديل على الملف جمعًا بين الإجابات وكانت النتائج رائعة، متميزة،، كما هو تميزكم المعتاد.. لكم صادق الدعوات فأنتم للإبداع أصل،، وللمعرفة عنوان،،

حياك الله والدنا الشايب.. @شايب والعرب تقول ما بعقلها إلا شايب بالفعل هذا المطلوب وغاب عن البصر المكتوب،، فكان لكبرينا علمًا وقدرًا حسن البصيرة.. تبقى أمر أخير بما يتعلق عند ظهور النتائج نتحرك بالسهم،، لكن إذا كانت القائمة طويلة مثلا وحركت مؤشر الفأرة صوب المراد فإنه لا يختار فهل له من حل؟

.... واليك طريقة ثانية . في ورقة جديدة " الشهادات (2) " لن تحتاج فيها الى تعبئة الصورة شعار لجميع الشهادات_جديد .xlsm

أهلا بكم.. أنتم ترون زملائي أني أُبرمج ضمن بيئة VBA ولم أستخدم JavaScript لأن الأمر لا يستدعي ذلك! ولأبقي العمل في متناول الجميع... حل الإشكالات.. أعتقد أن كيفية حل الإشكالات لا تحتاج إلى شرح! وإذا أردتم ذلك فأرجو إعلامي.. SearchIn HTML Table.accdb

حياك الله 🙂 اضفت ملاحظات على المشاركة اعلاة لتوضيح الكود 🙂

تم غلق الموضوع للتكرار رابط الموضوع

تفضل جرب اخي فلترة البيانات بقيمة الخلية (A1) يمكنك استخدام الكود التالي Sub Filter_Data() Dim Rng As Range Dim Crite As Worksheet: Set Crite = Sheets("Raw Data") Dim CFilter As Worksheet: Set CFilter = Sheets("Do Not Include") lrow = Crite.Range("B" & Rows.Count).End(xlUp).Row Réf = CFilter.[A1] On Error Resume Next If Réf = Empty Then: Exit Sub Crite.AutoFilter.ShowAllData Set Rng = Crite.Range("B6:B" & lrow).Find("*", Réf, LookIn:=XlFindLookIn.xlFormulas, _ lookat:=xlWhole, _ SearchDirection:=xlPrevious) Application.ScreenUpdating = False Crite.Range("A4:E" & lrow).AutoFilter Field:=2, Criteria1:=Réf Crite.Activate On Error GoTo 0 Application.ScreenUpdating = True End Sub test 8.xlsm

السلام عليكم شرح دوال excel بالعربي ... موضوع يبحث عنه معظم الاعضاء كي يتمكنوا من فهم هذا البرنامج المذهل في امكانياته . ومن خلال المنتدى وحتى تعم الفائدة اضع بين ايديكم كتاب سهل الفهم سلس في عرض جميع الدوال مع الامثلة لكل داله الكتاب وجدت صعوبة في رفعه لأنه حوالي 7 ميجا . وللحصول عليه اكتب في جوجل " شرح دوال excel بالعربي pdf المنذر سفان " الكتاب مجاني ليس عليه اية حقوق من المؤلف ... رابط التحميل Excel Functions (mediafire.com)

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

تفضل أخي العزيز .. ولزيادة الخير وضعت لك أكواد جميع الإجراءات الأساسية : الإجراءات الإعتيادية للسجلات ( حفظ - جديد - حذف - إضافة - تكرار - التالي - السابق - الأول - الأخير - .....) '===================================== حفظ السجل والذهاب لسجل جديد Private Sub SaveRecBtn_Click() On Error GoTo Err_SaveRecBtn_Click DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec Exit_SaveRecBtn_Click: Exit Sub Err_SaveRecBtn_Click: MsgBox Err.Description Resume Exit_SaveRecBtn_Click End Sub '===================================== حذف السجل Private Sub DeleteBtn_Click() On Error GoTo Err_DeleteBtn_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Exit_DeleteBtn_Click: Exit Sub Err_DeleteBtn_Click: MsgBox Err.Description Resume Exit_DeleteBtn_Click End Sub '===================================== إضافة سجل جديد Private Sub AddNewBtn_Click() On Error GoTo Err_AddNewBtn_Click DoCmd.GoToRecord , , acNewRec Exit_AddNewBtn_Click: Exit Sub Err_AddNewBtn_Click: MsgBox Err.Description Resume Exit_AddNewBtn_Click End Sub '===================================== السجل التالي Private Sub NextBtn_Click() On Error GoTo Err_NextBtn_Click DoCmd.GoToRecord , , acNext Exit_NextBtn_Click: Exit Sub Err_NextBtn_Click: MsgBox Err.Description Resume Exit_NextBtn_Click End Sub '===================================== السجل السابق Private Sub PreviousBtn_Click() On Error GoTo Err_PreviousBtn_Click DoCmd.GoToRecord , , acPrevious Exit_PreviousBtn_Click: Exit Sub Err_PreviousBtn_Click: MsgBox Err.Description Resume Exit_PreviousBtn_Click End Sub '===================================== السجل الأول Private Sub FirstBtn_Click() On Error GoTo Err_FirstBtn_Click DoCmd.GoToRecord , , acFirst Exit_FirstBtn_Click: Exit Sub Err_FirstBtn_Click: MsgBox Err.Description Resume Exit_FirstBtn_Click End Sub '===================================== السجل الأخير Private Sub LastBtn_Click() On Error GoTo Err_LastBtn_Click DoCmd.GoToRecord , , acLast Exit_LastBtn_Click: Exit Sub Err_LastBtn_Click: MsgBox Err.Description Resume Exit_LastBtn_Click End Sub '===================================== البحث عن سجل Private Sub FinedRecBtn_Click() On Error GoTo Err_FinedRecBtn_Click Screen.PreviousControl.SetFocus DoCmd.RunCommand acCmdFind Exit_FinedRecBtn_Click: Exit Sub Err_FinedRecBtn_Click: MsgBox Err.Description Resume Exit_FinedRecBtn_Click End Sub '===================================== تكرار السجل Private Sub DublicateRecBtn_Click() On Error GoTo Err_DublicateRecBtn_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdRecordsGoToNew DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste Exit_DublicateRecBtn_Click: Exit Sub Err_DublicateRecBtn_Click: MsgBox Err.Description Resume Exit_DublicateRecBtn_Click End Sub '===================================== حفظ السجل Private Sub SaveRecBtn_Click() On Error GoTo Err_SaveRecBtn_Click DoCmd.RunCommand acCmdSaveRecord Exit_SaveRecBtn_Click: Exit Sub Err_SaveRecBtn_Click: MsgBox Err.Description Resume Exit_SaveRecBtn_Click End Sub '===================================== طباعة السجل الحالي Private Sub PrintRecBtn_Click() On Error GoTo Err_PrintRecBtn_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.PrintOut acSelection Exit_PrintRecBtn_Click: Exit Sub Err_PrintRecBtn_Click: MsgBox Err.Description Resume Exit_PrintRecBtn_Click End Sub '===================================== التراجع عن التسجيل Private Sub UndoRecBtn_Click() On Error GoTo Err_UndoRecBtn_Click DoCmd.RunCommand acCmdUndo Exit_UndoRecBtn_Click: Exit Sub Err_UndoRecBtn_Click: MsgBox Err.Description Resume Exit_UndoRecBtn_Click End Sub '===================================== فتح التقرير وطباعة السجل المحدد بدلالة الرقم التسلسلي Private Sub Print_Click() On Error GoTo Err_OpenReportBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OpenReport stDocName, acViewReport, , "ID =" & Me.ID DoCmd.RunCommand acCmdPrintPreview DoCmd.RunCommand acCmdPrint Exit_OpenReportBtn_Click: Exit Sub Err_OpenReportBtn_Click: If Err.Number = 2501 Then Resume Exit_OpenReportBtn_Click 'print cancelled MsgBox Err.Number & vbCr & Err.Description Resume Exit_OpenReportBtn_Click End Sub '===================================== طباعة تقرير Private Sub PrintReportBtn_Click() On Error GoTo Err_PrintReportBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OpenReport stDocName, acNormal Exit_PrintReportBtn_Click: Exit Sub Err_PrintReportBtn_Click: MsgBox Err.Description Resume Exit_PrintReportBtn_Click End Sub '===================================== معاينة تقرير Private Sub VeiwReportBtn_Click() On Error GoTo Err_VeiwReportBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OpenReport stDocName, acPreview Exit_VeiwReportBtn_Click: Exit Sub Err_VeiwReportBtn_Click: MsgBox Err.Description Resume Exit_VeiwReportBtn_Click End Sub '===================================== فتح تقرير Private Sub OpenReportBtn_Click() On Error GoTo Err_OpenReportBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OpenReport stDocName, acViewReport Exit_OpenReportBtn_Click: Exit Sub Err_OpenReportBtn_Click: MsgBox Err.Description Resume Exit_OpenReportBtn_Click End Sub '===================================== حفظ تقرير بصيغة Private Sub SendReportToBtn_Click() On Error GoTo Err_SendReportToBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OutputTo acReport, stDocName Exit_SendReportToBtn_Click: Exit Sub Err_SendReportToBtn_Click: MsgBox Err.Description Resume Exit_SendReportToBtn_Click End Sub

بارك الله فيك يالغالي مشكوررر علي التوضيح

إضافة إلى إجابة الأستاذ إبراهيم لنفرض أن ناتج الصيغة فراغ مثال =IF(ورقة1!A2="";"";ورقة1!A2) فإن COUNTIF لن تجد الصفر وستعد الفراغ في هذه الحالة يمكن استخدام =SUM((LEN(A1:A444)>9)*1) مع الضغط على كنترول + شفت + انتر . Shift+Ctrl+Enter 454545.xlsx

السلام عليكم و رحمة الله اجعل الدالة هكذا =COUNTIF(A1:A230;"<>"&"0")