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

السلام عليكم ورحمة الله وبركاته وجدت عندي شيت أعده من أكثر الشيتات التي أثارت إعجابي ، وسوف تثير إعجابكم حتما ً لكثرة ما تضمه بين جنباتها من معادلات وشغل كتييييير ، فقلت أنقلها للاستفادة . All in One.rar

وعليكم السلام استاذى الكريم -كل عام وانتم بخير ورمضان مبارك يمكنك مشاهدة هذا الفيديو وهو عن خطوات رفع ملف إكسيل على الإنترنت والتعامل والتغيير عليه من اكثر من شخص:

السلام عليكم جربت اكثر من برنامج اصلاح وكانت النتيجة جدول واحد سليم وخالي من البيانات تفضلوا برنامج الاصلاح accessfix.rar

حسناً.. قمت بعمل نموذجين الأول لإنشاء الجدول.. مع إنشاء حقلين للبيانات الحقل الأول: بيانات رقمية صحيحة طويلة تعداد تلقائي الحقل الثاني: بيانات نصية بطول 20 حرف. الثاني لإضافة أو تعديل عنوان الحقل لجدول تم نأسيسه. مربعات التحرير والسرد لتسهيل الإجراء :: إليك المرفق:اشاء.accdb أهلا بك أستاذ عبدالله.. بما أنه يمكن إنشاء الجداول مع صيغة ACCDE فيمكن إنشاء وتعديل الجدول عن طريق الشفرة. يمكن ذلك عن طريق الاتصال بقاعدة البيانات المرتبطة عن طريق الشفرة بالصيغة التالية Option Compare Database Option Explicit Dim DB As DAO.Database Dim TDF As DAO.TableDef Set DB = OpenDatabase(REMOTE_DATABASE) Set TDF = DB.CreateTableDef(TABLE_NAME) '... AND SO ON........... تقبل الله منا ومنكم.. آمين

الحمدلله ان وجدت مطلوبك

زرنامة تدرج كل التواريخ بين تاريخين (من اختيارك) مفصلة حسب كل شهر في عامود مع حرية حذف يوم او يومين او ثلاثة ايام (من اختيارك ايضاً) او عدم حذف اي يوم Date_without_days_by_colums_and_month2.xlsm

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

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

اemp.raremp.rarلسلام عليكم ورحمة الله وبركاته احب ان اسجل اعجابي بالمنتدي فطالما استفدت جدا من مشاركات السادة الاعضاء وببعض البرامج التي تم التعديل عليها لتواكب ظروف العمل لقد وفقت اثناء بحثي بالمنتدى في الحصول على برنامج لشئون الموظفين تصميم الاستاذ احمد بكر ولكن رجائي من حضراتكم ومن الاستاذ احمد بكر بالسماح بالتعديل على البرنامج بما يتوافق مع شئون موظفين بمصر داخل مصلحة حكومية لذا الرجاء تغيير البيانات بالفورم وكذلك بملف الترحيل كما يلي بيانات الموظف رقم الموظف - اسم الموظف - الرقم القومي - محل الاقامة - رقم التليفون - المؤهل الدراسي - تاريخ الحصول على المؤهل بيانات الوظيفة الوظيفة - الادارة التابع لها - تاريخ التعيين - تاريخ استلام العمل - الدرجة الوظيفية - تاريخ الحصول على الدرجة - تاريخ اخر ترقية بيانات موقع العمل مكان العمل - عنوان مكان العمل - تليفون مكان العمل - فترة العمل الاجازات نوع الاجازة " عارضة - اعتيادي - انقطاع - مرضي " - تاريخ بدء الاجازة - تاريخ انتهاء الاجازة - مدة الاجازة - الرصيد الباقي الجزاءات نوع الجزاء - سبب الجزاء - العقوبة - رقم كتاب العقوبة - تاريخ العقوبة

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

السلام عليكم هذا البرنامج من اعداد فريق عمل مايكروسوفت اوفيس حبيت اشاركه معكم لانكم ستستفيدون منه الكثير وهناك حركات ستتعلموها عند الدخول اليه الطلاب1.accdb

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

