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

تفضل استاذ @jo_2010 حسب مافهمت .هل هذا ماتريد . LAB_2024-1.rar

Private Sub VIP4_Click() On Error GoTo Err_VIP4_Click Beep If MsgBox("هل تريد الحفظ ؟؟", _ vbQuestion + vbYesNo, _ "تنبيه") = vbYes Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenForm "ACSSES_ADDUSER" else undo DoCmd.CancelEvent exit sub end if Exit_VIP4_Click: Exit Sub Err_VIP4_Click: Resume Exit_VIP4_Click End Sub

مرحبا القصة هي: كنت بحاجة إلى أحد برامجي القديمة التي كنت بحاجة إلى استخدامها في تطبيقي الجديد. أدركت أنني نسيت رمز بيئة ترميز VBA في MS Access! كانت القصة فظيعة بعد المراجعة ، أدركت أنني فقدت الملف الذي يحتوي على كلمات المرور. الآن أحتاج إلى مساعدة لفتح كلمة المرور.

ارجو ان تسامحوني وتعذروني الزهايمر يفعل الافاعيل وان يسامحني البشمهندس محمد احمد لطفي واشكر اخي بشمهندس foksh للتنبيه تحياتي

ممكن تجرب الكود Sub CreateFolder() Dim ws As Worksheet Dim lastRow As Long Dim folderPath As String Dim folderName As String Dim fullPath As String Dim i As Long Set ws = ThisWorkbook.Sheets("Sheet1") ' قم بتغيير "Sheet1" إلى اسم ورقة العمل الخاصة بك lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' تحديد آخر صف في العمود A (يمكن تغيير العمود إذا لزم الأمر) For i = 2 To lastRow ' يبدأ من الصف 2 ليتخطى العناوين folderPath = ws.Cells(i, 3).Value ' عمود C folderName = ws.Cells(i, 4).Value ' عمود D If folderPath <> "" And folderName <> "" Then fullPath = folderPath & "\" & folderName If Dir(fullPath, vbDirectory) = "" Then MkDir fullPath MsgBox "Folder created: " & fullPath, vbInformation Else MsgBox "Folder already exists: " & fullPath, vbExclamation End If End If Next i End Sub

صراحة لم افهم طريقة اشتغالك على الملف لاكنني حاولت فقط انشاء الكود الخاص بالفلترة ما بين العناصر المدكورة على يوزرفورم مستقل يمكنك اظافة الاكواد الخاصة بك معه او تعديله بما يناسبك Option Compare Text Dim OneRng(), Rng, rCrit1, rCrit2 Private Sub UserForm_Initialize() Set f = Sheets("Stock") OneRng = f.Range("A4:I" & f.[A65000].End(xlUp).Row).value Rng = UBound(OneRng, 2) ' اسم المخزن rCrit1 = 5 'كود الصنف rCrit2 = 1 Set d = CreateObject("Scripting.Dictionary") d("*") = "" For i = LBound(OneRng) To UBound(OneRng) d(OneRng(i, rCrit1)) = "" Next i rw = d.keys Me.ComboBox1.List = rw Me.ComboBox1.ListIndex = 0 Set d = CreateObject("Scripting.Dictionary") d("*") = "" For i = LBound(OneRng) To UBound(OneRng) d(OneRng(i, rCrit2)) = "" Next i rw = d.keys Me.CB_Pièce.List = rw Me.CB_Pièce.ListIndex = 0 End Sub Private Sub ComboBox1_click() Set d = CreateObject("Scripting.Dictionary") d("*") = "" For i = LBound(OneRng) To UBound(OneRng) If OneRng(i, rCrit1) = Me.ComboBox1 Then _ d(OneRng(i, rCrit2)) = "" Next i rw = d.keys Me.CB_Pièce.List = rw: Me.CB_Pièce.ListIndex = 0 Filtre End Sub Sub Filtre() Dim Tbl() Cpt1 = Me.ComboBox1: Cpt2 = Me.CB_Pièce N = 0 For i = 1 To UBound(OneRng) If OneRng(i, 5) Like Cpt1 And OneRng(i, 1) Like Cpt2 Then N = N + 1: ReDim Preserve Tbl(1 To Rng, 1 To N) For K = 1 To Rng: Tbl(K, N) = OneRng(i, K): Next K End If Next i If N > 0 Then Me.ListBox2.Column = Tbl Else Me.ListBox2.Clear End If If Me.ComboBox1 = "*" And _ Me.CB_Pièce = "*" Then Me.ListBox2.Clear End Sub Private Sub CB_Pièce_click() Filtre End Sub Copy of sell-the-first-quantity- V2.xlsm

راجع هذه النتيجة اولا لنتأكد منها .... طبعا هذه البيانات للفترة الاولى فقط

