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

السلام عليكم ورحمة الله وبركاته هذا الملف جميل جدا و يناسب كل من يريد استخراج شهادة الأجر بدون الذهاب المقتصد وهي تسهل أيضا عليك عملية ملئ قواعد البيانات أي استفسار فأنا تحت الخدمة مع فائق الاحترام و التقدير . و أعتذر عن التأخير معكم أخوكم في الله المبرمج : مناد سفيان الجزائر. معا لنبني مستقبل أفضل فكن معنا معكم كل الاستفسارات في منتدانا العظيم فشاركنا معلوماتك ولا تبخل علينا. 2018............. Fiche de Paie + ATS.rar

السلام عليكم اخي صالح عمل جميل ، كالمعتاد اقتراح اضافة شوية اشياء له: خلينا نعتبر هذا البرنامج هو العقل المدبر ، اللي لازم يكون شغال بتشغيل الكمبيوتر ، ولا ينطفئ إلا بإطفاء الكمبيوتر ، خلي فيه Logo الشركة ، وبياناتها ، خلينا نستفيد من الساعة في: عمل Backup يومي لبرنامجي أ وبرنامجي ج في الساعة الفلانية ، وخليني اتذكر موعد الاجتماع يوم d/m/yy الساعة hh:mm ، ووووو وكذلك اذا الزبون اراد ان يرسل لي ملاحظة في ايميل عن برنامجه ويريد .... جعفر

وعليكم السلام ورحمة الله وبركاته بداية المساعدة هنا مجانية لوجه الله تعالى الا اذا كان احد يريد ثمن ماديا فهذا شأنه بحثت لك عن كود يقوم باعادة ربط الجداول سوفه الصقه هنا وان شاء الله يكون بداية الوصول لما تصبو إليه هذا هو الكود Function RefreshSharePointLinks() Dim dbs As Database Set dbs = CurrentDb() For Each tbl In dbs.TableDefs If (Mid(tbl.Name, 1, 1) <> "~") And ((tbl.Attributes And dbAttachedTable) = dbAttachedTable) Then 'اسم جدول معلومات المستخدم يتغير حسب اصدار الاكسس المستخدم في عملية الشيربوينت If tbl.Name <> "UserInfo" Then DoCmd.SelectObject acTable, tbl.Name, True DoCmd.OpenTable tbl.Name DoCmd.Close acTable, tbl.Name End If End If Next End Function

تفضل أخي هذه نسخة مفتوحة المصدر بصيغة mdb ساعة رقمية.rar وهذه نسخة مفتوحة المصدر بصيغة accdb ساعة.rar

جرب هذا الملف تكرار بمعادلات SALIM.rar

اعرض الملف بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته موعدنا اليوم مع معلومة مفيدة جدا وخفيفة جدا ومهمة جدا في نفس الوقت وهي تصميم بدائل دالة TEXTJOIN الموجودة في اكسل 2016 وما بعده لجميع إصدارات إكسل لأنها دالة معرفة UDF . لمن يريد استخدام مزايا إكسل 2016 في جميع إصدارات إكسل بداية من 2003 و 2007 و 2010 و 2016 و 2019 دالة احترافية لدمج النصوص مع وضع فاصل بين قيم الخلايا وتجاهل الخلايا الفارغة mastextjoin بدائل textjoin الموجودة في إكسل 2016 وما بعده اللهم انفعنا بما علمتنا وعلمنا ما ينفعنا #a1mas #ostazmas #textjoin لماذا نستعمل دالة textjoin ؟ نبدأ أولا بمعرفة أن هذه الدالة توجد في أوفيس 2016 وما بعده ( أوفيس 365) وهي دالة لدمج النصوص مع تجاهل الخلايا الفارغة وعدم تكرار الفاصل في حالة إذا كانت الخلية فارغة. ولها 4 وسيطات: والصورة العامة لها هي: TEXTJOIN(delimiter, ignore_empty, text1, [text2], …) delemiter محدِد (مطلوبة) عبارة عن سلسلة نصية، إما أن تكون فارغة أو تكون حرفاً واحداً أو أكثر محاطاً بعلامات الاقتباس المزدوجة أو مرجعاً إلى سلسلة نصية صالحة. إذا تم إدخال رقم، فسيُعامل كنص. ignore_empty (مطلوبة) إذا كانت TRUE، فسيتم تجاهل الخلايا الفارغة. text1 (مطلوبة) هي العنصر النصي المطلوب دمجه. عبارة عن سلسلة نصية أو صفيف من السلاسل مثل نطاق من الخلايا. [text2, ...] (اختيارية) هي العناصر النصية الإضافية المطلوب دمجها. قد يكون هناك حد أقصى يبلغ 252 من الوسيطات النصية للعناصر النصية بما في ذلك text1. يمكن أن يكون كل عنصر منها عبارة عن سلسلة أو صفيف من السلاسل مثل نطاق من الخلايا. وإليكم هذا الفيديو لشرح الدالة وتوضيح كيفية استخدامها في إكسل 2016 وما البدائل لدالة textjoin في إكسل 2013 و 2010 و 2007 و 2003 وهي دالة mastextjoin ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك صاحب الملف أ / محمد صالح تمت الاضافه 26 ينا, 2018 الاقسام قسم الإكسيل  

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

