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

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

يفضل إرفاق ملفك او مثال منه على العموم هذا مثال سريع إن شاء الله يكون المطلوب الخصم بناء على وقت الحضور.xlsx

تفضل مثالك بعد التعديل ..... وهذه صورة للنتيجة وبدون استعلام ظاهر .... kan.rar

السلام عليكم و رحمة الله و بركاته استاذ محمد ، غير مصدر مربع "نص14" الى: ="صفحة " & [Page]\2+1 & " من " & [Pages]\2+1

السلام عليكم ورحمة الله وبركاته هذا شيت عمل فاتورة مبيعات ومشتريات وسدادت العملاء والموردين الآجل (مفتوح المصدر) https://www.mediafire.com/file/3kthtk8ogoz4d2g/2022-05-31_09-41-29.mp4/file فيديو شرح اتمنى تنال على اعجابكم ان شاء الله ♥ حركة بيع ومشتريات.xlsm ان شاء الله سوف اعمل فيديو شرح له

متشكر جدا لحضرتك 💗💗تمت بنجاج

يمكنك استعمال هذا الكود sub fillblank() lr = cells(rows.count, 1).end(xlup).row for n=2 to lr if cells(n, 1).value <> "" then customer = cells(n, 1).value else cells(n, 1).value = customer end if next n msgbox "Done by mr-mas.com" end sub بالتوفيق

قريبا إن شاء الله .. 😊 طريقة إبداعية جديدة وحصرية لتحديث نسخة الواجهات FE لدى المستخدمين بدون برامج أو أدوات خارجية .. أكسس فقط .. 😉👌🏼 :: ترقبوا ::

تفضل أخي عمر .. 🙂 المشكلة كانت في مصدر القوائم المنسدلة .. كانت مختلفة عن الحقول الرئيسية في النموذج .. application.rar

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

امتداد الملف غير مدعوم في اكسل حيث أن تنسيقه لا يتناسب مع الامتداد ربما يكون مصدر هذا الملف هو برامج استعادة المحذوفات حيث أنها تخدع المستخدم بنفس اسم وامتداد الملف وحجمه لكنه لا يعمل ونسبة العمل بها قليلة جدا بالتوفيق

تفضل جرب هذا التعديل بدون عمل جداول مؤقته AdoForm.zip

السلام عليكم 🙂 هذا الملف من مكتبتي وفيه طلبك ، ولكن للاسف وقتي لا يسمح لي بتعديل ملفك !! . وهذه اكواد الطريقة: Option Compare Database Option Explicit Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim dbs As DAO.Database Dim rstDAO As DAO.Recordset Dim rstADO As ADODB.Recordset Dim fld As ADODB.Field Dim strSQL As String Set rstADO = New ADODB.Recordset With rstADO .Fields.Append "EmployeeID", adInteger, , adFldKeyColumn .Fields.Append "FirstName", adVarChar, 10, adFldMayBeNull .Fields.Append "LastName", adVarChar, 20, adFldMayBeNull .Fields.Append "Email", adVarChar, 64, adFldMayBeNull .Fields.Append "Include", adInteger, , adFldMayBeNull .Fields.Append "Selected", adBoolean, , adFldMayBeNull .CursorType = adOpenKeyset .CursorLocation = adUseClient .LockType = adLockPessimistic .Open End With Set dbs = CurrentDb strSQL = "SELECT EmployeeID, FirstName, LastName, Email " & _ "FROM Employees ORDER BY LastName, FirstName" Set rstDAO = dbs.OpenRecordset(strSQL, dbOpenDynaset) Do Until rstDAO.EOF rstADO.AddNew rstADO.Fields(0) = rstDAO!EmployeeID rstADO.Fields(1) = rstDAO!FirstName rstADO.Fields(2) = rstDAO!LastName rstADO.Fields(3) = rstDAO!Email rstADO.Fields(4) = Null rstADO.Fields(5) = Null rstADO.Update rstDAO.MoveNext Loop Set Me.Recordset = rstADO Me.AllowAdditions = True Set rstDAO = Nothing Set dbs = Nothing End Sub Private Sub txtEmployeeID_DblClick(Cancel As Integer) Dim rst As New ADODB.Recordset Set rst = Me.Recordset.Clone With rst .AddNew .Fields(0) = 99 .Fields(1) = "danny" .Fields(2) = "lesandrini" .Fields(3) = "d@l.org" .Fields(4) = 1 .Fields(5) = True .Update End With Set Me.Recordset = rst End Sub جعفر ADORST.mdb

بعد إذن الجميع هذا ملفك بعد تصحيح الخطأ في الكود الخطأ في نقل الكود وليس الكود الأصلي وينتج هذا الخطأ عن عدم فهم دلالات الأرقام والمتغيرات في الكود بالتوفيق مجمع الشيتات.xlsm

