أ / محمد صالح

الكود عندي يعمل بصورة طبيعية جدا ربما بسبب بطء الانترنت عندك مثلا

من الصفر يتم فتح برنامج واتس اب للكمبيوتر وقراءة رمز qr وتجهيز الاتصال بين واتس اب الكمبيوتر والموبايل بعد فتح البرنامج وعمله يتم فتح ملف الاكسل وتشغيل الكود بعد تشغيل الكود مباشرة تنشيط نافذة واتساب مع ملاحظة استمرار فتح تطبيق واتساب في الموبايل أثناء عملية الارسال وعدم الضغط على اي شيء بالفارة او لوحة المفاتيح في برنامج واتساب الكمبيوتر لأن أخطر جزئية في هذا الأمر قيام الكود بالضغط على زر enter بعد كتابة نص الرسالة في مكانها فإذا لم يكن المؤشر في مربع الرسالة لن يقوم بالارسال بالتوفيق

في الكود الخاص بك المتغير contact يأخذ قيمة الخلية وليس معادلتها المهم كما اخبرتك اكثر من مرة ان يكون الرقم بمفتاح الدولة

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

لا يوجد أزرار في صفحة ادخال بيانات التلميذ الا زر بحث ومسح واضافة وتعديل ولطباعة بيان القيد يمكنك الانتقال للشيت الاخير وطباعته ctrl+p طبعا بعد جلب بيانات الطالب بالبحث اولا

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

جرب هذا الاختصار Dim str As String searchtext.SetFocus str = Me.searchtext.Text str = Replace(str, "أ", "ا") str = Replace(str, "إ", "ا") str = Replace(str, "آ", "ا") str = Replace(str, "ة", "ه") str = Replace(str, "ى", "ي") Me.searchtext = Replace(str, "ؤ", "و") بالتوفيق

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

وضعت باقي الأكواد على أساس أن الشرط الذي وضعته أنت يعمل معك بطريقة جيدة If Me.FilePath = "" Then ولكن طالما ظهر هذا الخطأ جرب دالة isnull If IsNull(Me.FilePath.Value) Then تم تعديل الكود في المشاركة السابقة بالتوفيق

تفضل أخي الكريم تمت إضافة كود للبحث والإضافة والتعديل ومسح النتائج وتغيير اسماء الشيتات حتى يمكن استخدامها في خانة الصف بالتوفيق بيانات التلميذ.xlsb

لا يمكن الوصول لملفك على جوجل درايف

حسب فهمي للصورة النهائية للمطلوب تفضل هذه أكواد استيراد واستعراض وتصدير Private Sub estrad_Click() If IsNull(Me.FilePath.Value) Then MsgBox "يجب تحديد مسار الملف اولاً", vbCritical + vbMsgBoxRight, "تنبيه" Else Dim ImpEX As String Dim strSQL As String ' حذف محتويات الجدول strSQL = "DELETE tbl1.* FROM tbl_Items;" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True ' استيراد جدول الإكسل إلى جدول الأكسس المطلوب ImpEX = Me.FilePath.Value DoCmd.TransferSpreadsheet acImport, 8, "tbl_Items", ImpEX, True Me.Requery MsgBox "أكسس استورد البيانات المطلوبة من ملف إكسل بنجاح" End If End Sub Private Sub FileDialog_Click() With Application.FileDialog(3) .Title = "اختر ملفا لاستيراده" .Filters.Clear .Filters.Add "Excel 2007", "*.xlsx" .Filters.Add "Excel 2003", "*.xls" .AllowMultiSelect = False .InitialFileName = "" If .Show = True Then Me.FilePath.Value = .SelectedItems(1) Else MsgBox "تم إلغاء الإجراء." End If End With End Sub Private Sub tasder_Click() On Error GoTo err: DoCmd.OutputTo acOutputTable, "tbl_Items", acFormatXLSX, , False MsgBox "أكسس صدر البيانات المطلوبة إلى ملف إكسل بنجاح" Exit Sub err: MsgBox "مشكلة بتصدير الملف" End Sub بالتوفيق

يبدو أن العنصر صاحب الاسم resize غير موجود في النمودج

ظهور رسالة الخطأ في كل مرة يتم التصدير حلها وضع exit sub قبل err Exit Sub err: دور مربع المسار أنه يتم فيه نسخ مسار الملف الذي يتم اختياره للاستيراد واسم الملف الذي يتم تصديره يمكن تعديله في نافذة تحديد مكان التصدير

مفيش مشكلة خلينا في المهمة الأساسية ضع قبل end if exit sub للخروج من الاجراء وبعدها يتم الضغط على استعراض منفصلا

لا أظن وجود معادلة بسيطة ربما معادلة مصفوفات

أخي الكريم هل مازلت لم تعرف سبب الخطأ؟؟؟؟

جربت الدخول باسم المستخدم a وكلمة المرور 1 فظهر الخطأ فعلا عند هذا السطر Sheets("Daily Report").Activate ولا يوجد شيت بهذا الاسم وهذا سبب الخطأ والشيت في السطر التالي أيضا غير موجود ضمن مجموعة الشيتات

ضع قبل 1 و 0 علامة = تم تحديث الكود السابق وبالنسبة لاسم الشيت لم استخدمه بل استخدمت اسماء النطاقات المسماة في الجداول في الصفحة الثالثة فكل نوع سيارة له نطاق مسمى باسمه ومجموعة الأنواع اسمها car وهكذا

إذا قمت بتسجيل ماكرو وقمت بحفظ ورقة العمل إلى pdf ستحصل على الكود بالتوفيق

لا يوجد مشكلة يمكنك استعمال هذه المعادلة في E4 =IF(ISERR(FIND("بالساعة",A4)),C4/D4,D4/C4)

إذن لا داعي لإدخالها في المعادلة ويفضل وضعها في عمود مستقل راجع هذا المرفق معدل سيارات.xlsx

هل تختلف المعادلة في كل قطاع عن الآخر غير اختلاف الكيلو متر والساعة؟؟؟

اللجوء للكود يكون للحالات التي لا نستطيع عملها بالاكسل بطريقة عادية وبالنسبة لمطلوبك يمكنك حماية جميع خلايا الشيت بالضغط على المثلث الموجود بين العمود A والصف 1 ثم الضغط عل ctrl+1 لفتح نافذة تنسيق الخلايا ثم الذهاب الى تبويب حماية protection ثم التأشير على محمي locked ومخفي hidden ثم موافق ********* بعدها الغاء الحماية عن الخلايا التي تريدها بتحديد الخلايا ثم نفس الخطوات مع حذف علامة صح بجانب محمي،ومخفي ******* حتى الآن الشيت جاهز لتنفيذ الحماية من تبويب مراجعة review ثم حماية ورقة العمل protect worksheet وفي هذه النافذة اكتب كلمة المرور مرتين واحذف علامة الصح بجانب تحديد الخلايا المحمية select locked cells بالتوفيق

يبدو أن هذا الامر لا يتعلق بالموضوع ولا ملف الموضوع يمكنك بدء موضوع جديد حتى يكون كل موضوع له خصوصيته