وعليكم السلام جرب هذا التعديل في كودك ، واللي بيعطيك اسماء جميع الملفات Private Sub Command29_Click() With Application.FileDialog(3) .Title = "Uploading picture : Uploading Picture" .Filters.Clear .Filters.Add "Image type", "*.jpg" .Filters.Add "All types", "*.*" .AllowMultiSelect = True .InitialFileName = "" If .Show = -1 Then 'Me.swra = .SelectedItems(1) 'Loop through each file selected and add it to our list box. For Each varFile In .SelectedItems 'Me.FileList.AddItem varFile MsgBox varFile Next End If End With End Sub جعفر

السلام عليكم ورحمة الله تم تصحيح المعادلات... بن علية حاجي ملف_4.rar

السلام عليكم ورحمة الله وضعت المعادلات الجديدة (طويلة جزئيا) في عمود جديد لونته بالأخضر (عمود "التاريخ 2 الجديد") وقمت أيضا بالتعديل على المعادلات الموجودة في الأعمدة الملونة بالأزرق... أرجو أن تفي الغرض المطلوب... بن علية حاجي ملف_3.rar

تمام... ممتاز جدا... شكرا أخي سليم... تسلم

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

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

السلام عليكم لتغيير لون النموذج نستعمل الكود التالي: Me.تفصيل.BackColor = vbRed vbred هو رمز اللون الأحمر و هكذا..

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

وعليكم السلام ورحمة الله وبركاته حل من الحلول: يمكنك تثبيت عرض كل عمود بحيث لو قام المستخدم بتكبير او تصغير الحقل عند الخروج والعودة الى النموذج يعود الحجم كما ثبته انت استخدم في حدث عند تغيير الحجم للنموذج Me.YrFieldName.ColumnWidth = 1440 وهكذا :: تحياتي

تسلم اخي جعفر ونحن من خبرتكم نستفيد اخي الغالي من اول انا كنت اكتب اي شي في البيان والان حبيت اضبط برنامجي للاحسن الان جعلت للمورد سند صرف وعملت في سند الصرف امر ترحيل اي الحاق الى الحركات اللي هي تعتبر الصندوق وعملت في نموذج ترحيل عند اختيار المورد وعند تغير التاريخ وعند التحميل هذا الكود Me.supplier = " دفعة " & supplier_name اي يطلع في البيان دفعه + اسم المورد وما تتغير في البيان مثلا دفع المرسام دفعه العطاس الى اخر هذه بالنسبه الى الصندوق ولكن للمورد حركات فواتير مشتريات وسندات ومترجعات الى اخر في مكان اخر شكرا لك ولملاحظاتك لولا ملاحظاتكم وخبرتكم وتعاونكم معنا ما تعلمنا تسلم والف شكر

