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

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

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb

استبدل الكود بالتالي Select Case Nz([Total Cholesterol], "") Case "": Me.Text15 = "" Case 5.2 To 6.2: Me.Text15 = "Borderline" Case Is < 5.2: Me.Text15 = "Desirable" Case Is > 6.2: Me.Text15 = "High risk of heart disease " End Select

وعليكم السلام ورحمة الله وبركاته تفضل وفقك الله تعالى بطاقة المعلم- تعديل.xlsx

اتفضل test comment (1).accdb

تفضل التعديل ddd.accdb

هذا الكود يقوم بملء الخلايا الخالية فى العمود المختار ، بنفس القيمة الموجودة فى اول خلية ، الي أن يصل الي خلية بها قيمة ، فيقوم باستخدام القيمة الجديدة وهو مفيد فى الحالة التالية مثلا ان العمود الاول مكتوب به البلد مرة واحدة ، و امامها عدة اسطر للموظفين ثم البلد التالية بعد عدة أسطر و هكذا و تريد فى قائمة طويلة مليء البلد امام كل موظف ، فما عليك الا التعليم علي اخلايا فى العمود المطلوب ملؤه ثم تشغل الماكرو التالي : ( راجع المثال لتكون الصورة أوضح ) :) Sub FillEmptyAsAbove() ' ' deleteemptyRow Macro ' Macro recorded 19/07/2000 by taher to delete empty rows in aselection Application.ScreenUpdating = False Dim MyRow As Long, origraw As Long ' Z As String MyRow = Selection.Rows.Count origraw = MyRow ActiveCell.Select 'MsgBox MyRow For i = 1 To MyRow - 1 'If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Activate If ActiveCell.Offset(i, 0).Value = "" Then 'ActiveCell.EntireRow.Delete 'MyRow = MyRow - 1 ActiveCell.Offset(i, 0).Value = ActiveCell.Offset(i - 1, 0).Value End If Application.StatusBar = "Parsing / deleting ...." & _ Format(i / origraw, "0.0%") & " Please Wait......." Next i Application.ScreenUpdating = True Application.StatusBar = False End Sub Fill_all_empty.zip

Option Explicit Private Sub CommandButton1_Click() UpdateListBox "WEEK 1" End Sub Private Sub CommandButton2_Click() UpdateListBox "WEEK 2" End Sub Private Sub CommandButton3_Click() UpdateListBox "WEEK 3" End Sub Private Sub CommandButton4_Click() UpdateListBox "WEEK 4" End Sub Sub UpdateListBox(ByVal sWeek As String) Dim ws As Worksheet, i As Long Set ws = ThisWorkbook.Worksheets(1) For i = 0 To UserForm1.ListBox1.ListCount - 1 If UserForm1.ListBox1.Selected(i) Then ListBox1.List(i, 4) = sWeek ws.Cells(i + 3, 11) = sWeek End If Next i Call CommandButton5_Click End Sub Private Sub CommandButton5_Click() Dim deg1, deg4, deg6, deg8, deg2 As String, deg3 As String, deg5 As String, deg7 As String, sat As Long, s As Long With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False End With With ListBox1 .Clear .ColumnCount = 8 .ColumnWidths = "80;190;100;80;0;110,100" End With deg2 = "AUGUST" deg3 = "AUGUST" deg5 = "AUGUST" deg7 = "AUGUST" For sat = 3 To Sheet1.Cells(65536, "F").End(xlUp).Row Set deg1 = Sheet1.Cells(sat, "F") Set deg4 = Sheet1.Cells(sat, "G") Set deg6 = Sheet1.Cells(sat, "H") Set deg8 = Sheet1.Cells(sat, "I") If UCase(deg1) Like UCase(deg2) Or UCase(deg3) Like UCase(deg4) Or UCase(deg5) Like UCase(deg6) Or UCase(deg7) Like UCase(deg8) Then ListBox1.AddItem ListBox1.List(s, 0) = Sheet1.Cells(sat, "A").Value ListBox1.List(s, 1) = Sheet1.Cells(sat, "C").Value ListBox1.List(s, 2) = Sheet1.Cells(sat, "B").Value ListBox1.List(s, 3) = Sheet1.Cells(sat, "D").Value ListBox1.List(s, 5) = Sheet1.Cells(sat, "N").Value ListBox1.List(s, 6) = Sheet1.Cells(sat, "J").Value ListBox1.List(s, 7) = Sheet1.Cells(sat, "K").Value s = s + 1 End If Next sat With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True .EnableEvents = True End With End Sub

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

