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

تفضل <<<<<<<<>>>>>>>>> DATA1041.mdb

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

استبدل الكود بالتالي [am_Pu7] = Nz([d_10], 0) + Nz([F_1], 0) - Nz([Di_Pu7], 0) تعويض الفارغ بصفر 0

وارفقت لكم ملف واريد كود لترحيل الدرجات من شيت( ملف تحريري نصف العام صف خامس ) الي الشيت الرئيسي ( شيت صف خامس ) ثم كود لجمع الدرجات في الشيت الرئيسي ( شيت صف خامس ) سعد3.xlsx

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

للتعلم ... اعمل استعلام تحديث للجدول وقم بعمل معيار bitween ....

الشرح :::: تنسيق شرطي في جميع طلباتك اخي الكريم انظر الصورة ..... تفضل المرفق بعد التعديل <<<<<<<<>>>>>>>> DATA1041.mdb

مساء الخير كيف حالكم اريد في الشيت التعديل على كود الدوائر الحمراء كما موضح في الملف المرفق الدوائر الحمراء.xlsm

شكرا جزيلا لمرورك على الموضوع وبارك الله فيك وزادك الله علما

السلام عليكم ممكن شرح لكيفيه تصفيه الارقام المتكرره في الاكسل

الله يبارك فيك دنيا وآخرة وشكرا علي اهتمامك بطلبي

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

@lionheart ان شاء الله اجرب الكود واشوف النتيجة جزاك الله خيرا على مجهودك

تفضل التعديل طلب الايداع.accdb

وعليكم السلام ورحمة الله اجعل الحقول الأربع التي ترغب بعدم تكرارها مجتمعة مفاتيح اساسية بالجدول المراد الاضافة اليه وفقط سيتم حل مشكلتك باذن الله. ساطلع علي مرفق حضرتك الآن وسأوفيق بالتعديل المطلوب ان شاء الله بعد قليل

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

كيف وانا لا اعلم😄

ههههه .... اذن حاول انقاذ الموقف .... بتعديل كودك .... 😁

بالفعل قولك صحيح😃 استاذي الكريم لكن انت استاذنا ونحن من هم يتعلمون منكم برك الله فيكم وجعلكم عونا لنا تم تعديل تاريخ الكمبيوتر للعام المقبل 2022 بالفعل اتي لي EM.220010 ولم يعد من نقظة الصفر للعام الجديد

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

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

استبدل الكود الموجود لديك بهذا الكود ..... On Error Resume Next Dim Db As DAO.Database Dim Rc As DAO.Recordset Dim ChequesFound Dim ChequeNoStart As Long Dim ChequeNoEnd As Long Dim i As Long Set Db = CurrentDb Set Rc = Db.OpenRecordset("SELECT SamoBrojevitxt([dbo_ID]) AS Brojevtxti FROM dbo_Tbl_Emp ORDER BY SamoBrojevitxt([dbo_ID]);") Do While Not Rc.EOF Rc.MoveNext Loop If Rc.RecordCount = 0 Then dbo_ID = "Em." & Right(Year(Date), 2) & "001" 'MsgBox "No Records Found" GoTo cmdDisplay_Exit End If DoCmd.GoToRecord , "", acNewRec Rc.MoveFirst ChequesFound = Rc.GetRows(Rc.RecordCount) ChequeNoStart = ChequesFound(0, 0) ChequeNoEnd = ChequesFound(0, UBound(ChequesFound, 2)) For i = ChequeNoStart To ChequeNoEnd If BinarySearch(ChequesFound, i) = False Then dbo_ID = "Em." & i GoTo cmdDisplay_Exit Else dbo_ID = "Em." & Replace(Nz(DMax("dbo_ID", "dbo_Tbl_Emp", "dbo_ID like 'Em." & Right(Year(Date), 2) & "*'"), "Em." & Right(Year(Date), 2) & "000"), "Em.", "") + 1 End If Next i cmdDisplay_Exit: Set Rc = Nothing Set Db = Nothing

