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

فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو5 حذف بيان الفيديو

السبب التحديث مثلا لدي 8 اجهزة بالمنزل في البداية حصلت المشكلة في جهاز واحد وفي اليوم الثاني ثلاث اجهزة بعدها دخلت على التحديثات ووجدت ان المشكلة حصلت للاجهزة المحدثة فقط اعتقد ان المشكلة انتهت الان

الاخ idriss idrissou تفضل جرب المرفق CONSULTATION_1.rar

زيادة الى ماتفضل به الاستاذ محمد فانه يجب عليك عمل compile للكود للتأكد من عدم وجود اي أخطاء ومن ثم يمكنك بعدها تحويل الملف الى Accde

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

السلام عليكم تفضل اخي العزيز XLtoEXE.rar

نمودج قريب للشرح في مشاركتك اتمنى ان يساعدك في طلبك m2000.xlsm

السلام عليكم ورحمة الله وبركاته قمت بتعديل برنامج طباعة الشيكات ليتناسب مع طلبك الكويت.xls

فورم اكسل لقصص انبياء الله للاطفال والكبار الفيديو الملف باسفل فورم اكسل لقصص الانبياء.rar

تفضل اخي الكريم UPP-Sub.rar تحياتي

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

خذ راحتك اخي العزيز

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

شكرا استاذ على عندك حق المشكلة عندى انا اكرر شكرى

أخى الكريم المشكلة لديك فكل شيء يعمل معى بكفاءة وادخل بالفعل الى شيت الإكسيل

اهلا بك فى منتدانا الكريم -شرفتنا-تفضل لك ما طلبت تم عمل ايقونة على الفورم للدخول منها الى شيت الإكسيل بإستخدام هذا الكود Private Sub CommandButton2_Click() Application.Visible = True Sheet1.Activate Me.Hide UserForm1.Hide End Sub 1البواخر.xlsm

أستاذ abosam أين الضغط على الإعجاب ؟

وعليكم السلام-بالله عليكم انتبه لهذا الموضوع جدا فقد نبهنا فى العديد من المرات عليكم بإستخدام خاصية البحث فى المنتدى قبل رفع المشاركات فالمنتدى به كنوز وحتى تتفرغ الأساتذة للإجابة على اسئلة مختلفة لم ترد بالمنتدى لعدم اهدار الوقت تفضل به طلبك https://www.officena.net/ib/topic/65499-ربط-ملف-الإكسل-ب-google-map/

انا جربته فهو بالفعل يعمل ضغط واصلاح

السلام عليكم بعد اذن الاخ تومي فعلا الامر غير متاح كاملا بصورة مباشرة و لكن يمكن عمل بعض التحايل ما فهمته ان السؤال يتضمن شقين 1- ان تكون الخلايا غير قابلة للاتساع 2- تحديد الحروف لكل خلية الجزء الاول : من خصائص الجدول اختار الصفوف ثم حدد الارتفاع بعد اختيار Exactly من خصائص الجدول بعد اختياره مع ملاحظة ان ذلك لن يمنع اضافة نصوص بحجم اكبر من ارتفاع الخلية و انما هو تحديد شكلي فقط الجزء الثاني لا يمكن بصورة مباشرة ، و لكن للتحايل ، من قائمة المطورين Developers اختار هذه أداة مربع النص الظاهر فى الصورة و ادرج مربع النصوص هذا فى الخلية المراد تحديد عدد حروفها ثم اختار خصائص مريع النص ثم حدد الحد الاقصي فى الخصائص فى عند Max_Length ضع الحد المطلوب و ليكن 5 حروف ويمكن ايضا التحكم بالارتفاع و العرض و هل يتسع تلقائيا ام لا ثم بعد ذلك الغي تفعيل وضع التصميم و لن يقبل صندوق النص نصوصا اطول مما حددت

وعليكم السلام ورحمة الله وبركاته يمكنك فتح نموذج frmAbsent لاضافة الغياب مباشرة >>> ضع له زر امر في واجهة البرنامج او المكان المناسب لك ويمكنك فتح نموذج frmAbsent2 لاضافة ملاحظات الحضور مباشرة >>> ضع له زر امر في واجهة البرنامج او المكان المناسب لك تحياتي

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

جرب هذا الكود بعد اذن الاساتذه الافاضل Dim Ar() Dim i Private Sub Merg_Ali() Dim C As Range Dim A As String Dim B Sp False Erase Ar: i = 0 For Each C In ActiveSheet.UsedRange.Cells If C.MergeCells Then If i >= 1 Then If Ar(1, i) = C.MergeArea.Address Then GoTo nx End If i = i + 1 ReDim Preserve Ar(1 To 2, 1 To i) A = C.MergeArea.Address: B = C.Value Ar(1, i) = A: Ar(2, i) = B nx: C.UnMerge End If Next Sp True If i Then Ar = Application.Transpose(Ar) End Sub Private Sub Ad(A) Sp False For x = LBound(A, 1) To UBound(A, 1) Range(A(x, 1)) = A(x, 2) Next Sp True End Sub Sub Ali_Mr() Merg_Ali If i Then Ad Ar: Erase Ar: i = 0 End Sub Private Function Sp(Bl As Boolean) With Application .ScreenUpdating = Bl .EnableEvents = Bl End With End Function

