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

لدي نموذج بحث بجزء من الإسم أرغب في وضع زر لتحديث حقل نتيجة البحث و السماح لبحث جديد عوضا عن إغلاق النموذج في كل مرة لإجراء بحث آخر و لمزيد من التوضيح أنه عند عدم غلق النموذج إثر البحث الأول و إجراء بحث ثاني فإني أجد نتيجة البحث الأول db1.rar

الحل الثانى دالة معرفة تستخدم لايجاد عدد مرات تكرار اسم احمد فقط حتى لو تكرر الاسم أكثر من مرة فى الخلية الواحدة Function ragab(rng As Range) As Integer For Each cl In rng arr = Split(Trim(cl)) For i = 0 To UBound(arr) If arr(i) = "احمد" Then T = T + 1 End If Next Next ragab = T End Function وتستخدم كالآتى =ragab(A1:A100) New Microsoft Excel Worksheet1.rar

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

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

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

بسم الله الرحمن الرحيم اساتذة فى هذا المثال لديه تموذج ( User_Interface ) عند كتابة فى حقل Password و الصغط على الزر enter يتم فتح نموذج User_Interface المطلوب : اذا قمت بكتابة كلمة مرور غير صحيحة ( اى كلمة مرور ليست موجودة فى حقل empassword ) تضهر رسالة بان الرقم السرى غير صحيحة Sample.rar

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

السلام عليكم لقد حاولت كثيرا مع هذا البرنامج ولكن دون جدوي عند عمل ملف تنفيذي وتجهيزه تظهر الرساله التاليه الرجاء من يعرف سبب المشكله New folder.rar

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

السلام عليكم أخي العزيز حيث انك تشكو فلابد انك تقصد الموضوع http://www.officena.net/ib/index.php?showtopic=46684&hl= ولقد راسلتني وراسلتك علي الخاص وشرحت لك ظروفي ولم تقدر انشغالي طبعا انا تابعت الموضوع معك منذ مايقرب من شهرين ولو راجعت الفارق بين اول ملف (غير الخطأ اللي في اول مشاركة) وبين آخر ملف لاكتشفت كم الجهد والوقت المبذول في الموضوع ولو نظرت ايضا لعدم تحديد طلباتك من الاول لعلمت كم من الوقت كان ممكن يتوفر تذكر: صافي الكمية ثم صافي الكمية آخر حاجة ثم صافي الكمية آخر حاجة2 ثم صافي الكمية آخر حاجة3 ثم صافي الكمية آخر تعديل ثم صافي الكمية آخر تعديل3هاني ثم صافي الكمية آخر تعديل4هاني ثم صافي الكمية آخر تعديل5هاني ثم صافي الكمية الجديد ثم انظر جيدا ردي بالمشاركة 25 وكيف رددت انت بمشاركتك 26 ، 27 أخي الحبيب / لله الفضل والمنة علي كل عمل يعمله أي من الأعضاء لمساعدة الآخر ولندعوا الله ان يكون لوجهه الكريم ولكننا في النهاية بشر (أنا وأنت) وليس وقتنا ملكنا المهم دعنا لانبحث عن الأخطاء ولكن فلنبحث عن العلاج عليك بتحديد وفهم ماتريد بالضبط ولتطرحه في موضوع جديد ولاتوجهه لشخص محدد والله ياأخي ليس الموضوع شخصي ولكني مشغول وانت لاتساعد بتحديد ماتريد اعذرني مرة أخري وتقبل ودي واحترامي

