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

بعد اذن الاخوة الافاضل \هذا الكود من سطر واجد Sub salim() Range("c1:c" & Cells(Rows.Count, 3).End(3).Row).SpecialCells(4).EntireRow.Delete End Sub

تم جلب البيانات لكن ان تظهر البيانات على شكل جدول هذا ليس لي به علم مشتريات - جديد.rar لكن يمكن التحايل بهذه الطريقة لرسم الحدود الرأسية للجدول مشتريات - جديد2.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة دالة vlookup والبحث ف ورقتين ف نفس الشيت تم ارفاق كود الحل من المبدع / سليم حاصبيا و لا تنسونا من صالح الدعاء تحياتى vlooup_dif_sheets.rar

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

بالنسبة للخطأ .. لو افترضنا ان الخلايا في الصفين 4 و 5 فارغة .. فالكود سوف يحذف الصف الرابع ويصبح الخامس هو الرابع .. اي ان الكود لن يفحصه مجددا بل ينتقل للصف السادس مباشرة وبالنسبة لجملة SQL ان شاء الله ساقوم بشرحها قريبا استاذ سليم .. الكود ممتاز جدا

السلام و عليكم أرجو شرح تموضع علامات التنصيص في الكود التالي و شكر " ' " & S = "[username]=" & " ' " & Me.username

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

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

كل عام وانتم بخير بمناسبة شهر رمضان المبارك أعاده الله علينا وعليكم وعلي الأمة الأسلامية بالخير واليمن والبركات

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

السلام عليكم ورحمة الله وبركاته نبدء بشرح برنامج Omar_Progress وهو عباره عن فورم وموديول كود الموديول يتم التعديل فيه كالاتى اللوب الموجود به ( For ..Next) يعدل ليكون هو اللوب للبرنامج الخاص بك كالاتي هذا اللوب () سيكون اللوب الرئيسي لبرنامجك مع تغير قيم ( Start_Counter و End_Counter ) لتكون هي قيم اللوب الخاص لبرنامجك او او استبدال متغيرات ( For … Next) وهي ( Start_Counter و End_Counter ) بمتغيرات البرنامج الخاص بك ( For … Next) فقط لا غير Sub Omar_Progress() ' Dim Per As Single, x As Double End_Counter = 50 '========================================================================================== For Start_Counter = 1 To End_Counter O_Omar_Progress_O.Caption = Space(12) & Start_Counter & Space(3) & "مـن إجمـالـى" & Space(3) & End_Counter Per = Start_Counter / End_Counter O_Omar_Progress_O.Label_Bar.Caption = Format(Per, "00%") MyProgress Per DoEvents '========================================================================================== ' My Code '========================================================================================== Next ' End Sub Omar_1.rar

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...أما بعد: السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام... تابعت مؤخراً طرق متعددة للارتباطات التشعبية وكان أحدها يوصلك سريعاً إلى آخر خلية تمت الكتابة بها في عمود لأحد أساتذتنا الكرام =HYPERLINK("#"&"ورقة1"&"!"&"b"&COUNTA(ورقة1!B:B);"الانتقال إلى آخر صف") وقد كانت معادلة رائعة لكنها ضمن نطاق لا جدول ... ما أرغبه هو النتيجة ذاتها ولكن ضمن جدول لا نطاق وقد أرفقت ملفاً يبين المطلوب وهو أن نقوم بالورقة2 بإدراج ارتباط تشعبي يبرز آخر اسم في الجدول ضمن الورقة3 والسلام عليكم ورحمة الله وبركاته.. ارتباط تشعبي متقدم.rar

الا خ مصطفى محمود مصطفى استخدم هذا الكود قبل الطباعة Sub CopyHeadersFooters() ' Dim Sh As Worksheet Sheets("البيانات").Select With ActiveSheet.PageSetup lh = .LeftHeader ch = .CenterHeader rh = .RightHeader lf = .LeftFooter cf = .CenterFooter rf = .RightFooter End With For Each Sh In Worksheets With Sh.PageSetup .LeftHeader = lh .CenterHeader = ch .RightHeader = rh .LeftFooter = lf .CenterFooter = cf .RightFooter = rf End With Next ' End Sub

الاخ ناصر سعيد اضغط علي الرابط لتحميل فيديو شرح البروجرز بار

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

