أ / محمد صالح

لعمل ذلك يمكنك اتباع الآتي: الضغط في اي مكان فارغ في الرسم البياني من تبويب تنسيق format نختار من القائمة الأولى المحور أفقي (فئة) Horizontal (category) Axis ثم نضغط على تحديد التنسيق format selection أسفل القائمة مباشرة في لوحة المهام اليمنى التي ظهرت نضغط على الفئات في ترتيب عكسي Category in reverse order بالتوفيق

رغم أن حذف بيانات جميع جداول قاعدة البيانات شيء غير منطقي لكن يمكنك استعمال هذا الكود DoCmd.SetWarnings False Dim T As TableDef For Each T In CurrentDb.TableDefs If Not (T.Name Like "MSys*" Or T.Name Like "~*" Or Len(T.Connect) > 0) Then DoCmd.RunSQL "DELETE * FROM " & "[" & T.Name & "]" End If Next T DoCmd.SetWarnings True بالتوفيق

الكود المرفق مني يعمل على جميع الإصدارات بشرط تفعيل مرجع اكسل من أدوات tools مراجع refrences مع إلغاء مرجع اكسل 16 إذا ظهر كمرجع مفقود وليس شرطا رقم 16 حيث يختلف الرقم حسب اصدار الأوفيس أما بالنسبة لجدول أخطاء الاستيراد فربما لعدم استيراد جميع الأعمدة كما قلت سابقا أو اختلاف ترتيب الحقول

ليس شرطا اوفيس 2016 @Eng.Qassim الكود يعمل على جميع الاصدارات

بارك الله لك أخي @د.كاف يار رجاء من كل رواد منتدى الأكسس قراءة ما يخص الاقتباس في توقيعي

مادام الملف يعمل عندي يفترض أن يعمل عندك بدون إضافة مراجع فقد تمت إضافة المرجع عندي وإذا كنت لم تقم بأي تغيرات هل يظهر لك في نافذة المراجع في قائمة أدوات مرجع مفقود missing reference ؟ يخص ميكروسوفت اكسل (16) وهو رقم اكسل 365 إذا كان يظهر يجب حذف علامة الصح بجواره لأن الرسالة السابقة تعني تعارض في تسمية الموديول أو المشروع أو المرجع بالتوفيق

سؤال مبدئي هل الملف المرفق مني يعمل بكفاءة عندك قبل أي تعديل عليه؟ نأتي لظهور الأخطاء يفضل ذكر ما قمت به من خطوات بالتفصيل بعد تجربتك للمرفق السابق حتى نتوصل لسبب الخطأ

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

خلية الاكسل تتحمل حتى 15 رقم ولكتابة أكثر من 15 يمكن تنسيق الخلية كنص text قبل الكتابة من تنسيق خلايا format cells كما في هذه الصورة بالتوفيق

دالة importxml تستعمل لجلب محتويات جزء معين من صفحة ويب إلى جوجل شيت وصورتها العامة هي =IMPORTXML(url, xpath_query) ولا تستعمل لفتح رابط مباشرة ولمزيد من المعلومات هنا https://support.google.com/docs/answer/3093342?hl=ar بالتوفيق

موضوع اتجاه البحث في vlookup يمكن التغلب عليه الميزة في lookup انها تبحث في الصفوف والأعمدة كبديل للاثنين معا vlookup و hlookup بالتوفيق

جميعا بإذن الله 👍🌹😍

بالنسبة للمطلوب الاول حاول تصدير الملف مرة أخرى من الحساب الخاص به فربما يوجد خطأ في عملية الإنشاء بالنسبة للمطلوب الثاني فهذا طبيعي جدا حيث ان ملف pst يحتوي على الرسائل اوفلاين بدون اتصال وربما يتم حذفها من خادم البريد اما الجهاز الآخر فبدايته من الرسائل الموجودة على سيرفر البريد بالتوفيق

حتى يصلك إعلام بالقراءة لابد من موافقة المستخدم يمكنك استعمال الإعلام بوصول الرسالة delivery بالتوفيق

تفضل هذا ملفك بعد وضع الكود فيه (أولى خطوات التعلم هي الرغبة والإصرار) مع ضرورة أن يكون عنصر المدرسة والفصل غير منضم (لانهما مرتبطان بجدول الطلاب فبمجرد اختيارهم يعني أنك بدأت تسجل سجل جيديد) بالتوفيق mas_import_export.rar

لا أدري ما سبب تكرار المواضيع

يمكنك استعمال هذا المعيار >=IIf(Format(Now(),"h")<8,Format(DateAdd("d",-1,Now()),"yyyy/mm/dd"),Format(Now(),"yyyy/mm/dd")) بالتوفيق

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

جميعا بإذن الله

أكثر شيء يصعب مهمة المعادلات دمج الخلايا لذا تم فك الدمج في جمبع الخلايا تم وضع جميع التقييمات متجاورة في شيت الأوزان تم اضافة مجموعة من الخلايا لتحدد عمود المسمى الوظيفي في شيت الأوزان بالتوفيق تقييم الموظف 2021.xlsx

ربما يكون هذا هو المطلوب الثاني فلترة_2.xlsm

على افتراض أن العمود الذي به القيم السالبة هو A يمكنك استعمال هذا الكود For n = 2 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(n, "A").Value < 0 Then Rows(n).Delete n = n - 1 End If Next n MsgBox "Done by mr-mas.com" بالتوفيق

إذا لم تكن مفعل version history من تبويب file ثم info فلا مجال للرجوع لنسخة احتياطية من الملف بالتوفيق

بالنسبة لموضوع إضافة حقل المدرسة والفصل لملف الاكسل يمكنك استعمال هذا الكود قبل كود الاستيراد 'Tools ->References -> Microsoft Excel Object Library Dim xlapp As Excel.Application, xlBook As Excel.Workbook, xlSheet As Excel.Worksheet Dim ExcelPath As String, lastRow As Long, lastcolumn As Long ExcelPath = CurrentProject.Path & "\ExcelFileName.xlsx" Set xlapp = CreateObject("Excel.Application") Set xlBook = xlapp.Workbooks.Open(ExcelPath) Set xlSheet = xlBook.Worksheets(1) With xlSheet lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row lastcolumn = .Cells(1, .Columns.Count).End(xlToLeft).Column .Cells(1, lastcolumn + 1) = "school field title" .Range(.Cells(2, lastcolumn + 1), .Cells(lastRow, lastcolumn + 1)) = "school field value" .Cells(1, lastcolumn + 2) = "class field title" .Range(.Cells(2, lastcolumn + 2), .Cells(lastRow, lastcolumn + 2)) = "class field value" End With xlBook.Close 1 Set xlSheet = Nothing Set xlBook = Nothing Set xlapp = Nothing مع مراعاة تفعيل مرجع اكسل من قائمة tools وتغيير اسم ملف الاكسل واسم عنوان حقل المدرسة وقيمة حقل المدرسة واسم عنوان حقل الفصل وقيمة حقل الفصل بالتوفيق

الكود فعلا يحدد نطاق البحث في بداية الاسم للوصول لما تريد غير هذا السطر في حدث عند تغيير مربع النص10 If C Like TextBox10.Value & "*" Then إلى If C Like "*" & TextBox10.Value & "*" Then بالتوفيق