السلام عليكم Option Explicit Sub kh_mKRR() Dim c As Integer Dim Last As Long, R As Long, LR As Long ''''''''''''''''''''''''''''' Last = ورقة1.Cells(Rows.Count, "A").End(xlUp).Row ''''''''''''''''''''''''''''' Range("A2").Resize(Cells(Rows.Count, "A").End(xlUp).Row).EntireRow.Delete ''''''''''''''''''''''''''''' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ''''''''''''''''''''''''''''' With ورقة1 For R = 2 To Last If WorksheetFunction.CountIf(.Range("C2:C" & Last), CStr(.Cells(R, "c"))) > 1 Then LR = Cells(Rows.Count, "A").End(xlUp).Row + 1 .Cells(R, "A").Resize(1, 7).Copy Cells(LR, "A") End If Next End With ''''''''''''''''''''''''''''' Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic ''''''''''''''''''''''''''''' End Sub ترحيل الارقام المكررة.rar

قم بارفاق الملف اخي الكريم او مزيد من التوضيح جزاك الله خيرا

السلام عليكم الاخ الكريم / أحمــــد غانـــم بارك الله فيك واعتذر عن التأخر في الرد ولكن كان ذلك بسبب مشاكل لدي في النت ولكن الاهم ان الاخ الحبيب / إبراهيم ابوليله ... جزاه الله خيرا قد قام بالواجب وزيادة زاده الله من فضله ومن علمه جزاكم الله خيرا

ولاثراء الموضوع اخواني الكرام اليكم هذا الرابط به كود يقوم بحفظ الملف والتعديلات كل دقيقة مثلا او حسب رغبتك http://www.officena.net/ib/index.php?showtopic=46850&hl=

ولاثراء الموضوع في اوفيس 2003 بدون اكواد قم باتباع الخطوات في الصورة الاولي والثانية وان كان الاوفيس لديك اصدار آخر اخبرنا به وسنعطيك الطريقة له الصورة الثانية

السلام عليكم ورحمة الله أختي الكريمة، هل جربت الدالة SUBTOTAL مع خصائصها، فهذا عملها... يمكن قراءة المساعدة لكيفية استعمال هذه الدالة... أخوك بن علية

الحل الثالث دالة معرفة تستخدم لايجاد عدد مرات تكرار اسم اسم تريدة ( يكتب فى معطيات الدالة ) Function ragab(rng As Range, nam As String) As Integer For Each cl In rng arr = Split(Trim(cl)) For i = 0 To UBound(arr) If arr(i) = nam Then T = T + 1 End If Next Next ragab = T End Function وتستخدم كالآتى =ragab(A1:A100;"احمد") حيث يمكنك كتابة أى اسم آخر تريدة غير الاسم احمد داخل الدالة New Microsoft Excel Worksheet2.rar

تفضل أخى الحل الأول هذه الدالة =COUNTIF(A:A;"*احمد*") وهى بشكل سليم فقط اذا كان الاسم احمد يوجد مرة واحدة فقط فى كل خليه ولا يتكرر فى الخلية الواحدة New Microsoft Excel Worksheet.rar

السلام عليكم جرب هذه تحياتي look up+.rar

الحمد لله