تم التعديل على الملف حسب ما طلبت في المرفق حساب السن لرياض الاطفال والصف الاول2.rar

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

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

أخي العزيز عبد السلام ربما تكون القيمة الظاهرة غير القيمة الحقيقية للرقم جرب أن تضيف Value2 بهذا الشكل Cells(6,1).Value2 لن نخسر شيئاً بالتجربة تقبل تحياتي

الاخ ياسر خليل أبو البراء شكرا لك اخي الاخ جلال الجمال_ابو أدهم شكرا لك

اخوي هاني انظر المثال في هذا الموضوع ارى ان الفكرة تصلح لمثل عملك ( تسجيل واستعلام في النموذج نفسه )

شاكر لكم وبكل ممنونية ماقدمته يداكم لكن فيه مشكله عند ادخال قيمة ك 0.45 فيخرج الناتج لايوجد حل مع انه الحل انه باخد 3 فئات من القيمة 0.15 ياريت لو يتم تصحيح الخطاء ولكم من الله خير الجزاء بأذنه تعالى

كلهم 60 يوم الافراد وغيرهم ؟

بسم الله ما شاء الله عمل رائع أخي الحبيب عبد السلام أبو العوافي ، ولا يستحق إلا كل تقدير تقبل وافر تقديري واحترامي

استاذى الفاضل خالص الشكر والعرفان لجهودك وسرعة استجابتك وتم تفعيل الكود والسلام عليكم

وعليكم السلام أهلاً بك أخي الكريم حسام في المنتدى ونورت بين إخوانك جرب الكود التالي بفرض أن القيم موجودة في النطاق A1:D10 على سبيل المثال Sub Test() Dim Cel As Range For Each Cel In Range("A1:D10") If Cel.Value = "A" Then Cel.Value = "B" ElseIf Cel.Value = "B" Then Cel.Value = "A" End If Next Cel End Sub تقبل تحياتي

السلام عليكم هذه محاولة تفي بالغرض حضانة.rar

انا فعلا متشكر اووووي يا مستر ياسر

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

Sub DeleteBlanks() Dim i As Integer Dim LR As Integer LR = ActiveSheet.UsedRange.Rows.Count For i = 2 To LR If Cells(i, 3) = "" Then Rows(i).Delete Next End Sub

رحم الله أخى الحسامى و غفر له

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

بعد اذن الاخوة الكرام وزيادة في اثراء الموضوع هذه المعادلة =SUMPRODUCT(IF(ISNA(MATCH($B$3:$B$19,$G$3:$G$19,0)),1,0),$D$3:$D$19) إذا لم تعمل المعادلة معك قم باستبدال الفاصلة العادية بفاصلة منقوطة

لا لا يوجد كلامي السابق اذا وجد مكتبات مصاحبة لا يعمل البرنامج الا بها

البروجرز بار الثالث و الرابع والخامس وتستخدم بنفس الاسلوب الاول Omar_3_5.rar ملحوظه : مؤشرات التقدم الخمس صناعة عربية مصرية 100% لكم مني كل تحية الاخ أبو يوسف شكرا لك اخي هذا اكثر مما استحق فهذه البرامج من مكتبتي وقد انشأتهم منذ عدة سنوات سابقه

البروجرز بار الثاني ويستخدم بنفس الاسلوب السابق Omar_2.rar

السلام عليكم - حياك الله استاذ ابو حنين - خبير والله شكرا

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

Me.Text4 = Day(Text2) - Day(Text0) Me.Text6 = Month(Text2) - Month(Text0) Me.Text8 = Year(Text2) - Year(Text0) اخى الكريم اضف هذا الكود لزر احسب

انظر ما وجدت لك http://www.traidnt.net/vb/traidnt1484547/ و http://itwadi.com/what_is_SQLite و http://andrody.com/2015/05/dealing_sqlite_android_programming_lesson_1/ و http://uoh4u.com/vb/showthread.php?t=20644 لا تقلق كلها عربى

السلام عليكم انني في صدد انجازه حسب متسع الوقت

