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

تفضل =TEXT(E5;"ddd") New Microsoft Office Excel Worksheet.xlsx

تفضل Private Sub CommandButton7_Click() Call Addimg(CommandButton7.Caption) End Sub Private Sub CommandButton8_Click() Call Addimg(CommandButton8.Caption) End Sub Private Sub CommandButton9_Click() Call Addimg(CommandButton9.Caption) End Sub Private Sub CommandButton10_Click() Call Addimg(CommandButton10.Caption) End Sub Private Sub CommandButton11_Click() Call Addimg(CommandButton11.Caption) End Sub 'توحيد الإجراء Function Addimg(CommandC As String) Dim ws As Worksheet: Set ws = Sheets("البيانات") Dim sh As Worksheet: Set sh = Sheets("الفلتر") sh.Range("a4:j150") = "" sh.[f1].Value = CommandC k = 4 lr = ws.Range("c" & Rows.Count).End(xlUp).Row For R = 5 To lr If ws.Range("c" & R) = sh.Range("f1") Then For j = 1 To 10 sh.Cells(k, j) = ws.Cells(R, j) Next k = k + 1 End If Next X = sh.Range("d999").End(xlUp).Row For i = 1 To X Controls("Label" & i).Caption = sh.Cells(i + 3, 4) Next End Function

تفضل نموذج بحث - مثال.xlsm

السلام عليكم اهداني اخي العزيز @حسونة حسين ملف اكسل يحتوي على جميع مواضيع منتدى اكسس وبروابط مباشرة اضعه بين ايديكم لا تنسونا من دعوات صالحات *********************** ( إضافات للموضوع - Moosak ) قمت بعمل تصميم بسيط لنموذج البحث وأضفته إلى الموضوع الرئيسي بعد أذن أستاذنا أبو خليل 🙂 بمجرد الكتابة تظهر النتائج .. لاستعراض الموضوع يتم الضغط على العنوان مباشرة النقر المزدوج على مربع البحث يعيد إظهار جميع النتائج 🙂 يمكن البحث بكلمات متفرقة في الجملة .. Search_Officena_Access.rar ********************************************** Access.rar

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

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

الرقم 1 ، 2 ، 4 ،5 موجود فعلا لانه فعلا الآن يمكنك ادخال محاصيل شتوية وصيفية المهم هو جدول البيانات الخاص بحصر المحاصيل ، ما دامت البيانات موجودة فيمكن اخراجها في التقرير على الصورة والشكل الذي نريد ----------------------------------------------------------------- الرقم 3 .. يمكن تحقيق ذلك بحيث عند ادخال المساجة لا يسمح بتجاوز الحصة المقررة له .. ساقوم بعمله لك .. انتظرني ...

وعليكم السلام ممكن عملها عن طريق التنسيق الشرطي ومن اسهل الطرق تضليل جقول النموذج المستمر ثم تنسيق شرطي ثم قاعدة جديدة ثم تعبير ونكتب tx2=id tx2 حقل نصي غير منضم ومخفي id هو حقل المعرف ثم في حدث عند النقر او عند التركيز للحقل id نضع الامر tx2=id مرفق مثال اخونا الكبير شايب Database28.accdb

تم التعديل : 1- فورم ادخال البيانات هو للادخال فقط .. فهو لا يعرض البيانات .. والعرض يتم من خلال التقرير 2- اي مزارع ليس لديه رقم قومي لن يظهر في مربعات التحرير 3- السنة او العام .. يتم تحديثه مع بداية كل عام .. لاحظ النموذج الخاص وعملية الضبط عند كتابة السنوات من اجل تلافي الخطأ عند الكتابة ( لا مجال للاجتهاد) وسوف تتضح فائدة هذا الاجراء عندما نريد التصفية حسب الاعوام . DataFarm3.rar

المطلوب يكتب بجانب التاريخ اسم اليوم (سبت-احد-اثنين ...و هكذا) مرفق ملف للتوضيح و شكرا مقدما على مجهودكم المستمر New Microsoft Office Excel Worksheet.xlsx

الف شكر على المعلومة و على المجهود و الرد السريع

أشكرك أخي عمر على كلامك الطيب بنظرة سريعة على الكود من الأفضل توحيد الإجراء حتى لا يتكرر مع كل صورة واستدعاء الإجراء فقط ليكون بهذا الشكل ما عليك إلا وضع هذا السطر عند ضغط الصور Call AddItemL(Label2.Caption) فقط غير رقم الليبل Private Sub Image1_Click() Call AddItemL(Label1.Caption) End Sub Private Sub Image2_Click() 'استدعاء الاجراء ووضع اليبل المناسب لكل صورة Call AddItemL(Label2.Caption) End Sub 'توحيد الإجراء Function AddItemL(LabelC As String) X = 0 For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.List(i, 0) = LabelC Then X = 1 Exit For End If Next i TextBox1 = WorksheetFunction.VLookup(LabelC, Range("d4:h99"), 5, 0) If X = 1 Then 'Me.ListBox1.AddItem Me.ListBox1.List(i, 1) = Me.ListBox1.List(i, 1) + 1 Me.ListBox1.List(i, 2) = Me.ListBox1.List(i, 1) * TextBox1 Else Me.ListBox1.AddItem Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = LabelC Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = 1 Me.ListBox1.List(i, 2) = TextBox1 End If End Function