بارك الله فيك ولتفادي السالب في العمود G يمكن استعمال هذه المعادلة =IF(E3-C3<0,60+E3-C3,E3-C3) وهذه في عمود H =IF(E3-C3<0,F3-D3-1,F3-D3) بالتوفيق

اعرض الملف ToolTip - تلميح داخل مربع النص مع علامة مائية عند التركيز - يختفى كل من التلميح والعلامة المائية بمجرد كتابة البيانات داخل مربع النص أو عند فقدان التركيز اذا كان مربع النص لا يختوى على اى قيم صاحب الملف ابا جودى تمت الاضافه 19 أكت, 2021 الاقسام قسم الأكسيس  

اخواني الافاضل تم شرح الخطوات بالصور ليسهل تطبيقها وتجدونها في المرفقات. اولاً اذا كانت قاعدة البيانات باللغة العربية حولها على الانجليزية ، واسهل وسيلة لعرض بيانات قاعدة بيانات SQL Server هي الاكسس و بما اننا نتكلم عن قاعدة بيانات على الاكسس انصح انك تبدء تصمم الواجهات على VB.Net او ASP.Net ، فهي لا تختلف كثيرا عن الاكسس ، لكن المميز فيها بأن المستخدم يستطيع الاستفادة من برنامجك على جميع الاجهزة كمبيوتر - لابتوب-موبايل - ايباد و غيرها ثانيا انشئ حساب على سيرفر SOMEE من : https://somee.com/default.aspx و اختر حزمة الاستضافة المجانية https://somee.com/DOKA/DOC/DOLoginOrRegister.aspx . . . . . عمل قاعدة بيانات SQL Server . . . . . . . برنامجك الاكسس : . . . . . . . . . . . . . . . . . في حال وجود اي استفسارات ارجوا كتابتها في التعليقات نشر قاعدة البيانات.zip

الان فهمت عليك ابا جودي @ابا جودى انا اسف جدا جدا الحل الاول هو المطلوب ... اعذرني من الفجر صاحي ودوشة دماااغ ..... انت فهمتني من اول ... انا اللي مافهمتش نفسي 🤪 اكرر اسفي 🌺🌺

وعليكم السلام سؤال غريب حقيقة - ولكن لماذا ستتخلي مايكروسوفت عن الأكسس من وجهة نظرك نعم نري ان مايكروسوفت تقلل من الامكانيات الخاصة بالاكسس في الاصدارات الاحدث ولكنها تعوض هذا بزيادة بعض الاشياء الأخري في المقابل - وتصنع ملحقات خاصة بالاشياء التي قامت بالغاءها من الاصدارات السابقة أحيانا، علي سبيل المثال في اصدار 2010 من الأكسس هنالك مزية متوفرة وهي تصدير الجداول الي الـ SQL وهذه الميزة تم الغاءها من الاصدارات الأحدث كـ 2016 وما فوق - ولكن تم صنع ملحق يمكن تحميله من موقع مايكروسوفت خاص بتصدير جداول الأكسس الي الـ SQL. ولكن مالذي يحملها علي التخلي عنه بالكلية؟ وان تخلت عنه هل ستقوم من سحب الاصدارات القديمة من السوق ما اعتقد هذا فرغم ظهور الاصدارات الاحدث فما زال بالامكان الحصول علي الاصدارات الاقل وتشغيلها حتي بجانب الاصدارت الاحدث علي جهاز واحد ولا ضير! وعلي كلا اعتقد ان هناك كثير من برمجيات قواعد البيانات يمكن استخدام برمجيات اخري لتصميم الواجهات معها مثل: أوراكل - والـ SQL - و الـ SQL server وغيرها مع احد لغات البرمجة كـ html - vb وغيرها لتصميم الواجهات. تمنايتي بالتوفيق سؤالك قد حيرني حقا.

