بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 27 نوف, 2019 in all areas
-
فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو5 حذف بيان الفيديو2 points
-
السبب التحديث مثلا لدي 8 اجهزة بالمنزل في البداية حصلت المشكلة في جهاز واحد وفي اليوم الثاني ثلاث اجهزة بعدها دخلت على التحديثات ووجدت ان المشكلة حصلت للاجهزة المحدثة فقط اعتقد ان المشكلة انتهت الان2 points
-
2 points
-
زيادة الى ماتفضل به الاستاذ محمد فانه يجب عليك عمل compile للكود للتأكد من عدم وجود اي أخطاء ومن ثم يمكنك بعدها تحويل الملف الى Accde2 points
-
وعليكم السلام ورحمة الله وبركاته هل انت متأكد من عدم نقص في المكتبات المسجلة في البرنامج جرب احد الحلول 1 - عمل ضغط واصلاح قاعدة البيانات ثم جرب تحويل الملف 2 - انشىؤ قاعدة بيانات جديدة واستورد اليها جميع كائنات قاعدة البيانات القديمة ثم جرب تحويل الملف تحياتي2 points
-
2 points
-
2 points
-
2 points
-
فورم اكسل لقصص انبياء الله للاطفال والكبار الفيديو الملف باسفل فورم اكسل لقصص الانبياء.rar1 point
-
تفضل اخي الكريم UPP-Sub.rar تحياتي1 point
-
وعليكم السلام ورحمة الله وبركاته اكيد مع المبدع @jjafferr ستجد الحل باذن الله تحياتي1 point
-
1 point
-
بارك الله فيك استاذ لكن ما هو السبب ان بعض الاجهزة لا نواجه هذه المشكلة والبعض الاخر نواجهها مع الاعتبار ان الجهازين لهما نفس النسخة؟1 point
-
1 point
-
1 point
-
اهلا بك فى منتدانا الكريم -شرفتنا-تفضل لك ما طلبت تم عمل ايقونة على الفورم للدخول منها الى شيت الإكسيل بإستخدام هذا الكود Private Sub CommandButton2_Click() Application.Visible = True Sheet1.Activate Me.Hide UserForm1.Hide End Sub 1البواخر.xlsm1 point
-
1 point
-
وعليكم السلام-بالله عليكم انتبه لهذا الموضوع جدا فقد نبهنا فى العديد من المرات عليكم بإستخدام خاصية البحث فى المنتدى قبل رفع المشاركات فالمنتدى به كنوز وحتى تتفرغ الأساتذة للإجابة على اسئلة مختلفة لم ترد بالمنتدى لعدم اهدار الوقت تفضل به طلبك https://www.officena.net/ib/topic/65499-ربط-ملف-الإكسل-ب-google-map/1 point
-
1 point
-
السلام عليكم بعد اذن الاخ تومي فعلا الامر غير متاح كاملا بصورة مباشرة و لكن يمكن عمل بعض التحايل ما فهمته ان السؤال يتضمن شقين 1- ان تكون الخلايا غير قابلة للاتساع 2- تحديد الحروف لكل خلية الجزء الاول : من خصائص الجدول اختار الصفوف ثم حدد الارتفاع بعد اختيار Exactly من خصائص الجدول بعد اختياره مع ملاحظة ان ذلك لن يمنع اضافة نصوص بحجم اكبر من ارتفاع الخلية و انما هو تحديد شكلي فقط الجزء الثاني لا يمكن بصورة مباشرة ، و لكن للتحايل ، من قائمة المطورين Developers اختار هذه أداة مربع النص الظاهر فى الصورة و ادرج مربع النصوص هذا فى الخلية المراد تحديد عدد حروفها ثم اختار خصائص مريع النص ثم حدد الحد الاقصي فى الخصائص فى عند Max_Length ضع الحد المطلوب و ليكن 5 حروف ويمكن ايضا التحكم بالارتفاع و العرض و هل يتسع تلقائيا ام لا ثم بعد ذلك الغي تفعيل وضع التصميم و لن يقبل صندوق النص نصوصا اطول مما حددت1 point
-
وعليكم السلام ورحمة الله وبركاته يمكنك فتح نموذج frmAbsent لاضافة الغياب مباشرة >>> ضع له زر امر في واجهة البرنامج او المكان المناسب لك ويمكنك فتح نموذج frmAbsent2 لاضافة ملاحظات الحضور مباشرة >>> ضع له زر امر في واجهة البرنامج او المكان المناسب لك تحياتي1 point
-
ما هو انت الذي طلبت ذلك من خلال هذه العبارة في سؤالك: يتم فك الادماج واعادة كتابة البيانات في الخلية الثانية بحيث لا تترك فارغة1 point
-
جرب هذا الكود بعد اذن الاساتذه الافاضل 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 Function1 point
-
اخي الكريم الذي قمت به هو كالتالي .. قمت باستعمال الكود التالي تحت زر أمر اعادة التشغيل 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.accdb1 point
-
السلام عليكم جرب المرفق ان شاء الله يفي بالغرض برنامج المعتمرين _A2.xlsm1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
السلام عليكم أحبائي في هذا المنتدى بداية أحب ان أعبر عن خالص شكري وتقديري لكم مشرفين وأعضاء ، فقد كانت بداياتي معكم كأي مستخدم بسيط جدا على الاكسل وقد طورت نفسي كثيرا بجهدوكم معنا ,احببت اليوم ان اضع بين أيدكم برنامج قمت بتصميمه على الاكسل للشهادات وكشوف الدرجات خاصة بمدارس وكالة الغوث في غزة البرنامج موجود كمرفق في هذه المشاركة (مرفق لكل مرحلة) نرجو منكم تحميل البرنامج من الموقع نفسه وتقديم مقترحاتكم حوله برنامج يختص بإعداد الشهادات وكشوف الدرجات لمدارس وكالة الغوث الدولية بمنطقة غزة التعليمية مخرجات البرنامج : * شهادات الفصل الأول * شهادات الفصل الثاني * مصدقة الشهادة وهي مستخرج شهادة بدل فاقد * كشف درجات الفصل الأول ( ويشتمل على المجموع ، الترتيب ، النتيجة ) * كشف درجات الفصل الثاني ( ويشتمل على مجموع الفصل الأول والثاني وترتيب الفصل الثاني والنتيجة النهائية ، ناجح ، راسب، مكمل ) * كشف عام في نهاية الفصل الثاني خاص ( بالتعليم) ويتم من خلاله تحديد مواد الإكمال وتحديد علامات الإكمال * كشف عام للمدرسة في نهاية الفصل الثاني ويشتمل على الترتيب والنتيجة النهائية * خلاصة الفصل الأول ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) * خلاصة الفصل الثاني ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) * الخلاصة العامة للفصلين ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) حسب النتيجة النهائية بعد التعديل * كشف المترفعين للعام الدراسي الجديد * كشف المكملين * كشف الراسبين * كشف الغائبين **** نموذج سهل لطباعة الشهادات بطريقة سهلة من خلال نفس البرنامج والتحكم في عدد الشهادات المراد طباعتها ونوعيتها بلون أسود أو بالألوان ملاحظة : تم وضع معايير للعلامات بحيث أن العلامة المدخلة من( 1-50 ) ولا يقبل الحاسوب علامة أكبرمن 50 أو أصغر من 1 ، في حالة الغياب نكتب للطالب غائب ويمكن وضع أنصاف الدرجات للطالب وخاصة في حالة الطلاب المتميزين التي تفصل بينهم نصف الدرجة عند الترتيب " shahada1_2_3_4.zip shahada5_6.zip shahada7_8_9.zip1 point
-
بارك الله فيك أخي الحبيب بن عليه وجزيت خير الجزاء ولكن لي رأي عند التعامل مع الأكواد أفضل عدم الاعتماد على ورقة العمل .. فيمكن الاستغناء عن العمود المساعد كما يمكن الاستغناء عن النطاقات المسماة والتي أرى أنها من الأسباب التي تثقل من عمل الملف عند الإكثار منها .. فإليك الكود التالي عله يفي بالغرض 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 تقبل وافر تقديري واحترامي1 point
-
السلام عليكم ورحمة الله أخي الكريم لست أدري إن كنت قد فهمت المطلوب جيدا ولكني أقدم العمل التالي في المرفق مع تحفظ شديد (خاصة فيما يتعلق بالانحراف المعياري لأن له قانونين مختلفين -اختلاف بسيط-)... بن علية مصنف 2.rar1 point
-
هذا الوصف واضح ، بينما الوصف السابق لم يكن تفضل نقوم بإعادة ترقيم [رقم المادة] كلما حدث حذف ، هكذا: 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.zip1 point
-
1 point