السلام عليكم ورحمة الله اذن لا مناص من استخدام الكود التالى Sub TrData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, i As Long, j As Integer, p As Long Dim Arr As Variant, Tmp As Variant, Fsl As String Application.ScreenUpdating = False Set ws = Sheets("قوائم الفصول") Set Sh = Sheets("مجمع الشيتات") LR = Sh.Range("E" & Rows.Count).End(3).Row ws.Range("C" & ws.Range("E" & Rows.Count).End(3).Row + 1) = "" Fsl = ws.Range("F4").Value If IsEmpty(Fsl) Then Exit Sub Arr = Sh.Range("C10:P" & LR).Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 13) = Fsl Then p = p + 1 For j = 1 To 8 Tmp(p, j) = Arr(i, Choose(j, 1, 2, 3, 5, 7, 9, 10, 13)) Tmp(p, 1) = p Next End If Next If p > 0 Then ws.Range("C10").Resize(p, UBound(Tmp, 2)).Value = Tmp Application.ScreenUpdating = True End Sub

طيب ... ايش رأيك في هذا ...... اذا كان ينفعك ... Me.RecordSource = "SELECT *FROM tbl_Employ IN 'C:\Users\ACER\Desktop\AdoForm\Adb_Dat.accdb'[access];"

اشكركم على تعاونكم

ما شاء الله تتقدم الدول بمثل هذا العطاء والبرامج المفتوحة وفقنا الله جميعا لكل ما يحبه ويرضاه

ان شاء الله اكمل اعتذر نسيت الموضوع لانشغالى

شكرا لدعمكم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

السلام عليكم السبب مذكور في ردي بالأعلى، الدالة تبحث عن قيمة B2 -مثلا- (اسم الصنف) في العمود الأول من النطاق A:Q من شيت Data الذي هو العمود A لكن هذا العمود يحوي أرقاما (ترتيب) وليس أسماء الأصناف (التي هي موجودة في العمود العمود C -الثالث- من شيت Data لهذا ظهر الخطأ في نتيجة الدالة... والله أعلم بن علية حاجي

وهذا حل ثالث لإثراء الموضوع برجاء مراجعه معادله VLOOKUP.xlsx

السلام عليكم ورحمة الله الخطأ في الدالة Vlookup أن البحث عن "قيمة البحث" تتم في العمود الأول من "نطاق البحث"... قمت باستبدال الدالة VLOOKUP بالدالتين INDEX و MATCH... بن علية حاجي 2018.xlsx

الحل هنا هل من الضروري رفع هذه الكمية الصخمة(6500 صف) من البيانات 2018 salim.xlsx

شكرا جزيلا لمروركم الكريم أحبتي في الله ولكلماتكم الرقيقة

لزيادة الفائده نرجو من احد العمالقه شرح الكود

ما هو الحل؟

اشكرك على مرورك أخي ياسر بارك الله لك في الحارث ...... أكرمك الله أخي عبد الله هذا بعض ما عندكم ابا أحمد ............. وهذه صورة الملف بهذا الامتداد لكي يتذكره من لا يعرفه

هذا الشيء يوجد بصورة افتراضية في شريط التنقل الموجود أسفل كل نموذج

أخي الكريم ممكن أقوم بها ولكن حاول أنت أولاً معنى الكود الذي في الزر التالي هو إذا كان السجل الحالي اقل من عدد السجلات في جدول1 يتم الانتقال للسجل التالي وإذا كان مساويا لعدد السجلات لا يتم الانتقال بل يتم ظهور الرسالة ............ جرب أنت أن تضع الكود للزر السابق للعلم لن تستعمل عدد السجلات لآنك لن تحتاجه في شيء

أخي الكريم أنس للانتقال إلى خلية معينة وليكن مثلا A1 استعمل الكود التالي range("a1").select نأتي إلى نقطة في ورقة محمية إذا كانت الورقة محمية ضد تحديد الخلايا المحمية يجب عليك تضمين كود إلغاء حماية الورقة قبل كود الانتقال وهو كالتالي ActiveSheet.Unprotect Password:="mas" نأتي إلى عند الضغط على مفتاح الإدخال Enter وهنا أقول لك اختر اي مفتاح آخر غير انتر لأنك ستفقد وظيفته الأساسية إذا قصرت وظيفته على هذا الأمر وساعتها سأعرض لك الكود بإذن الله

أخي الكريم ما تقوله ليس ضمن برمجة الإكسل ولكن ضمن برمجة صفحات الويب بلغة برمجة مثلا php وربطها بقواعد بيانات من نوع mysql وبالفعل عندما تحفظ ملف إكسل كصفحة ويب لا يحتفظ الملف بأكواد vba لأنك في هذه الحالة تحتاج أكواد php أو asp لتحل محل vba ويمكنك متابعة مواضيع منتدى برمجة الويب وتعلم أساسيات لغة html فهي بداية تعلم برمجة الويب ..... للعلم توجد خدمة في موقع مستندات جوجل تقدم استضافة ملفات الإكس وعرضها وتعديلها من خلال المتصفح ولكن أيضا بدون أكواد vba

نعم أخي العزيز هذا ممكن نفترض أن الماكرو الأول اسمه sub macro1 والماكرو الثاني اسمه sub macro2 يمكنك جمع الاثنين معاً في ماكرو ثالث مثلا اسمه macro3 وكوده كالتالي sub macro3() call macro1 call macro2 end sub وجرب وأخبرني بالنتيجة

جزاك الله خيرا أخي طارق ولكني لم أفهم المطلوب بدقة وأدعو الأخ خالدي أن يزيد الأمر وضوحاً هذا طبعاً إذا كان ما تفضل به أخي طارق ليس هو المطلوب وإن كان هو المطلوب فالحمد لله الذي هدانا لهذا