يسعدني مساعدتك في إعداد معادلة لحساب الدرجة المعيارية بناءً على الدرجة الخام. **إليك خطوات إنشاء المعادلة:** 1. **حدد نطاق الدرجات الخام:** حدد الخلايا التي تحتوي على الدرجات الخام في الجدول الثاني. 2. **حدد نطاق الدرجات المعيارية:** حدد الخلايا التي تريد أن تظهر فيها الدرجات المعيارية في الجدول الأول. 3. **استخدم الدالة VLOOKUP:** استخدم الدالة VLOOKUP للبحث عن الدرجة المعيارية المقابلة للدرجة الخام. **إليك معادلة إكسل:** ``` =VLOOKUP(A2, $B$2:$C$10, 2, FALSE) ``` حيث: * **A2:** هي الخلية التي تحتوي على الدرجة الخام. * **$B$2:$C$10:** هو نطاق الجدول الذي يحتوي على الدرجات الخام والدرجات المعيارية. * **2:** هو رقم العمود الذي يحتوي على الدرجات المعيارية. * **FALSE:** يشير إلى أننا نريد مطابقة دقيقة. **مثال:** إذا كانت الدرجة الخام في الخلية A2 هي 14، فإن المعادلة ستبحث عن الدرجة المعيارية المقابلة في الجدول الثاني (الذي يفترض أن يكون نطاقه $B$2:$C$10). ستجد المعادلة أن الدرجة المعيارية المقابلة لـ 14 هي 86، وستضع هذه القيمة في الخلية المحددة في نطاق الدرجات المعيارية. **ملاحظات:** * إذا كانت الدرجة الخام أكبر من 16، ستعيد المعادلة أعلى درجة معيارية (90). * إذا كانت الدرجة الخام أقل من 0، ستعيد المعادلة أقل درجة معيارية (40). *

أحسنت ،، فكرة جميلة جداً أيضاً لدعمك في فكرة أخرى لتعديل جميع السجلات باستبدال 0 في رقم الهاتف في الجدول بمفتاح الدولة Dim db As dao.Database Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT * FROM Table1 WHERE Left(PhoneNumber, 1) = '0'" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Do Until rs.EOF rs.Edit rs!phoneNumber = "962" & Mid(rs!phoneNumber, 2) rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing

ولان تعليقى بعد تقديم حلول اساتذتى الكرام لك اعتقد انه كان صادما ولانه اذا عرف السبب بطل العجب اليك السبب انظر الى قاعدة البيانات الاتية بعد اغلاقك لمفتاح الشيفت فى قاعدتك يمكن تغيير الاعداد مرة اخرى لقاعدتك من خلال المرفق الاتى فيتم استعادة عمل زر الشيفت مرة أخرى Security(Enable-Disable Shift Key).accdb

جزاك الله خيراً وجعل الله هذا العمل فى ميزان حسناتك

amarhowari ..انتبه من فضلك فالكود يعمل بكل كفاءة ..بارك الله فيك استاذ ابراهيم ..بعد اذن أستاذنا ابراهيم هذا هو الكود بعد وضعه بالملف وشوف النتيجة بنفسك فهذا يكفى !!!! شيتات.xlsm

يمكنك ذلك بهذه المعادلة =INDEX($C$17:$R$24,MATCH($F$5,$B$17:$B$24,0),MATCH($J$5,$C$15:$R$15,0)) 1اسعار العملات.xlsx

جزاك الله خسر الثواب وأكرمك الله وأحسن الله اليك

أحسنت أستاذنا الكريم وبارك الله فيك .. طبعاً موضوع مهم وقيم , جعله الله فى ميزان حسناتك

بارك الله فيك استاذ ماجد وزادك الله من فضله

وعليكم السلام ..بما انك لم تقم برفع ملف ,,فكان عليك استخدام خاصية البحث بالمنتدى فطلبك تكرر كثير جداً وشوف بنفسك : وده كمان مثال بملف مرفق لك وكلمة السر لإظهار الصفحات : 123 اخفاء الشيتات و ترك الشيت الرئيسي هو الظاهر كود اخفاء الشيتات عدا شيت محدد اخفاء الصفحات تلقائيا اخفاء أوراق العمل وعدم اظهارها فورم_كود اظهار و اخفاء للصفحات Sheets Hidding - 2.xlsm

وعليكم السلام أهلاً بك فى المنتدى -تفضل لك ما طلبت ويجب عليك اتباع الخطوات كما بالصورة حدود الصفحة.xlsm

يمكنك استخدام هذه المعادلة لطلبك ..معادلة مصفوفة (Ctrl+Shift+Enter) =IFERROR(INDEX(Table2[التاريخ],SMALL(IF(Table2[اسم الموقع/ المخزن]=$C$3,ROW($A$4:$A$11)-ROW($A$4)+1),ROWS(A$1:A1))),"") كشف حساب مشروع1.xlsx

وعليكم السلام -تفضل بهذه المعادلة سحباً لليسار ثم الى الأسفل =COUNTIFS(data!C$2:C$1000,"<>"&"",data!$A$2:$A$1000,$B4,data!$B$2:$B$1000,1) trasnport1.xlsx

فقط يمكنك استخدام هذه المعادلة أو بعمل تنسيق للخلايا بأن يكون تنسيق الخلية يوم وليس تاريخ B2dddd =TEXT(B3,"b2dddd") هاجر البصمة1.xlsx

كان عليك استخدام خاصية البحث بالمنتدى قبل طرح مشاركتك فبه طلبك -تفضل https://www.officena.net/ib/search/?&q=تفقيط مساحة&search_and_or=and&sortby=relevancy

أحسنت استاذ عادل عمل رائع شكراً جزيلاً لجهودكم

بارك الله فيك وزادك الله من فضله

السلام عليكم ورحمة الله وبركاته لقد أنشأت برنامج بسيط وجمعت به الأكواد التي نسنتخدمها باستمرار وصممته بحيث تكون الواجهة عبارة عن شاشة يتم تجميع بها الأكواد المراد نسخها الي شاشة الفيجوال بيسك لمشاهدة كيف يعمل البرنامج من هذا الرابط بنك الأكواد - demo-24-4-2019.accdb

هذا يعتمد على امتداد الملف اذا كان Accde أو Mde فلاااااا أنصحك بانتظار الحلول أبداً. أما غير ذلك فأنت لم تطبق الشرح بحذافيره 😁