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

السلام عليكم ورحمة الله تعالى وبركاته موضوع اليوم هى اداة صممتها بفيجول بيسك دوت نت مجرد حلقة وصل بين المستخدم وقاعدة البيانات بمعنى اكثر انت كمصمم برامج من خلال قواعد بيانات اكسس سيقلقك موضوع تمكين المحتوى الخاص بك اى تمكين كافة وحدات الماكرو لكى تعمل قاعدة البيانات بصورة طبيعية ولا يقلق العميل وبالتالى لن تذهب الى كل عميل لتخبره ان قاعدة بياناته لا تعمل لانه عليه اولا اتباع خطوات كذا وكذا لتمكين الماكرو الاخوة هنا مشكورين قامو بشرح اكثر من مرة تمكين المحتوى بشتى الطرق اى انا لم اتى بجديد فقط وفرت عليك عناء الاكواد كل ما عليك فعله هو تسمية قاعدة بياناتك باسم AccessSoft ولا يهم اصدارها فالاداة تعمل على الاصدارات من 2003 حتى 2016 وبعد تسميتها تضعها فى نفس مسار الاداة وسيتم فتح قاعدة البيانات الخاصة بك من خلال الاداة اى انه يمكنك تحزيم قاعدة بياناتك مع الاداة باى برنامج تحويل قاعدة البيانات الى ملف تنفيذى .exe وعند التحزيم ستخبر البرنامج ان يتم العمل من خلال الاداة وليس قاعدة البيانات ويمكنك التحزيم ببرنامج Setup Factory وهذه صورة منه تعقيب بسيط قام اخونا الفاضل جعفر @jjafferr بشرح طريقته الخاصة فى ذلك فى هذا الموضوع ولا غبار على المبتكرين نحن فقط نتعلم منهم ولكن كانت مشكلة بسيط لم اجد لها حل عند كتابة كود الاستاذ جعفر كان لابد من وضع يدويا مسار محدد لقاعدة البيانات داخل الكود كانت هذه مشكله اذ يمكن تغير المسار فى وقت او قد تختلف المسارات من جهاز الى اخر فقط اضفت كود بسيط لحل هذه المشكلة عن طريق هذه الاداة والان مع الاداة الصور مع الشرح ملحوظة لايهم نوع قواعد البيانات حتى لو كانت .mde او .accde الاداة ستقرأها فقط ضع قاعدة البيانات الخاصة بك فى نفس مسار الاداة وقم بتسمية قاعدة البيانات الى AccessSoft واضغط على الاداة وستقوم بفتح قاعدة بيانات ثم الاختفاء والاغلاق لتتعامل مع قاعدة بيناتاك بكل اريحية عند تحميل تحديث جديد ستجده فى نفس مسار قاعدة البيانات اتمنى من الله ان اكون قد وفقت فى الشرح اتمنى التجربة واعلامى بالنتيجة Link2securityDb.rar

السلام عليكم ورحمة الله تفضل تكت التليفون والعنوان.xls

شيت كنترول المرحلة الابتدائية 2019 شيت كامل به كل الصفوف و خفيف جدا و به كل الامكانيات التى تحتاجها تم اضافة النتيجة و الشهادات تقديرات فقط للصفوف الثلاثة الأولى كلمة المرور : 333 منتظر آراء و اقتراحات حضراتكم التحميل http://www.mediafire.com/file/dqq5rjnu5bqtp21/شيت+مستر+ملاك+2019+للمرحلة+الابتدائية.rar

السلام عليكم ورحمة الله وبركانه الاساتذة والخبراء الاعزاء بالمرفقات قاعدة combo اريد فى النموذج TSF الاتى :- 1- فى كومبو الاول يتم اختيار الشهر وبناء عليه يظهر فى الكومبو الثانى والثالث ما يخص هذا الشهر فقط 2- فى كومبو الثانى يتم اختيار الفريق وبناء عليه يظهر فى الكومبو الثالث ما يخص الشهر والفريق 3- فى كومبو الثالث يتم اختيار الاسم 4- اريد اول سطر بجميع الكومبو فارغ وبعد هذا السطر بيانات الكومبو 5- عند اختيار قيمة من الكومبو الثانى او الثالث ثم اختيار قيمة من الكومبو الاول يتم مسح القيم من الكومبو الثانى والثالث وبالمثل عند اختيار قيمة من الكومبو الثالث ثم اختيار قيمة من الكومبو الثانى يتم مسح قيمة الكومبو الثالث 6- عند الضغط على زر تطبيق التصفية يتم فتح نموذج KBT بناء على الاختيارات بداخل الكومبو اى عمل تصفية بالشهر والفريق والاسم وعرض النتيجة لا يشترط الاختيار من جميع الكومبو فقط عند اختيار اى قيمة من اى كومبو يتم التصفية عليه وعرض النتيجة بالنموذج KBT وعند عدم اختيار اى شى من جميع الكومبو يتم عرض النموذج كامل بدون تصفية 7- عند الضغط على زر مسح البيانات يتم مسح بيانات جميع الكومبو combo.accdb

السلام عليكم (لقد أزلت الإجابة نظراً لأن التعديل لا يعمل .) آمل أن تجد بغيتك قريباً

تفضل لك ما طلبت ويتم الترحيل الى صفحة Sheet2 Test v1111.xlsm

هل هذا الحل مناسب لعمل برنامجك ....... test30.rar

اشكرك جدا عمل بشكل رائع ...سهلت امري الله يسهل امرك

جرب هذا الملف رقم الفاتورة .xlsx