أدعوا الله سبحانه وتعالي ان اكون وفقت في تبسيط المعلومة وسردها وشرحها بما يتناسب مع جميع المستويات درسنا اليوم سوف نشرح به اداة اخري من ادوات الفورم وانا عن نفسي اسميها بالاداة السحرية لما تتمتع به من قدرات علي التحكم بالفورم وقدرات مذهلة حقا في الابداع والابتكار في التصميم الاداة هي الصفحات المتعددة MultiPage control الدرس السابع نبدا علي بركة الله بسم الله الرحمن الرحيم يتألف عنصر تحكم الصفحات المتعددة من واحد أو أكثر من الكائنات صفحة، تحتوي كل منها على مجموعتها الخاصة من الضوابط. يتم استخدام متعدد أفضل عندما كنت ترغب في التعامل مع كمية كبيرة من البيانات التي يمكن تصنيفها إلى فئات متعددة، حيث يمكن إنشاء صفحة منفصلة لكل فئة. وترد جميع الضوابط التي تمت إضافتها إلى صفحة في عنصر تحكم متعدد الصفحات، في وتصبح جزءا من هذه الصفحة والذي يميز عناصر التحكم من تلك التي هي على خلاف ذلك جزء من في UserForm. عنصر تحكم متعددة لديها العديد من الصفحات، حيث اختيار صفحة يجعلها واحدة الحالية (مما يجعلها مرئية) في الوقت الذي يختبئ الآخرين. كل صفحة من عنصر تحكم متعدد الصفحات لديها ترتيب الجدولة الخاصة. يتم ترقيم الصفحات من صفر، ولتحديد الصفحة الأولى في عنصر تحكم متعدد الصفحات، استخدم التعليمات البرمجية: MultiPage1.Value = 0. افتراضيا، عنصر تحكم متعدد الصفحات لديه 2. لإضافة صفحات، انقر بزر الماوس الأيمن على علامة التبويب واختر الصفحة جديد ((حدد حذف الصفحة لحذف صفحة) ملاحظة: كل صفحة من عنصر التحكم المتعددMultiPage سوف يكون منفصل ويمكن استخدام مجموعة او اكثر من ا OptionButtons، بغض النظر عن ما إذا كانت جميع OptionButtons (عبر كل الصفحات ) لها نفس اسم مجموعة. Dynamically Add/Remove a Page "إستخدام الأسلوب Add: بناء الجملة: تعيين M = MultiPage1.Pages.Add ( pageCaption، pageIndex). pageIndex (اختياري) هو عدد صحيح الذي يحدد موقف للصفحة التي ستدرج لاحقا، بدءا من صفر لأول صفحة / يتم تعيين اسم للصفحة، pageCaption يحدد تسمية توضيحية. كلاهما اختياري التحديد. مثال علي ذلك Set m = MultiPage1.Pages.Add("Page5", "NewPage", 1) هذا السطر يضيف صفحة جديدة مع اسم Page5 والتسمية التوضيحية NewPage، مثل الصفحة الثانية (المركز الثاني في ترتيب الصفحات). MultiPage1.Pages.Add "Page3"; MultiPage1.Pages(2).Caption = "NewPage" لاضافة صفحة جديدة ,وتعيين التسمية التوضحية newPage ويمكن نستخدم امر مباشر بسيط MultiPage1.Pages.Add لاضافة صفحة جديدة ولازالة صفحة MultiPage1.Pages.Remove (pageIndex). مثال MultiPage1.Pages.Remove (1) وذلك لازالة الصفحة الثانية لتغيير أو تعيين خصائص الصفحة في وقت التشغيل، يتعين علينا أن نحدد أن الصفحة في عنصر تحكم متعدد الصفحات، التي يمكن أن يتم بطرق مختلفة. للوصول إلى صفحة فردية في عنصر تحكم متعدد الصفحات، بعد طرق التحكم في الصفحات 1. مؤشر رقمي (باستخدام مجموعة صفحات): 0 مؤشر يشير إلى الصفحة الأولى، مؤشر 1 إلى الصفحة الثانية، وهلم جرا. رمز لتعيين تسمية توضيحية -. MultiPage1.Pages 2. الطريقة البند (باستخدام مجموعة صفحات): البند 0 مؤشر يشير إلى الصفحة الأولى، مؤشر البند 1 إلى الصفحة الثانية، وهلم جرا. رمز لتعيين تسمية توضيحية -. MultiPage1.Pages.Item (ItemIndex) التعليق 3. اسم الصفحة:. رمز لتعيين تسمية توضيحية - MultiPage1.Pages ("[PageName") تسمية توضيحية أو MultiPage1.Pages.Item ("[PageName") تسمية توضيحية 4. كائن الصفحة: رمز لتعيين تسمية توضيحية - MultiPage1.PageName.Caption 5. SelectedItem : رمز لتعيين تسمية توضيحية - MultiPage1.SelectedItem.Caption مثال : تغيير خصائص كل صفحة من عنصر تحكم متعددة، وذلك باستخدام أساليب مختلفة من الصفحة التحديد. شاهد الشكل التالي مثال عملي في حال كنت ترغب في عمل فورم لادخال البيانات بشكل تسلسلي (أي خطوة واحدة تلو الأخرى)، ثم بدلا من استخدام UserForms المتعددة (أكثر من فورم) فمن الأفضل لاستخدام عنصر تحكم الصفحات المتعددة لإنشاء صفحات متعددة في UserForm واحدة. يمكن جعل الصفحة التالية يمكن الوصول إليها إلا بعد أن تم ملؤها في الصفحة السابقة ودخلت. وتبين لنا كيفية إنشاء واجهة معالج يتكون من 4 صفحات، على النحو المبين أدناه. سوف نستخدم عنصر تعدد الصفحات في انشاء فورم طلب توظيف ونستعرض معا كل مرحلة ونقوم بمراجعة خصائص المجموعة المشتركة في الاطارات واضافة عناصر الي الليست بوكس والكمبو بوكس الاعداد للفورم (طلب توظيف) الصفحة الاولي والتي سوف نقوم فيها بادخال الأسم ولا يمكن لنا الانتقال للصفحة التالية الا بعد استكمال البيانات الصفحة الثانية والتي سوف نقوم فيها باختيار النوع والعمر الصفحة الثالثة والتي سوف نقوم فيها باختيار الحالة الأجتماعية والجنسية lllll الصفحة الرابعة والتي سوف نختار منها مجال العمل والمستوي التعليمي وسوف نستخدم الكود التالي في حدث انطلاق الفورم لضبط اعدادات الصفحات وتسميتها وتسمية الاطارات وفي حدث Private Sub MultiPage1_Change() سوف نقوم بوضع الكود التالي لضبط الانتقال بين الصفحات بواسطة مفتاحي التالي والسابق وضبط مفتاح الحفظ كالتالي برمجة مفتاح السابق للتنقل بين الصفحات برمجة مفتاح (التالي) للتنقل بين الصفحات وفي النهاية كود مفتاحي الحفظ والخروج الاكواد مشروحة سطر سطر مع الفورم والتطبيق بالمرفقات كان هناك اقتراح وعلي حسب طلبكم هل اطرح امثلة تقومون بتنفيذها ونستعرضها معا خطوة خطوة لاني مش شايف تفاعل او اسئلة حول المواضيع ان كان اقتراحي محل قبول فسيتم طرح امثلة تقومون بتطبيقها ورفع التصاميم والنتائج ونتشاور حولها وللموضوع بقية والي لقاء اخر مع أداة جديدة من ادوات الفورم MultiPage.rar

ممكن مع تحديد الأرقام المحاطة بالإطار الأسود ثم عمل كنترول + مسافة سوف تجد الإطار الأسود يختفي

السلام عليكم الاخ الكريم / حسام غباشى بارك الله فيك اليك اخي الكود الذي يقوم بهذه الوظيفه ... حفظ تلقائي للملف كل دقيقة اولا لنقل كود الحفظ الي ملفك .... قم بعمل مودل وضع الاكواد التاليه فيه ... Public Rm As Double Public Const C_Con = 60 Public Const Sc_W = "Ex" Public Sub St_A() Rm = Now + TimeSerial(0, 0, C_Con) Application.OnTime EarliestTime:=Rm, Procedure:=Sc_W, Schedule:=True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub ثم ضع الاكواد التاليه في حدث الملف ThisWorkbook Private Sub Workbook_Deactivate() Call St_A End Sub Private Sub Workbook_Open() Call St_A End Sub جزاك الله خيرا حفظ كل دقيقة.rar

اخي حسن ما تطلبه يمكن عمله وقد عملها الاستاذ ابوعبدالله اضع لك الرابط لتحاول التجربه وامهلني بعض من الوقت وسأحاول المساعدة خذ الرابط وتمرن في محاولة الحل http://www.officena.net/ib/index.php?showtopic=31695 ابواحمد