Dim excelfile '-- لتحديد موقع ملف الأكسل المراد فتحه ChDir "C:\Documents and Settings\Windows\Desktop" excelfile = Shell("EXCEL.EXE Test.xls", 1) ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

تفضل استاذى الكريم وقمت بعمل ايصا تاريخ النهاية فى عمود اخر Fisrt date-1.xlsx

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

مرفق رابط فيديو للشرح العملي القائمة المنسدلة.xlsx

جزاك الله كل خير وبارك الله فيك

وعليكم السلام أخى الكريم هذا حل بالمعادلات اضافة اسم المادة-1.xlsm

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

تفضل اخى الكريم وكل عام وانتم بخير ورمضان مبارك تفقيط.xlsx

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

ضع مثال مصغر للتطبيق ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

يعطيك العافية اخي على التنبيه هل اطرح الموضوع بالتفصيل بدون صور

وعليكم السلام ورحمة الله وبركاته لا أتقدم عليك . تم إضافة بعض التحسينات على القاعدة . اجمالي.accdb مجرد أفكار

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

جزاك الله كل خير استاذى الكريم وبارك الله فيك

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

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

تفضل اخى الكريم لمعرفة المخزون المتبقي.xlsx مخازن (1).xlsx

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

السلام عليكم الاخوة الافاضل يحياوي وياسر مشكورين جدا على الكلمات الجميله وهذا كود لعمل اوراق جديد بحسب ماتكتبه في العمود A من السطر الثاني كم تشاء من الاوراق وعمل ارتباط تشعبي في كل ورقة جديدة العودة الى الورقه الرئيسية ارجو ان تستفيدو منه Option Explicit Sub CreateSheets() Dim RNG As Range Dim c As Range Application.ScreenUpdating = False Set RNG = ActiveSheet.Range("A2:A" & Rows.Count).SpecialCells(xlConstants) For Each c In RNG If Not Evaluate("ISREF('" & c.Text & "'!A1)") Then Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = c.Text Else Sheets(c.Text).Move After:=Sheets(Sheets.Count) End If Sheets(c.Text).Range("A1").Formula = "=HYPERLINK(""#ورقة1!A1"",""الرئيسية"")" c.Offset(, 1).FormulaR1C1 = "=HYPERLINK(""#'"" & RC[-1] & ""'!A1"", ""Link"")" Next c RNG.Parent.Activate Application.ScreenUpdating = True End Sub والمرفق ملف تجربه تحياتي والسلام عليكم كود عمل اوراق.rar

طريقة التغلب على تحديد اللون وكبر الخط في القائمة المنسدله التحقق من الصحه بربط كومبكس في حدث الصفحه اليكم الكود يشرح نفسه ومرفق مثال Option Explicit Private Sub TempCombo_KeyDown(ByVal _ KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) Select Case KeyCode Case 9 ActiveCell.Offset(0, 1).Activate Case 13 ActiveCell.Offset(1, 0).Activate Case Else End Select End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Dim wsList As Worksheet Set ws = ActiveSheet Set wsList = Sheets("æÑÞÉ1") Cancel = True Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .ListFillRange = "" .LinkedCell = "" .Visible = False End With On Error GoTo errHandler If Target.Validation.Type = 3 Then Application.EnableEvents = False str = Target.Validation.Formula1 str = Right(str, Len(str) - 1) With cboTemp .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 15 .Height = Target.Height + 5 .ListFillRange = str .LinkedCell = Target.Address End With cboTemp.Activate End If errHandler: Application.EnableEvents = True Exit Sub End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Set ws = ActiveSheet Application.EnableEvents = False Application.ScreenUpdating = False If Application.CutCopyMode Then GoTo errHandler End If Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .Top = 10 .Left = 10 .Width = 0 .ListFillRange = "" .LinkedCell = "" .Visible = False .Value = "" End With errHandler: Application.ScreenUpdating = True Application.EnableEvents = True Exit Sub End Sub abood.rar

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

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