Worksheet module Private Sub TextBox1_Change() SumInTextBox End Sub Private Sub TextBox2_Change() SumInTextBox End Sub Private Sub TextBox3_Change() SumInTextBox End Sub Sub SumInTextBox() Dim m1 As Double, m2 As Double, m3 As Double m1 = Val(TextBox1.Value) * Range("G4").Value m2 = Val(TextBox2.Value) * Range("G6").Value m3 = Val(TextBox3.Value) * Range("G9").Value TextBox4.Value = m1 + m2 + m3 End Sub

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

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

ممكن مرفق وشرح مفصل لو تكرمت

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

لدي أوفيس 365 وأستعمل هذه الطريقة تنجح مع الملفات التي تم تصديرها من الوورد غير ذلك نسبة النجاح لا تتعدى 60٪

السلام عليكم ورحمة الله تعالى وبركاته ندخل فى الموضوع بالنسبة لربط قاعدة البينات اكسس باالاستضافات والتحكم فى البرنامج الخاص بك من اى مكان فى العالم شرط الاتصال بالانترنت اولا قمت بحجز استضافة مجانيه من هذا الموقع https://somee.com/ وقمت بانشاء جدول SQL للتجربة فقط بهذا البرنامج https://msdn.microsoft.com/en-us/sqlserver2014express.aspx?f=255&MSPPError=-2147217396 ونظرا لطلب الاخوة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=61485&hl= بخصوص الربط وجعل قاعدة اكسس مجرد واجهة قمت باعداد هذا المرفق والذى يعتمد على الاكواد المذكورة فى المشاركة السابقة اما ان تنشء اتصال DNS وتستورد منه الجداول من خلال اكسس او تربط الجداول مباشرة بقاعدة اكسس وتضيف وتعدل فيها وقت ما تشاء ومن اى مكان تحب وعند اختيار ربط الجداول ستجد تلقائيا جدول فى قاعدة البيانات باسم mared تستطيع التعدل والاضافة فيه فى امكان اترككم مع المرفق انشاء اتصال DNS.rar

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

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

أخي يحيى وفقنا الله وإياكم إلى ما يحب ويرضى أليس معنى هذا الجزء من الكود For i = LR To 1 Step -1 If Range("A" & i).Value = "" Then Range("a" & i).EntireRow.Delete End If Next i أنه بعدد الصفوف يتم تكرار الشرط إذا كانت قيمة الخلية a1 تساوي "" أي لا شيء يتم حذف الصف الذي يحتوي على هذه الخلية وهكذا مع الخلية a2 , a3 , a4, a5 وهكذا وبالنسبة لأخي محمد طاهر بنا يكون في عونه لما يحدث ونبارك لنا وله عودة هذا الصرح التعليمي الكبير الدالة المقدمة مني هي عبارة عن دمج للدالتين ولكن الخطأ بها يعود غلى حالة وجود أكثر من صف في النطقة الفارغة وتم معالجة هذا الأمر في الدالة التالية Sub masDeleteBlankRows() For Each area In ActiveSheet.UsedRange.SpecialCells(4).Areas If area.Columns.Count = ActiveSheet.UsedRange.Columns.Count Then n = n + 1 If n = 1 Then Set delrange = area.EntireRow Else Set delrange = Union(delrange, area.EntireRow) End If End If Next area delrange.Delete End Sub بانتظار تجارب الإخوة

أخي الكريم يا ريت توضح أكثر ماذا تريد؟ فبالنسبة لتسمية الخلايا باسم فلا يوجد قيود ويمكنك تسمية أي عدد من الخلايا من خلال تحديد الخلايا المطلوبة جميعا باستخدام زر CTRL ثم الضغط على الخلايا المطلوبة جميعا ثم الضغط بزر الفارة الأيمن واختيار name a range ثم اكتب الاسم الذي تريده