أخي الغالي وحبيبي في الله أبو القبطان .. الملف سيء !! أيوا سيء !! أيوا زي ما بقولك كدا سيء@@ زعلت ؟؟! حقك عليا ! الملف جيد أيوا جيد .. بقولك جيد واحد هيقول العضو دا شكله مجنون أو عبيط .. هرد أقوله أشكرك ... بس كل واحد له طريقة تفكيره وكل شيخ وله طريقة بالأمس لم أطلع على الملف الجيد بشكل جيد .. لكن أتيحت لي الفرصة أن أطلع عليه فوجدت الأكواد جميلة ولكنها تحتاج لترتيب .. نريد أن نتعود عند إرفاق ملفات بالمنتدى أن تكون الأمور مرتبة ومنطقية .. ويتم إزالة الشوائب منها أولاً بالنسبة للكود في حدث المصنف وجدت أنه نفس الكود في موديول رقم 1 ..فلما التكرار الغير مرغوب فيه؟! يمكن الإبقاء على الكود في الموديول رقم 1 والإشارة إلي اسم الإجراء الفرعي في حدث فتح المصنف باستخدام كلمة Call يليها اسم الإجراء الفرعي ثانياً وجدت كود يخص الفورم في الموديول العادي !! ليس مكانه ثالثاً الكود في الموديول الثاني أعتقد أنه ماكرو مسجل ، وكم أكره شكل أسطر الكود الناتجة عن تسجيل الماكرو .. فهناك شوائب كثيرة فيها غير أن الكود ليس له علاقة بالموضوع ومن ثم يجب إزالة جميع الأكواد من المصنف الخاص بك وإعادة ترتيبها بهذا الشكل (لاحظ أيضاً شكل أسطر الكود وكيف تم تنسيقها ليسهل الإطلاع عليها) ضع الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_Open() Call Picture1_Click End Sub والكود التالي يوضع في الموديول رقم 1 Sub Picture1_Click() Dim I As Long, lastRow As Long Dim Name1 As String lastRow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row For I = 2 To lastRow Cells(I, 4).Interior.ColorIndex = xlNone Cells(I, 4).Font.ColorIndex = xlAutomatic Cells(I, 4).Font.Bold = False If Cells(I, 4) = Date Then With UserForm1.ListBox1 .AddItem .List(.ListCount - 1, 0) = Sheet1.Cells(I, 1).Text .List(.ListCount - 1, 1) = Sheet1.Cells(I, 2).Text .List(.ListCount - 1, 2) = Sheet1.Cells(I, 3).Text .List(.ListCount - 1, 3) = Sheet1.Cells(I, 4).Text .List(.ListCount - 1, 4) = Sheet1.Cells(I, 5).Text .List(.ListCount - 1, 5) = Sheet1.Cells(I, 6).Text .List(.ListCount - 1, 6) = Sheet1.Cells(I, 7).Text .List(.ListCount - 1, 7) = Sheet1.Cells(I, 8).Text End With Cells(I, 4).Interior.ColorIndex = 3 Cells(I, 4).Font.ColorIndex = 2 Cells(I, 4).Font.Bold = True End If Next I UserForm1.Show End Sub والكود التالي يوضع في حدث الفورم Private Sub CommandButton1_Click() End End Sub Private Sub Image1_Click() UserForm1.PrintForm End Sub Private Sub Image2_Click() UserForm1.PrintPreviewForm End Sub Private Sub UserForm_Activate() lblDate.Caption = Date End Sub أرجو ألا أكون قد أزعجتك .. ولكني أحب أن أرى الأشياء في أجمل صورة لها ، وحتى يستفيد منها من أرد الاستفادة لا أن تكون مجرد ملف مرفق يلقى به في مكانٍ ما ويطويه النسيان أردت الاستفادة للجميع من الملف الرائع ولكن بصورة أفضل تقبل تحياتي

هنا اختصار للكود Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintOut End Sub

تذكير بتاريخ الانتهاء.rar لا أعلم مالمشكلة ولكن تمت إعادة رفع الملف

