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

السلام عليكم ورحمة الله استخدمت طريقة الأستاذ الكريم ياسر على فرض أنه بدأ بكتابة الأرقام بدءاً من تاريخ اليوم ولكن احتاج الأمر مني إلى تعديل العمود إلى تنسيق نص للتعامل مع الصفر بالتسعة أيام الأوائل من الشهر كما يلي: =DATE(MID(A2;5;4);MID(A2;3;2);MID(A2;1;2)) وباستخدام دالة الأخ خالد كما يلي حسب الفرض الأول أي بدءاً من اليوم =DATEVALUE(TEXT(A1;"00-00-0000")) ليس حلاً جديداً كوني لا أتطاول على قامات العلماء ولكن بفرض أنه استخدم الأرقام في العمود A بدءاً من اليوم فالشهر فالسنة ...تقبلوا تحياتي .

قام استاذنا ابو البراء بتقديم حل رائع وهو يفى بالغرض و لاثراء الموضوع ها هى طريقة اخرى لتحويل الرقم الى تاريخ =DATEVALUE(TEXT(A1;"0000-00-00")) بإفتراض ان التاريخ فى A1 اما المعادلة ضعها فى اى خلية تريد

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

بفرض أن الرقم لديك في الخلية A1 قم باستخدام المعادلة التالية في الخلية B1 مثلاً =DATE(MID(A1,1,4),MID(A1,5,2),MID(A1,7,2)) إذا لم تعمل المعادلة جرب تغير الفاصلة في المعادلة بفاصلة منقوطة تقبل تحياتي

السلام عليكم و رحمة الله و بركاته إضافة لما تقدم به الأستاذ خالد الرشيدي ..جزاه الله خيرًا و زادها بميزان حسناته .. تفضّل عزيزي زياد .. هذه الإضافة ربما قد تفي بالغرض : إختر معيار البحث في الكومبوبوكس 1 ثم أكتب الحرف الأول فقط من الكلمة المراد البحث عنها في التاكست بوكس 6 ستظهر النتائج في الكومبوبوكس 2 ..إضغط على الاسم المقصود ستظهر معطيات الكلمة في التاكست بوكسات أسفله ..طبعا مع زر أمر للتعديل. أخوكما / عبد العزيز البسكري زياد 1.rar

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

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

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

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

أخي الكريم وهذا حل آخر بالأكواد ... Sub CopyToTablesByYear() Dim SH As Worksheet, WS As Worksheet, Y As Long, F As Range Dim H As Long, I As Long, J As Long, K As Long, R As Long, S As String, D As Range Set WS = Sheets("المبالغ"): Set SH = Sheets("المبالغ مرحله سنوات") S = WS.Range("B2") Y = Left(S, Len(S) - 2) + 2000 I = 2 For R = 2 To WS.Range("B" & Rows.Count).End(xlUp).Row + 1 S = WS.Range("B" & R) If S = "" Then S = "9999" If Left(S, Len(S) - 2) + 2000 = Y Then GoTo GetNext J = R - I Set D = WS.Range("B" & I).Resize(J, 1) Set F = SH.Range("A:A").Find(Y) If F Is Nothing Then Exit Sub If F.Row - J <= K Then SH.Range("A" & F.Row - 1).Resize(K - F.Row + J + 1, 1).EntireRow.Insert End If K = F.Row H = K - J SH.Cells(H, 1).Resize(J, 5).Value = D.Resize(J, 5).Value SH.Cells(H, 14).Resize(J, 1).Value = D.Offset(0, 10).Resize(J, 1).Value I = R: Y = Left(S, Len(S) - 2) + 2000 GetNext: Next R End Sub تقبل تحياتي Transfer Based On Years YasserKhalil.rar

إنا لله و إنا اليه راجعون اللهم اغفر لها و ارحمها

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

اليك المرفق ان كان ما تريد حدد كأفضل إجابة لكى يصبح الموضوع منتهى وإلا قم بتوضيح المطلوب اكثر رصد الدرجات 22.rar

عظم الله اجركم ,, واسكنها الله فسيح جناته

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

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

ألف شكر أستاذي الغالي على التّشجيع الطيّب أخوك / عبد العزيز البسكري

السلام عليكم و رحمة الله و بركاته تفضّل أخي الفاضل مثالا على ذلك : التاريخ باسم اليوم الميلادي و الهجري بإمكانك تضيف أو تخذف أو تغير أرقام الليبلات مثلما شئت التاريخ الميلادي و الهجري.rar

أخي الكريم خالد أهلاً بك في المنتدى يرجى توضيح شكل المطلوب أي النتائج المتوقعة لتجد المساعدة من الأخوة الأعضاء الأرقام من 1 إلى 7 على ما أعتقد أنها تمثل الشهور ..وهل بقية الشهور 8 - 12 مطلوبة أم هذه الشهور فقط مزيد من التوضيح

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

بسم الله ما شاء الله أخي الغالي المتميز مختار تسلم الأيادي وتكيد الأعادي .. تسلم يا ابن بلادي إليك زيادة في الخير .. دالة لدمج القيم في خلية واحدة ويمكنك تحديد نوع الفاصل بين القيم من خلال المعادلة Public Function Concat(MyRange As Range, Optional myDelimiter As String) '=Concat(C9:I14," ") Dim rCell As Range Application.Volatile For Each rCell In MyRange Concat = Concat & rCell & myDelimiter Next rCell If Len(myDelimiter) > 0 Then Concat = Application.WorksheetFunction.Trim(Left(Concat, Len(Concat) - Len(myDelimiter))) End If End Function تقبل تحياتي