أخي الكريم الملف المرفق غير موضوعك نهائيا فالمرفق به طريقة لجمع قيمة يتم كتابتها في العمود الأول على ما كان مكتوبا به قبل الكتابة ووضع الناتج في نفس الخلية فمثلا الخلية a1 بها قيمة مثلا 5 ثم كتبت بها 10 فستصبح قيمة هذه الخلية 15 بعد الانتهاء من الكتابة وموضوعك حمع 100 صف من خليتين وإظهار الناتج في أحدهما

حل رائع أخي قطان وفقك الله لكل ما يحب ويرضى

بعد إذن أخي هادي جرب أخي صاحب السؤال هذا الكود الذي عرضه أخونا هادي بتعديل بسيط Sub sum100() For i = 2 To 101 Cells(i, "C").Value = Cells(i, "C").Value + Cells(i, "B").Value Next i End Sub هذا الكود يقوم بجمع الخلايا الموجودة في العمود B مع الخلايا الموجودة في العمود C ويعرض الناتج في العمود C وذلك لمدة 100 صف ابتداء من الصف الثاني (2) للصف 101 أتمنى أن يكون هو المطلوب

أخي يحيى حسين اسمح لي بقليل من التعليق وهو أنك اعتمدت في الأكواد السابقة على فراغ الخلية الأولى من كل صف حتى يتم حذفه فمن الممكن أن تكون الخلية الأولى فارغة وباقي الخلايا مكتوب فيه أو العكس وبالفعل تم مناقشة هذا الموضوع في منتدى آخر وعرض أحد الإخوة هذه الدالة التي تقوم بحذف الصفوف الفارغة Sub deleteEmptyRows() Dim LastRow As Integer Dim MyRow As Integer Application.ScreenUpdating = False LastRow = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count For MyRow = LastRow To 1 Step -1 If Application.CountA(Rows(MyRow)) = 0 Then Rows(MyRow).delete Next MyRow Application.ScreenUpdating = True End Sub ولكني لاحظت أنها تقوم بحذف الأسطر الفارغة صفا صفا وكنت قد بحثت في فترة سابقة على النت فوجدت هذه الدالة التي تعتمد على حذف المناطق الفارغة مما يزيد سرعة عملية الحذف Sub DeleteBlankRows() Set myrange = Range("B4:I31") Set blanks = myrange.SpecialCells(xlCellTypeBlanks) For Each area In blanks.Areas If area.Columns.Count = myrange.Columns.Count Then area.EntireRow.Delete End If Next area End Sub وهذه دالة من تصميمي بناء على الدالة الأولى مع بعض التعديلات Sub Mas_DelBlankRows() On Error Resume Next Dim n As Integer For n = 1 To ActiveSheet.UsedRange.SpecialCells(4).Areas.Count If ActiveSheet.UsedRange.SpecialCells(4).Areas(n).Columns.Count = ActiveSheet.UsedRange.Columns.Count Then ActiveSheet.UsedRange.SpecialCells(4).Areas(n).EntireRow.Delete Next n End Sub وفي الكودين السابقين يتم تحديد الصف الفارغ بناء على عدم وجود بيانات في أي خلية من خلاياه وليس فقط الخلية الأولى وبالله التوفيق أخوكم محمد صالح

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

الحمد لله على عودة المنتدى ولكن يبدو أننا فقدنا جزءا كبيرا من المواضيع والمشاركات تصل تقريبا لمدة أسبوع من آخر تاريخ موجود بالموقع الذي هو 16/9/2009 وإذا لم يكن لدى اخينا الباشمهندس محمد طاهر نسخة احتياطية لهذه المواضيع والمشاركات فهذا درس من الدروس المستفادة من هذا التوقف "أخذ نسخة احتياطية من قاعدة البيانات كل 12 ساعة أو بصورة يومية على الأكثر" المهم نبارك جميعا لأنفسنا عودة المنتدى

تكبير نص الكتابة ادراج التقويم ادراج اله حاسبة ___________________________1.zip

جزاك الله خيرا و فى انتظار المزيد :d مرفق مثال سريع علي الكود ColorRecord.rar