اخي الكريم الذي قمت به هو كالتالي .. قمت باستعمال الكود التالي تحت زر أمر اعادة التشغيل Application.SetOption "Auto compact", True Utilities.Restart مع إزالة الكود التالي Utilities.Restart Compact:=Nz(ckCompact, False) وكذلك قمت بإزالة الكود التالي من الوحدة النمطية If Compact Then End If مع الابقاء على الكود التالي الذي هو بداخل عبارة الـ if السابقة s = s & """%~f1"" ""%~f2.%3"" /compact" & vbCrLf الملف تمت تجربته وهو يعمل إعادة تشغيل مع الضغط والاصلاح تلقائياً بدون اي مشاكل على اوفيس 2007 تحياتي DatabaseRestartV1.2.accdb

السلام عليكم جرب المرفق ان شاء الله يفي بالغرض برنامج المعتمرين _A2.xlsm

تفضل الملف بدون ضغط HR.accdb

وعليكم السلام ارفق ملف وعليه توضيح طلبك

معذره لم يتم التعديل بالشكل الصحيح اعد تنزيل مرفق اخر مشاركة

السلام عليكم تفضل اخي المرفق غياب_A7 مع الغياب بعذر.xlsm

السلام عليكم جرب المرفق غياب_A6 مع الغياب بعذر.xlsm

المشكلة بسبب تحديث للاوفيس

السلام عليكم 🙂 سر ولازم اكشفه 🙂 في الكثير من المواضيع المهمة اللي اريد اتابعها ، ولكن بدون ان اضيف مشاركة ، اقدر اتابع هكذا : جعفر

السلام عليكم أحبائي في هذا المنتدى بداية أحب ان أعبر عن خالص شكري وتقديري لكم مشرفين وأعضاء ، فقد كانت بداياتي معكم كأي مستخدم بسيط جدا على الاكسل وقد طورت نفسي كثيرا بجهدوكم معنا ,احببت اليوم ان اضع بين أيدكم برنامج قمت بتصميمه على الاكسل للشهادات وكشوف الدرجات خاصة بمدارس وكالة الغوث في غزة البرنامج موجود كمرفق في هذه المشاركة (مرفق لكل مرحلة) نرجو منكم تحميل البرنامج من الموقع نفسه وتقديم مقترحاتكم حوله برنامج يختص بإعداد الشهادات وكشوف الدرجات لمدارس وكالة الغوث الدولية بمنطقة غزة التعليمية مخرجات البرنامج : * شهادات الفصل الأول * شهادات الفصل الثاني * مصدقة الشهادة وهي مستخرج شهادة بدل فاقد * كشف درجات الفصل الأول ( ويشتمل على المجموع ، الترتيب ، النتيجة ) * كشف درجات الفصل الثاني ( ويشتمل على مجموع الفصل الأول والثاني وترتيب الفصل الثاني والنتيجة النهائية ، ناجح ، راسب، مكمل ) * كشف عام في نهاية الفصل الثاني خاص ( بالتعليم) ويتم من خلاله تحديد مواد الإكمال وتحديد علامات الإكمال * كشف عام للمدرسة في نهاية الفصل الثاني ويشتمل على الترتيب والنتيجة النهائية * خلاصة الفصل الأول ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) * خلاصة الفصل الثاني ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) * الخلاصة العامة للفصلين ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) حسب النتيجة النهائية بعد التعديل * كشف المترفعين للعام الدراسي الجديد * كشف المكملين * كشف الراسبين * كشف الغائبين **** نموذج سهل لطباعة الشهادات بطريقة سهلة من خلال نفس البرنامج والتحكم في عدد الشهادات المراد طباعتها ونوعيتها بلون أسود أو بالألوان ملاحظة : تم وضع معايير للعلامات بحيث أن العلامة المدخلة من( 1-50 ) ولا يقبل الحاسوب علامة أكبرمن 50 أو أصغر من 1 ، في حالة الغياب نكتب للطالب غائب ويمكن وضع أنصاف الدرجات للطالب وخاصة في حالة الطلاب المتميزين التي تفصل بينهم نصف الدرجة عند الترتيب " shahada1_2_3_4.zip shahada5_6.zip shahada7_8_9.zip

بارك الله فيك أخي الحبيب بن عليه وجزيت خير الجزاء ولكن لي رأي عند التعامل مع الأكواد أفضل عدم الاعتماد على ورقة العمل .. فيمكن الاستغناء عن العمود المساعد كما يمكن الاستغناء عن النطاقات المسماة والتي أرى أنها من الأسباب التي تثقل من عمل الملف عند الإكثار منها .. فإليك الكود التالي عله يفي بالغرض Sub Insert_HBreaks() Dim I As Integer, Str1 As String, Str2 As String With ThisWorkbook.Worksheets("Sheet1") .ResetAllPageBreaks Str1 = .Range("B2") For I = 2 To .Range("A" & .Rows.Count).End(xlUp).Row Str2 = .Range("B" & I) If Str2 <> Str1 Then .HPageBreaks.Add Before:=.Range("A" & I) Str1 = Str2 End If Next I End With End Sub تقبل وافر تقديري واحترامي

السلام عليكم ورحمة الله أخي الكريم لست أدري إن كنت قد فهمت المطلوب جيدا ولكني أقدم العمل التالي في المرفق مع تحفظ شديد (خاصة فيما يتعلق بالانحراف المعياري لأن له قانونين مختلفين -اختلاف بسيط-)... بن علية ‫مصنف 2.rar

هذا الوصف واضح ، بينما الوصف السابق لم يكن تفضل نقوم بإعادة ترقيم [رقم المادة] كلما حدث حذف ، هكذا: Private Sub Form_AfterDelConfirm(Status As Integer) Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC rst.Edit rst![رقم المادة] = i rst.Update rst.MoveNext Next i End Sub جعفر 316.students.accdb.zip

جرب هذا الملف show_names_1_2_by letters Arrays.zip