الشكر واجب ..ألف شكر و ألف تحية تقدير و احترام .. ومع ذلك يبقى الشكل السابق أفضل بكثير بالنسبة لي شخصيا ..خاصة من حيث هاتين النقطتين الهامتين : 1 - إظهار بالاسم صاحب الاعجاب 2 - إظهار بالاسم صاحب آخر مشاركة أمام الموضوع نقطتان هامّتان أرجو أخذهما بعين الاعتبار ..وبارك الله فيكم و في جهودكم الجبارة من أجل تطوير المنتدي إلى الأفضل و الأحسن عبد العزيز البسكري

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

الاستاذ محمد طاهر المحترم بعد السلام بدأت تدريجياً بالتعوّد على النسخة الجديدة،لكن ما يحيرني هو 1-عدم وجود ما قمت بتحميله في المشاركات،(أي اني افتح المشاركة كل شيء موجود ما عدا الملف المرفوع من جانبي و كذلك الملف السؤال) 2- اذا اردت ان أجيب عن اي سؤال لاحد الأعضاء لا يوجد في مشاركة هذا العضو ملف لتنزيله أرجو افادتي كيف يمكن حل هذه المسألة

تفضل يا أخي.. أدخل الأرقام في العمود B ومن ثم شغل مولد الباركود multi barcode.rar

أخى العزيز هل هذا ما تريد اسم المستخدم : حسام كلمة السر : 1964 ملفات مرفقة الشاشة الافتتاحية.rar

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

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

السلام عليكم افكار رائعة جزاكم الله كل خير :clapping: :fff: :fff: :fff:

الاخ الكريم Mosha 14 : جرب المرفق ... عسى ان ينفعك ( بالمعادلات ) مع كل الشكر للاساتذة " يوسف عطا " " محمد يحياوي " واعتقد ان طلبك يناسبه رد اخي الاستاذ يحياوي ولكن عدة حلول لاتشكل ضرر وفقك الله ياسر الحافظ " ابو الحارث " الحضور والانصراف .YASSER.rar

الأخ موشا بعد التحية الموضوع سهل جداً ولا يحتاج أكواد ولا معادلات الإيكسيل به خاصية حساب الفرق بين الخلايا كوقت عندك خلية 1 فيها وقت مثلاً ساعة معينة منذ أول أمس (لابد أن يكون تنسيق الخلية زمن أو وقت أو تاريخ) وعندك خلية 2 فيها وقت آخر مثلاً ساعة معينة منذ أمس (لابد أن يكون تنسيق الخلية زمن أو وقت أو تاريخ) ستكتب فى الخلية 3 علامة = ثم إسم الخلية 2 ثم - ثم إسم الخلية 1 بعد كدة تقف فى الخلية 3 ثم تغير تنسيق الخلية للفورمات الذى تريده لتحدد كيف تريد أن يحسب الإيكسيل لك الفارق هل بالساعات والدقائق أم بالايام وبعد إذنك لى ملحوظة على ملف حضرتك الإيكسيل لن يستطيع أن يحسب الوقت إذا كان العامل بدأ عمله مثلاً 8 مساء وإستمر لمدة 8 ساعات حتى 4 من صباح اليوم التالى إلا إذا كان وقد بدء العمل مرتبط بيوم معين ووقت نهاية العمل مرتبط بيوم تالى أقترح التعديل التالى على الملف ببساطة تنسيق خلية وقت بدء ونهاية العمل يكون ( يوم شهر سنة ساعة دقيقة) أو ( DD MM YYYY HH:MM ) لاحظ المرفق الجدول أسفل جدولك أتعشم أكون أفدتك دمت بود الحضور والانصراف ..1.rar

الاخ الكريم لاحظ المثال المرفق الحضور والانصراف ..1.rar

ربنا يكرمك يارب ويوفقك وشكرا على محاولة افادتى ... انا ان شاء الله ارفقت الملف الذى يمكن من خلالة العمل لو حضرتك تقدر تفيدنى ان شاء الله الحضور والانصراف ..1.rar

الاخ الكريم Mosha 14 : ارفق ملف حتى يتمكن الاساتذة بمساعدتك بشكل يضمن لك النتائج وبكل الاحوال اذا كان سؤالك عن كيفية حساب الفارق بين وقتين شاهد ( المرفقين ) ويمكنك الاستفادة من المعادلات بداخلهما ( عسى ان يكون هذا طلبك ) وفقك الله ياسر الحافظ " ابو الحارث " حضور وانصراف.rar

ملحوظة ... الساعة 11:00 م .. قمت بكتابتها بهذا الشكل 23:00 وقام الاكسيل بتحويلها ل 11:00 م ..

حديث حول المتغيرات فى VB, لأبي هاجر http://www.officena.net/ib/index.php?showtopic=839&hl= اكتب بنفسك روتين فرعي أو وظيفة للأخ حارث http://www.officena.net/ib/index.php?showtopic=425&hl= ------------------------------------------- 4-1 إنشاء النماذج باستخدام المعالج 8-11-2003 مستوي مبتديء -------------------------------------------