وعليكم السلام احذف 'Me.ListBox1.AddItem عند تحقق الشرط ليصبح الكود بهذا الشكل Private Sub Image1_Click() X = 0 For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.List(i, 0) = Label1.Caption Then X = 1 Exit For End If Next i TextBox1 = WorksheetFunction.VLookup(Label1, Range("d4:h99"), 5, 0) If X = 1 Then 'Me.ListBox1.AddItem Me.ListBox1.List(i, 1) = Me.ListBox1.List(i, 1) + 1 Me.ListBox1.List(i, 2) = Me.ListBox1.List(i, 1) * TextBox1 Else Me.ListBox1.AddItem Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Label1.Caption Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = 1 Me.ListBox1.List(i, 2) = TextBox1 End If End Sub Private Sub Image2_Click() X = 0 For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.List(i, 0) = Label2.Caption Then X = 1 Exit For End If Next i TextBox1 = WorksheetFunction.VLookup(Label2, Range("d4:h99"), 5, 0) If X = 1 Then 'Me.ListBox1.AddItem Me.ListBox1.List(i, 1) = Me.ListBox1.List(i, 1) + 1 Me.ListBox1.List(i, 2) = Me.ListBox1.List(i, 1) * TextBox1 Else Me.ListBox1.AddItem Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Label2.Caption Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = 1 Me.ListBox1.List(i, 2) = TextBox1 End If End Sub

لي الشرف أخي الكريم.

وعليكم السلام تفضل نموذج بحث - مثال.xlsm

أهلا بكم.. لكن كيف تقوم الأداة بتخزين البيانات في حقل مصدر التحكم؟ وأيضا ماذا لو كان النموذج غير مرتبط بمصدر بيانات؟ هذه الأسئلة لا يمكن تجاهل الإجابة عنها!! عندما واجهت أبا جودي مشكلة عدم تطابق البيانات، قام بفحص البيانات العائدة من صندوق التحرير والسرد بالتابع TypeName، ليتفاجأ أن البيانات العائدة من نوع (متعدد، متنوع)! فلماذا لم يقبل صندوق الرسائل عرض البيانات كنص؟! السبب في ذلك أن البيانات العائدة وإن كانت من النوع (متنوع)، إلا أنها على هيئة مصفوفة بيانات! ومصفوفة البيانات أفرادها من النوع (متنوع). وكان الأولى فحصها البيانات العائدة من صندوق التحرير والسرد بالتايع VarType. يعيد هذا التابع رقما يشير إلى نوع البيانات كما هو مبين في الرابط التالي: VarType function بعد معرفة أن البيانات العائدة من صندوق التحرير والسرد هي مصفوفة بيانات؛ كيف يمكن قراتها جميعا دون الحاجة إلى عمل دوارة For... Next؟ يمكن استخدام التابع Join لهذا الغرض.. Private Sub cmdRequired_Click() Debug.Print VarType(cboEmpSection.Value) 'تعيدالرقم 8204، انظرالاقتباس أعلاه MsgBox Join(cboEmpSection.Value, ", ") ' يمكن استخدام محدد الفصل Debug.Print Join(cboEmpSection.Value) ' يمكن تجاهل محدد الفصل End Sub

القصبي أين الضغط على الإعــــجــــــــاب على هذه الإجابة الممتازة ؟!!!💙

تفضل أخى قصى برنامج الساقبة النهائى.rar

الملف مرفق number3.rar

فهمت عليم ماذا تقصد و اليك الكود المصنف11.rar

عليكم السلام ورحمة الله وبركاته على حسب فهمي لطلبك اتفضل الملف المرفق عند فتح الملف سوف يذهب الى ورقة رقم 2 ويقف عل الخلية رقم B2 تحياتي لك w_W.rar

اذاً اخي تامر اليك الكود الجديد red1.rar

اليكم هذا الكود الذي يفعَل كل المعادلات دفعة واحدة مهما كان عددها في الملف مرفق الملف مع الكود الربح.rar

الأستاذ / إبراهيم حسين محمد السلام عليكم ورحمة الله وبركاته إليك الملف به المطلوب. A1.rar

السلام عليكم مرفق الملف المعدل عسى ان يكون المطلوب كود لنسخ البيانات - الحسامي.rar