مرحبا أخي حاولت استعياب ما تريده! وقد حولت لك الملف على شكل جدول ووضعت فيه خاصية السلايسر فتختار Blank حتى تعرف الخلية الفارغة للذي لم يضع التقرير مثلًا. متطوعات - تعديل.xlsx

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

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

ان شاء الله افعل مع تقديري لتجاوبكم اخي hassona229

الله يعطيك الف عافية ما قصرت

استاذتى الافاضل كتب الكود التالى بس امرين فقط اللى ظهر ممكن تصحيح النتايج بين 5.2 - 6.2 كيف تظهر والا اقل من 5.2 مضبوط اللى كتبه انه يبقى فاضى الاصل فى النتيجه تظهر حسب الترتيب التالى CHOLESTEROL Desirable : < 5.2 Borderline : 5.2 - 6.2 High : >= 6.2 انا كتبت () Private Sub Total_Cholesterol_AfterUpdate Select Case Nz(Total_Cholesterol.Value, "") "" Case "" = Me.Text15 Case Is > 5.2 "" = Me.Text15 Case Is = 5.2 ,IS =6.2 "Me.Text15 = "Borderline Case Is < 5.2 " Me.Text15 = "Desirable Case Is >= 6.2 " Me.Text15 = "High risk of heart disease End Select End Sub جزاكم الله خيرا test comment.accdb

السلام عليكم ورحمة الله وبركاته كود رائع ما شاء الله بارك الله جزاكم الله خيرا وأحسن إليكم آمين أنا متأكد أنني قد رأيت الحاسوب في تلك الفترة إلا أنه لم يكن لي شرف استخدامه 😊

حساب التأخير بمعناه الفعلي يحتاج إلى تحديد وقت الدخول لكل وظف ولأني لا أجد ذلك في ملفك فقمت بحسابه عن طريق المتبقي من ساعات العمل حتى 7 ساعات عمل والإضافي هو ما زاد عن 7 ساعات لاحظ تم تغيير تنسيق خلايا الوقت الفعلي والتاخير والاضافي بالتوفيق حساب التأخير والاضافي.xlsx

عمل جميل ورائع جزاك الله كل خير

بشمهندس / محمد عصام مروض اكسس لا يأتى من الحلو الا كل جميل فى انتظار افكارك الجملية

الله ينور يابا جودي🌹

جزاك الله كل خير استاذي الكريم

جزاكم الله خير .. وضح السبب في تنسيق الخلايا في الاكسيل مع انه كان تاريخ بس وجدته اختلف الى [$-,197]B2dd/mm/yyyy;@ تم تعديل التنسيق وضبط معي جزاكم الله خير

ومشاركة مع اساتذتى الافاضل واحبائى الكرام واثراء للموضوع ممكن الحل باستخدام الكود الاتى عن طريق استخدام دالة SELECT CASE Private Sub Triglycerides_AfterUpdate() Select Case Nz(Triglycerides.Value, "") Case "" Me.comment = "" Case Is <= 500 Me.comment = "" Case Is > 500 Me.comment = "increase the risk of heart disease please check for ECG" End Select End Sub انا عن نقسى افضل الدالة SELECT CASE لان دالة IF احيانا تكون لدى البعض صعبة القراءة و نسبة الخطأ قد تكون كبيرة في كتابتها test comment.accdb

مرحبا اقدم لكم برنامج بسيط لحساب ساعات الدوام برنامج حساب ساعات الدوام.xlsx

السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(LEFT($G2;2)="10";"ذكر";IF(LEFT($G2;2)="11";"أنثى";"رقم غير صحيح"))

اتفضل Database3.mdb

إذا سمحت لي طريقة تصميم الملف تخالف العرف البرمجي (لقد عددت صفحات الشيكات ويتم الكتابة فيها وتريد القراءة من صفحات الشيكات في صفحة البيانات) والصواب أن نقوم بعمل ورقتين فقط الأولى للبيانات ونكتب فيها بيانات الشيكات والثانية للبحث والطباعة نكتب فقط رقم الشيك فيتم استدعاء بياناته من شيت البيانات رجاء مراجعة هذا الملف وكتابة رقم الشيك في الخلية O1 في شيت الطباعة وبالنسبة لكود التفقيط بالمنتدى مليء بها يمكنك اختيار ما يناسبك للعلم حتى لا تتم طباعة الخلية التي يكتب فيها رقم الشيك المراد البحث عنه تم تعيين منطقة الطباعة set print area من تبويب تخطيط الصفحة page layout ويمكن تعديلها من خلال نافذة اعداد الصفحة page setup التبويب الأخير sheet بالتوفيق chk.xlsx