بسم الله الرحمن الرحيم اليوم هنعرف ازاي نعمل صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل ولكن اولا نقوم بمراجعه درس اعمل شاشة دخول برنامجك بنفسك وسيبك من التقليد http://www.officena.net/ib/topic/64832-اعمل-شاشة-دخول-برنامجك-بنفسك-وسيبك-من-التقليد/ بعد ما راجعنا الدرس السابق نبدأ من حيث انتهينا الأساسيات الشاشة الرئيسية الصفحات الأخرى وأخيرا صفحة معلومات الدخول والصلاحيات ودي أسماء الصفحات داخل الشيتات وبرمجيا نقوم بتصميم نفس الصفحات السابقة أظن سهلة العملية لحد دلوقتي حان دور الاكواد نبدأ بالاكواد السهلة في كل صفحة غير الرئيسية بها زر رجوع نضع الاكواد كالاتي صفحة ادخال البيانات في زر الرجوع Sub yasser1() index.Activate sheet1.Visible = xlSheetVeryHidden End Sub السطر الاول للرجوع للصفحة الرئيسية السطر الثاني لاخفاء صفحة ادخال البيانات وهي شيت1 وتكرر في الصفحات المتبقية صفحة الاستعلام Sub yasser2() index.Activate sheet2.Visible = xlSheetVeryHidden End Sub صفحة قاعدة البيانات Sub yasser3() index.Activate sheet3.Visible = xlSheetVeryHidden End Sub صفحة المستخدمون users Sub mohamed1() index.Select users.Visible = xlSheetVeryHidden End Sub وقبل ان نترك صفحة اليوزرز نضع هذه المعادلات =IF(J2="";"";VLOOKUP(J2;A2:E8;3;FALSE)) =IF(J2="";"";VLOOKUP(J2;A2:E8;4;FALSE)) =IF(J2="";"";VLOOKUP(J2;A2:E8;5;FALSE)) هذه الدوال تجلب بيانات المستخدم من جدول المستخدمين ومنها نقوم بالتحكم في صلاحياته الآن حان دور الصفحة الرئيسية نضع في اول زر وهو زر ادخال البيانات الكود التالي Sub aseel1() If users.Range("k2") = "yes" Then Application.ScreenUpdating = False sheet1.Visible = xlSheetVisible sheet1.Select Else MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com" Application.ScreenUpdating = True End If End Sub زر الصفحة الثانية صفحة الاستعلام Sub aseel2() If users.Range("L2") = "yes" Then Application.ScreenUpdating = False sheet2.Visible = xlSheetVisible sheet2.Select Else MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com" Application.ScreenUpdating = True End If End Sub زر الصفحة الثالثة صفحة قاعدة البيانات Sub aseel3() If users.Range("m2") = "yes" Then Application.ScreenUpdating = False sheet3.Visible = xlSheetVisible sheet3.Select Else MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com" Application.ScreenUpdating = True End If End Sub زر الصفحة الرابعة صفحة صلاحيات اليوزرز وهنا سنغير الكود سنعطى لهذه الصفحة كلمة مرور خاصة غير باقي الصفحات Sub mohamed() Dim x x = InputBox("يرجى ادخال كلمة المرور.", "Password Required") If x = "123" Then users.Visible = xlSheetVisible users.Select Else MsgBox "كلمة المرور خطأ يرجى اعداة المحاولة" End If End Sub اكواد الصفحات تعتمد علي اول سطر يقوم بمقارنة الخلية الخاصة بالصفحة اذا كانت بها كلمة yes فيسمح بالدخول اما غير ذلك لا يمكن الدخول والجزء الثان من الكود يقوم باظهار الصفحة عند تحقق الشرط والذهاب اليها ينقصنا سطر صغير لاتمام الموضوع نسخ اسم المستخدم عند الدخول الى الخلية المحددة ليتم جلب بيانته عن طريق اسمه وتتم كالاتي يتم وضع الكود في حدث زر الدخول users.Range("j2") = ComboBox1.Value وبكدا يكون انتهى الدرس تقبلوا تحياتي ياسر العربي لو مكسلين تطبقوا احط ليكم مرفق وخلاص وادي مرفق الشرح PDF صلاحيات.rar

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

السلام عليكم شكرا أخي الفاضل على الاهتمام والرد ولكن للأسف لم أجد الجواب في البرامج المصممة مع أني استفدت منها وتفحصتها جميعأ ربما لم أكن موفقا في العثور على الإجابة ، فكل ما أريده تعديل التفقيط إلى كلمة درجة بدلاً من دينار أو ريال أو فلس . وتكون كلمة فقط بآخر السطر وليس بأوله. فالبرامج المصممة ممتازة جداً ونستفيد منها ولكنها كوصفة طبيب عام تنفع لكل شيء وإن ما نفعت ما بتضر ، وسامحنى :( مرة أخرى أشكرك واتمنى عليكم الإجابة في أسرع وقت وأن يكون هناك مثالاً ولو أثقلت عليكم . "إن الله لا يضيع أجر من أحسن عملا"