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

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

بسم الله الرحمن الرحيم اريد منكم انشاء الله كود لحذف البيانات والتفاصيل داخل المرفق ولكم جزيل الشكر والتقدير

السلام عليكم ورحمة الله وبركاته صباح الخير موضوعي اليوم متشعب قليلا ولا ادري ما هو البرنامج المناسب ليخدمني في العمل، هل (الاكسل او الاكسس) سوف اطرح عليكم موضوعي بإختصار قدر المستطاع بداية : انا موظف في جهة حكومية ، وظيفتي مراقب ومتابعة السيارات من حيث : 1. دخولها وخروجها من موقع العمل. 2. متابعة صرفية الوقود (درهم / باللتر)+ حساب المسافة المقطوعة بالكيلومتر. 3. متابعة سير حركة المركبة من موقع العمل الى الجهة المقصودة. 4. متابعة الوقت المستغرق من وقت انتهاء مهمة السيارة الى وقت عودتها الى مقرها. سوف اتطرق الى شرح كل نقطة على حدى. بالاضافة الى استخراج تقارير شهرية عن كل سيارة من حيث (الادارة او القسم المستفيد). في المشاركة التالية سوف ارفق النموذج الذي استخدمه حاليا في برنامج الورد موضحا عليه بعض الامور لتوصيل الفكرة. هل يوجد لديكم برنامج جاهز لنفس الفكرة المطروحة ؟

السلام عليكم ورحمة الله وبركاته في أول القول وبإسم الله نثرنا بعض القول ... وتبارى الأخوة بالفضل ... والكلم... View the full article

لدي تقرير عدد السجلات به تتغير حسب فتحه أي إذا أعطيته رقم 1 يفتح التقرير به 20 سجلا مثلا و إذا أعطيته رقم 2 يفتح التقرير به 35 سجلا أردت أن أضع دالة تحسب مجموع السجلات تقسيم على عدد السجلات ما الحل و شكرا لم أتمكن من إرفاق الملف لأن حجمه كبير و شكرا

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على القائمة المنسدلة ببعض الإضافات والاستعانة بكود بسيط يقوم بنسخ مضمون الخلية المختارة من العمود B في الخلية J1 والتي تسمح بانتقاء القائمة المنسدلة... لم أهتد لوسيلة وفكرة أخرى لعمل المطلوب.... أرجو أن ينال إعجابك... أخوك بن علية الملف المرفق : قائمة منسدلة مفلترة.rar

بسم الله الرحمن الرحيم اريد كود حذف لشركات الثلاثة التفاصيل داخل المرفق ولكم جزيل الشكركود للحذف.rar

استبدل الكود الذي في الملف بهاذا الكود فهو افضل واصح Option Explicit Sub TEST() Dim Sh As Worksheet Dim lr As Long, Lc As Long Dim r As Integer, iCont As Integer Dim xx As Double Dim T, TT T = Time$ If T <= "17:00:00" Then Set Sh = ThisWorkbook.Sheets("feuil1") lr = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row If Sh.Range("B1") = Date Then MsgBox "áÇíãßäß ÊÛííÑ ÇáÈíäÇÊ áÇßËÑ ãä ãÑÉ æÇÍÏÉ ÞãÊ ÈÇáÝÚá ÈÊÛííÑ ÇáÈíäÇÊ áåÐÇ Çáíæã" Else For r = 1 To lr Lc = Sh.Cells(r, Rows.Column).End(xlToRight).Column If Sh.Cells(r, 2) = "" Then Sh.Cells(1, 2) = Date Sh.Range("A" & r).Resize(1, 2).Copy Sh.Range("B" & r) Else Sh.Range("A" & r).Resize(1, Lc).Copy Sh.Range("B" & r) Sh.Range("B1") = Date End If Next End If Else MsgBox "áÇíãßäß ÇÌÑÇÁ ÚãáíÉ ÇÏÎÇá ÌÏíÏÉ ÇáÇ ÈÚÏ ÇáÓÇÚÉ ÇáÎÇãÓÉ ãÓÇÁ" End If End Sub

السلام عليكم لدي ملف به أكثر من ورقة عمل أريد أن يعطيني رقم ورقة العمل في كل منها أوتوماتيكياً

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

ويمكن ايضا الجمع بين الكودين لاخفاء مجموعة من الصفوف ابتداءا من صف معين واخفاء مجموعة من الاعمدة ابتداءا من عمود معين في ورقة معينة ليكون الكود كما يلي Private Sub Worksheet_Activate() Application.ScreenUpdating = False Rows("301:301").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp Selection.EntireRow.Hidden = True Columns("J:J").Select Range(Selection, Selection.End(xlToRight)).Select Selection.EntireColumn.Hidden = True Application.ScreenUpdating = True End Sub

الاخ الكريم / علي حسن بالنسبة لطلبك سيكون باستخدام نفس الكود تقريبا ولكن بخصوص الاعمدة ليكون الكود بالشكل التالي Private Sub Worksheet_Activate() Application.ScreenUpdating = False Columns("J:J").Select Range(Selection, Selection.End(xlToRight)).Select Selection.EntireColumn.Hidden = True Application.ScreenUpdating = True End Sub ويتم تحديد العمود المطلوب الاخفاء او الحذف من بعده من هذا السطر Columns("J:J").Select ارجو ان يكون هو المطلوب جزاك الله خيرا

الاخ الكريم / shakhawan بارك الله فيك علي حسب فهمي للطلب و ع السريع اليك هذا الكود البسيط ارجو ان اكون قد فهمت الطلب كما تريد .... معلهش صايمين بقا ... هههه رمضان كريم Private Sub Worksheet_Activate() Application.ScreenUpdating = False Rows("301:301").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp Selection.EntireRow.Hidden = True Application.ScreenUpdating = True End Sub جزاك الله خيرا تحديد عدد الصفوف في شيت معين.rar

السلام عليكم أخي الكريم أقدر ثقتك الغالية ولكنك الآن خالفت قواعد المشاركة بالمنتدي ============================ عنوان المشاركة 1 . يجب أن يكون عنوان المشاركة يدل على محتواها 2 . ان لا يحتوي على عبارات مثيرة مثل " النجدة " ، "الحقونا 3. كما يمنع منعا باتا توجيه السؤال الي شخص بعينه لان هذا قد يدفع الاخرين الي عدم الاجابة ،و الهدف هو التفاعل من الجميع. ============================ سأغير إسم الموضوع لكيلا نخالف قواعد المشاركة وبالنسبة للحل تفضل المرفق 11new.zip

أولا- كل سنة وحضرتك بألف صحة وسلامة بصراحة أعمالك ياأستاذي كنزيقتني وتزداد قيمتة مع الإيام بارك الله فيك وزادك الله علما