السلام عليكم انظر الي الملف وانظر ترحيب 2 ترحيب.xls ترحيب2.xls

المواضيع الحديثة دورة في vba الباوربوينت أسئلة دينية " بطريقة من سيربح المليون " شرح مبسط لعمل بوربوينت مرتبط بالاوفيس والنت مسابقة بالفجول بيزك خطوات حج التمتع قوالب بوربوينت جاهذة شرح تغيير لون الخط في الارتباط التشعبي تعالوا نتعرف على بوربوينت 2010 مسابقة دينية " من سيربح المليون" شرح كامل وشامل برنامج Microsoft Power Point دروس في كيفية ادخال الصوت على الباور بوينت كيفية تقطيع الصوت وادخاله بالبوربوينت مسابقة دينية " من سيربح المليون"

وعليكم السلام انا غيرت شوي على المثال السابق: . ولكن ، اذا عملت التغيير التالي على التقرير وفي المجموعات والفرز: . فالنتيجة: جعفر 286.برنامج حساب الاجازات 3.accdb.zip

حياك الله معظم اخطاء جمع المعادلة =Sum([MK]) تكمن في القيم الفارغة في الحقل MK لذا ، يجب تحويل القيم الفارغة الى اصفار ، ثم استعمال المعادلة في الجمع هكذا =Sum(Nz([MK],0)) جعفر

السلام عليكم ورحمة الله أستاذنا الغالى طريقة الموضوع تعجبنى فهى تجعل الطالب يبحث عن المعلومة والاستاذ يقيم و اسمح لى أستاذى بأن أشارك بهذه الطريقة : ضع الكود الكود التالى فى ملف الأستاذ سليم اللى هو 5 ميجا Option Explicit Sub ExcelDiet() Dim j As Long Dim k As Long Dim LastRow As Long Dim LastCol As Long Dim ColFormula As Range Dim RowFormula As Range Dim ColValue As Range Dim RowValue As Range Dim Shp As Shape Dim ws As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each ws In Worksheets With ws 'Find the last used cell with a formula and value 'Search by Columns and Rows On Error Resume Next Set ColFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set ColValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set RowFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Set RowValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) On Error GoTo 0 'Determine the last column If ColFormula Is Nothing Then LastCol = 0 Else LastCol = ColFormula.Column End If If Not ColValue Is Nothing Then LastCol = Application.WorksheetFunction.Max(LastCol, ColValue.Column) End If 'Determine the last row If RowFormula Is Nothing Then LastRow = 0 Else LastRow = RowFormula.Row End If If Not RowValue Is Nothing Then LastRow = Application.WorksheetFunction.Max(LastRow, RowValue.Row) End If 'Determine if any shapes are beyond the last row and last column For Each Shp In .Shapes j = 0 k = 0 On Error Resume Next j = Shp.TopLeftCell.Row k = Shp.TopLeftCell.Column On Error GoTo 0 If j > 0 And k > 0 Then Do Until .Cells(j, k).Top > Shp.Top + Shp.Height j = j + 1 Loop If j > LastRow Then LastRow = j End If Do Until .Cells(j, k).Left > Shp.Left + Shp.Width k = k + 1 Loop If k > LastCol Then LastCol = k End If End If Next .Range(.Cells(1, LastCol + 1), .Cells(.Rows.Count, .Columns.Count)).EntireColumn.Delete .Range("A" & LastRow + 1 & ":A" & .Rows.Count).EntireRow.Delete End With Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub احفظ الملف بصيغة xlsb شوف حجمه ستجد أنه نزل للنصف تقريبا ثم افتح الملف وشغل الكود السابق ثم احفظ الملف واقفله شوف حجم الملف ستجد أنه 32 كيلو بايت اللى حصل هنا أن اكسل أعاد حساب النطاقات الغير مستخدمه فى الملف وحذفها تحياتى

حل رائع يا ابن مصر ..بارك الله فيك وجزاك الله كل خير مرفق أيضاً إضافة AddIn تقوم بإضافة أمر باسم Remove styles في التبويب Home لتفعيل الأداة قم بفك الضغط عن الملف المرفق ، روح لخيارات الإكسيل ثم AddIns واضغط Go وحدد مكان الملف الذي قمت بفك الضغط عنه ثم اضغط أوك ستجد الأمر Remove Styles ظهر بجانب الأمر Cell Styles اضغط عليه وانتظر حوالي دقيقتين أو ثلاثة ثم بعد الانتهاء احفظ الملف وأغلقه وشوف حجمه .. RemoveStyles.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، ذكرت لك سابقا أن لا حرج بيننا ويمكنك طلب ما تريد في أي وقت تريد فستجدني إن شاء الله في الخدمة بما أستطيعه وأعرفه... بالنسبة للخلل الذي ذكرته في ملفك الأخير قد تنبهت إليه مباشرة بعد إرسال الملف وهي الحالة التي تكون فيها فترة التقسيط بين تاريخين محصورين بين بداية شهر ونهاية الشهر نفسه وقد تنبهت لموضع الخطأ في المعادلة وقمت بتصحيحه لذلك لم أتعب كثيرا في التفكير في الطلب الذي ورد في ردك وتجد في الملف المرفق تصحيحا للخطأ... أرجو أن تراقب الملف جيدا علني قد أخطأت في المعادلة وهذا راجع لطولها وكثرة الشورط فيها (ربما لا تمسح جميع الحالات الخاصة بطريقة التقسيط حسب الفترات)... أخوك بن علية Prepaid Exp. Settlement 3.rar