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

السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد مرفق الملف بتغيير المبلغ الي مبلغ + شكل العملة مع الحفاظ علي خاصية الرقم باستخدام conditional formatting الملف المرفق : سؤال تنسيق.rar

على الرغم ما ارفقت اي قاعدة لكي نعمل عليه لكن خذ هذا الكود If InputBox("idxal raqam siri", "tanbih") = "123" Then Me.MyNameTextbox.Visible = True Me.MyCiloseTextbox.Visible = True Else Me.MyNameTextbox.Visible = False Me.MyCiloseTextbox.Visible = False End If 1 - غير رقم 123 برقم سري خاص بك 2 - غير MyNameTextbox ب مربع نصي اللي بها اسم 3 - غير MyCiloseTextbox ب مربع نصي اللي بها رقم الجلوس 4 - وغير خاصية اظهار اي visible ل كلا المربعين الى لا "no" عند تحميل النموذج تحياتي

جرب هذا لماكرو Sub format_it() i = 1 Do Until Cells(i, "k") = "" Or Cells(i, "h") = "" my_formul = "#.00 " & Cells(i, "h").Value Cells(i, "k").NumberFormat = (my_formul) i = i + 1 Loop End Sub

ربما كان المطلوب الاسماء تضاف تلقائيا الى الكومبو و ترتب ابجدياً بدون تكرار form1.rar

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

بعد الضفط على لا يظهر امامك مربع حوار 1-اختر اسماً جديداً للملف(يمكنك الاحتفاظ بنفس الاسم) 2 من التيويب save as type اضفط على السهم الصغير و اختر Excel macro enabled workbook 3-اضغط Save

ممكن إرسال نوذج لما تطلب

تأكد من اعدادات الاقليم اي اللغة لكلا الجهازين ! تحياتي

انصحك بتشفير الاسم ورقم الجلوس لانها طريقة مضمونه 100%

هناك سۆال : لماذا عملت ماكرو لكي يفتح نموذج مسح الكل " ديل ال " في بداية فتح القاعدة البيانات ؟ ما هو السبب ؟ ما هو سبب لكي تفتح نموذج " تيست " ؟ اي لماذا لا تعمل الماكرو لكي يفتح نموذج تيست بجواب الاسئلة الاعلى راح نواصل لحل المطلوب ان شاء الله تحياتي

السلام عليكم ورحمة الله هذا يمكن (ليس في خاصية تنسيق الخلايا Format) باستعمال الدالة CONCATENATE (أو &) غير أن ناتج المعادلة يعطي نصا.... بن علية

الاخ ناصر سعيد

السلام عليكم ورحمة الله المعادلة المقترحة والتي طلبت شرحها هي كالتالي: =VLOOKUP($B4;{"A",0;"B",1000;"C",2000;"D",3000};2)+COUNTIF($B$4:$B4;$B4) وهي تعطي رقما تسلسليا لكل حرف من الحروف الأربعة D، C، B، A من 1000 رقم... من 1 إلى 1000 للحرف A، من 1001 إلى 2000 للحرف B ومن 2001 إلى 3000 للحرف C ثم من 3001 فما فوق للحرف D. وعمل المعادلة يكون كما يلي : تقوم الدالة VLOOKUP بإسناد للحرف الموجود في الخلية B4 بالرقم المناسب له وهي كالتالي: العدد 0 للحرف A، العدد 1000 للحرف B، العدد 2000 للحرف C والعدد 3000 للحرف D ويضاف إلى هذا العدد (وهذا عمل الدالة COUNTIF في المعادلة) عدد مرات ظهور الحرف الموجود في الخلية B4 في النطاق B$4:$B4 $ (الذي يبدأ دئما من الخلية B4 المثبتة ويمتد تلقائيا عند سحب المعادلة إلى الأسفل)... فمثلا لو أخذنا الحرف A فيكون التسلسل كما يلي : الدالة VLOOKUP تسند للحرف A العدد 0 (كما ذكرت في الأعلى) وعند ظهور هذا الحرف لأول مرة يكون ناتج المعادلة 0+1 أي 1 وعند ظهور الحرف مرة ثانية المعادلة تعطي 0+2 أي 2 وبهذا يكون التسلسل للحرف A من 1 إلى 1000 (بفرض أن لا يكون عدد مرات ظهور الحرف أكثر من 1000 مرة وإلا نغير أرقام الإسناد للحروف) والشيء نفسه بتحقق للحروف الأخرى حسب رقم إسنادها... أرجو أني قربت الفهم لعمل المعادلة... ملاحظة: هذه المعادلة استعملت بدلا من معادلات الصفيف التي عادة تثقل عمل الملف... بن علية

الاخ ناصر سعيد صورة من الفورم فى انتظار التعليق قبل وضع الاكواد

احترامي صديقي انتا عامل وندوز 64 بت انت شغلت قاعده البيانات مع اضافة كودات اخفاء شاشة الاكسس ضيف كلمة presafe ممكن يشتغل بس بعمل تعارض مع بعض كودات الفيجوال احترامي صديقي انتا عامل وندوز 64 بت انت شغلت قاعده البيانات مع اضافة كودات اخفاء شاشة الاكسس ضيف كلمة presafe ممكن يشتغل بس بعمل تعارض مع بعض كودات الفيجوال

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

مفيش في الموقع عباقرة أخي الفاضل !! .. يوجد أناس يحاولون تقديم المساعدة ، كل حسب وقته وحسب ما آتاه الله من علم

بارك الله فيك طريقة ذكية وفعالة ... ولكنها تطبع كل الفورم .. ولكنها تفي بالغرض

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

استاذي العزيز جزاك الله خيرا لقد نسخت الكود في ملفي ونفذته وجربت لم يحدث شيء ولكن وجدت ان قائمة Tools اختر Reference اصبحت فعالة ففعلت كما قلت ( ابحث عن كلمة Missing وأزل علامة الصح التي بجانبها ) ويبدو ان الامور تمام ـ إن شاء الله جزاك الله الف خيرا وكل عام وانتم بخير

السلام عليكم استاذنا الحبيب يحياوي اسعد الله مساك الاخوة الاحبه مسائكم فل وياسمين نأتيكم مابجعبتنا كود لإخفاء القوائم تماماً هذا الكود للإخفاء ندرج قيمة FALSE Sub hid_koaeem() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" End Sub وفي حالة الإظهار ندرج قيمة true هكذا Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)" والسلام عليكم

شكراً على الرد ولكني أردت الإستفسار ماذا تقصد بتقسيم ورقة العمل