Sub Test() Dim r As Range, c As Long Application.ScreenUpdating = False With ActiveSheet Set r = .Range("L4:L" & .Cells(Rows.Count, "L").End(xlUp).Row) c = .Cells(4, Columns.Count).End(xlToLeft).Column + 1 .Cells(4, c).Resize(r.Rows.Count).Value = r.Value End With Application.ScreenUpdating = True End Sub

الشكر لله الذي وفقنا للخير

ما شاء اللّه رائع بارك الله لك

Function DigitalRoot(num As String) As Long Dim t As Double t = Val(num) DigitalRoot = IIf(t > 0, 1 + (t - 1) - 9 * Int((t - 1) / 9), 0) End Function =1+MOD(A1-1,9)

لاضافة دالة معرفة الى ملفك اضغط alt+f11 لفتح نافذة ال vba من قائمة insert اختر module الصق كود الدالة في الموديول وفي الخلية المطلوب اظهار جمع الارقام اكتب =sumparts(A1) حيث ان A1 هي الخلية التي تحتوي على العدد المراد تقسيمه بالتوفيق

مشكور وجزيت خيرا

عاشت الايادي

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

أين الرسالة أخي الكريم ؟؟

رائع أخي مزلزل ملف جميل ومعادلة أجمل من أخ أروع تقبل تحياتي أخوك محمد صالح

مرحبا بك أخي أيسم أولا : لا أنصح بتثبيت نسختين من الأوفيس على جهاز واحد وإذا كان لابد يمكنك جعل واحدة اساسية والأخرى أو الأخريات بورتابل فأنا شخصيا الأوفيس الأساسي على جهازي هو 2010 ويوجد 97 و 2003 و 2007 بورتابل ثانيا : لكي يتم جعل نسخة 2003 هي الأساسية في وجود الباقي أعتقد عملية detect and repair من قائمة help كفيلة بذلك أو عملية repair من معالج التثبيت تحياتي للجميع

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

تفضلي أختي الفاضلة قمت بعمل بعض الملاحظات ينفعك الالتزام بها مستقبلا وأتمنى أن يكون هذا هو المطلوب mas_كشف مرتبات بالضمان5.rar

مرحبا بك أخي ياسر تكمن المشكلة في أن الحد الأقصى لعدد حروف القائمة المخصصة custom list هو 255 حرفا وعدد حروف قائمتك المذكورة أكبر من هذا الحد المسموح وهذه المشكلة كانت تحدث مع النسخ السابقة في عدد حروف المعادلة formula ولكن قامت ميكروسوفت بحلها في إصدار إكسل 2007 / 2010 لذا ينبغي علينا مراسلة فريق التطوير لمنتج الأوفيس في شركة ميكروسوفت لتجنب هذا العيب في النسخ القادمة أو إيجاد حزمة تحديث تحتوي على حل هذه المشكلة مثلما حلت مشكلة المعادلة ولمزيد من المعلومات قم بزيارة هذا الرابط http://office.microsoft.com/en-us/excel/HP100739471033.aspx ********* ملحوظة إذا قمت بعد حروف قائمتك في وورد ووجدتها أقل من 255 فتذكر أن اللغة العربية الحرف فيها بحرفين أو ثلاثة لله الأمر من قبل ومن بعد ******** ولكن كما قلت سابقا لا يوجد مستحيل فالحل المؤقت هو وضع القائمة المخصصة في عمود مستقل بعيدا عن جدول البيانات إضافة عمود جديد في جدول البيانات يحتوي على الدالة match لمحتويات عمود القائمة المخصصة فرز البيانات باستخدام هذا العمود الجديد --------- مرفق ملفك الأول بعد التعديل بما يتوافق مع طريقتي mas-SheetControl.rar

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

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

لو أمكن إرفاق ملف يكون أفضل أخي ايسم وفقنا الله وإياكم

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