جرب الاستعلام التالي وقم بتغيير تاريخ البدء ووقته وتاريخ الانتهاء ووقته وحسب مدة التقرير SELECT TB_1.Date1, TB_1.tem, [date1] & " " & [tem] AS Expr1 FROM TB_1 WHERE ((([date1] & " " & [tem]) Between #1/26/2017 15:0:0# And #1/27/2018 2:0:0#)); بالتوفيق

تحياتي للغالين يمكن تجربة التالي وبمناسبة حضور اسمي بالمشاركة text1.visible=not isnull(text2) بالتوفيق

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

دى معادله لادراج اخر سعر شراء من شيت الاضافه لشيت المخزن لعلها تفى بالغرض طبقتها على الملف المرسل w sh.rar

شكرا اخوي شفان وهذا رابط بطريقة الحل عن طريق اعدادات الوندوز جعفر

السلام عليكم الكود السابق لا يتعلق بالمطلوب هذا حل قد يكون قريب مما تريد جرب الكود التالي : Sub CopyMyTable() Dim doc As Word.Document Dim tbl As Word.Table Dim rngTableTarget As Word.Range Set doc = ActiveDocument Set tbl = doc.Tables(1) Set rngTableTarget = doc.Content rngTableTarget.Collapse wdCollapseStart rngTableTarget.FormattedText = tbl.Range.FormattedText Selection.SplitTable End Sub و لتشغيله فى الملف المرفق قف فى خانة التاريخ اولا فى الجدول الاول ، ثم شغل الماكرو من القائمة او عن طريق CTR+o كشكول.rar

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

بعد اذن الاخوة الكرام .. تفضل جرب المثال المرفق example.zip

يمكن استعمال هذا الكود(بدون حلقات تكرارية) ريما يكون اسرع Sub Salim_transfer() Dim ws As Worksheet, Sh As Worksheet Dim i As Long, LR As Long, LS As Long Dim New_LR As Long Dim My_Rg1 As Range Dim My_Rg2 As Range Application.ScreenUpdating = False Set ws = Sheets("مشتريات") Set Sh = Sheets("اضافه") LR = Sh.Range("C" & Rows.Count).End(xlUp).Row LS = ws.Range("C" & Rows.Count).End(xlUp).Row If LS <= 6 Then MsgBox "Nothing to Copy": GoTo Leave_Me_Out If LR < 2 Then LR = 2 Set My_Rg1 = ws.Range("a7:a" & LS) Set My_Rg2 = ws.Range("b7:e" & LS) With Sh.Range("b" & LR + 1).Resize(LS - 6, 1) .Value = ws.Range("E2").Value .Offset(, 1).Value = ws.Range("b4").Value .Offset(, 2).Value = ws.Range("b3").Value .Offset(, 3).Value = My_Rg1.Value .Offset(, 4).Resize(LS - 6, 4).Value = My_Rg2.Value End With New_LR = Sh.Range("B" & Rows.Count).End(xlUp).Row Sh.Range("a3:a5000").ClearContents For i = 1 To New_LR - 2 Sh.Range("a" & i + 2) = i Next Leave_Me_Out: Application.ScreenUpdating = True End Sub

وعليكم السلام اسمح لي اوضح هذه النقطة: تطوير برنامج الاكسس يتم بمحاذاة تطوير الوندوز ، فلهذا السبب قامت اكسس بتغييرات معينه في طريقة تعامل الاكسس مع الاوندوز. وبوجه عام ، وبإتباع الخطوات التي اشار اليها اخونا sandanet ، ستحصل على بسختك من accdb بدلا عن mdb جعفر

شوف هذا الرابط ، تم مناقشة نفس الموضوع جعفر

للاسف اخي ليس لدي اوفيس ١٠ لاجرب

وعليكم السلام ورحمة الله اخي انظر هنا

نعم ممكن اذا ما كانت القاعدة بسيطة اي لاتحتوي على اكواد معقدة لانك ستجد بعض الاكواد تعمل على اصدار 2003 ولا تعمل على اصدار 2007 او 2010 لذلك انت جرب انشئ قاعدة بيانات بصيغة 2010 وقم باستيراد جميع الكائنات من القاعدة القديمة ومن ثم قم بعمل compile بعد الانتهاء وجرب العمل عليها للتأكد من عمل كافة الاوامر تحياتي

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

انت فعلا من القاخرة ههههههههههههههه

السلام عليكم مجهود رائع, ولكن لدى بعض الملاحظات : 1 - عدم وجود حد أقصى لمبالغ التأمسنات المتغيرة , فكما تعلم هناك حد أقصى للمبالغ المتغيرة التى يخصم منها نسبة التامينات 2 - لاحظت عدم وجود ضريبة كسب العمل والتى هى أهم معادلة فى الموضوع حتى أنها الاهم على الاطلاق حيث انها تتأثر بالخصومات والتأمينات وهى مرتبطة بعدد من المعادلات لان ضريبة كسب العمل عبارة عن شرائح ضريبية عندما سصل الدخل السنوى للشريحة يتم ضرب النسب فى المبلغ . 3 - لابد أن تضع فى حسبانك ان هذا الشيت مصمم لمرتب الموظف المنتظم فى العمل , فماذا لو الموظف كان يعمل 60 % من الوقت أو الموظفة فى اجازة وضع او الموظف فى اجازة مرضية مزمنة 4 - لطباعة هذا الشيت لا بد من شراء طابعة ليزر بنظام الورق الرول ويكون نوع الورق من الجهاز us fanfold

تمام الله ينور