-
Posts
4,431 -
تاريخ الانضمام
-
Days Won
191
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
يمكنك وضع المعادلة التالية في الخلية K2 =MAXIFS(D:D,A:A,H2) ويمكن سحب المعادلة لاسفل بالتوفيق
-
المساعدة فى جمع ( سهم - قيراط - فدان ) باكثر من طريقة
أ / محمد صالح replied to محمد قاسم 12's topic in منتدى الاكسيل Excel
إن شاء الله يفيدك هذا التعديل تم وضع معادلا للجمع وشروط لاختبار الاجمالي مع المساحة ملف فارغ لحساب - حصر المزروعات - للرفع.xls -
الكود ليس به اي عناصر غير userform2 & listbox1 لذا انصح بعمل compile من قائمة debug ساعتها يظهر المشكلات في المشروع كله
- 1 reply
-
- 1
-
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
الكود يأخذ من خلية رقم الموبايل قيمتها وليس معادلتها وظهور الخطأفي هذا السطر يعني تركيبة خلية الرقم برنامج الواتس آب لك حلان فيه مع رقم الموبايل: * إذا كان الرقم من نفس دولة رقم صاحب الحساب لا يحتاج الى كتابة مفتاح الدولة والصفر الاول من رقم الموبايل فمثلا نحن في مصر مفتاح الدولة +2 ورقم الموبايل مثلا يبدأ ب 010 يتم كتابة 10 ثم بقية الرقم * كتابة الرقم كاملا مع مفتاح الدولة (وهذا الذي أفضله لتفادي مشكلة كتابة الصفر قبل 10 مرتين) ويبدأ ب +2010 أرجو أن يكون اتضح الامر لاني جربت الكود في ملفك على رقمين بنفس نص الرسالة في ملفك وعمل بصورة طبيعية جدا -
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
شغال عادي جدا بعد الضغط على الزر في اكسل قلت لك نشط برنامج الواتس علشان نص الرسالة يكتب تلقائيا ويتم الضغط على انتر ولتفادي الصفوف الفارغة في نهاية الجدول يمكنك استعمال for next بدلا من جميع خلايا الجدول بعدد الصفوف المطلوبة من 6 الى كذا Sub WhatsApp() Dim Contact As String Dim Message As String Dim n As Long For n = 6 To 22 Contact = Cells(n, 8).Value Message = Cells(n, 9).Value Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.navigate "whatsapp://send?phone=" & Contact & "&text=" & Message Application.Wait Now() + TimeSerial(0, 0, 5) SendKeys "~" Set IE = Nothing Next n MsgBox "Done!" End Sub بالتوفيق -
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
العمود contact والذي يفترض به ارقام الموبايل به صفر فقط في sheet1 لان الكود عندك يقرأعمود contact من جدول tbl ومعظم العمود فارغ وهذا يظهر أخطاء في برنامج الواتس آب -
طريقة جمع الأرقام الموجودة داخل الخلية
أ / محمد صالح replied to Abu azzam's topic in منتدى الاكسيل Excel
حسب فهمي للمطلوب جرب هذه الدالة المعرفة بنسخ هذا الكود في،موديول جديد Function sumparts(num As String) As Long Dim n As Long, a As Long a = 0 For n = 1 To Len(num) a = a + Val(Mid(num, n, 1)) Next n If Len(CStr(a)) > 1 Then sumparts = sumparts(CStr(a)) Else sumparts = a End If End Function وبعد البحث في الانترنت عن هذا الأمر يمكن اختصار هذه الدالة إلى Function sumparts(num As String) As Long sumparts = num - 9 * Int((num - 1) / 9) End Function وطريقة استدعائها داخل الخلية =sumparts(A1) حيث A1 هي الخلية التي تحتوي على العدد المراد معرفة مجموع أرقامه ويمكن الوصول لهذا الهدف مباشرة في معادلة اكسل بهذه الصورة =A1-9*INT((A1-1)/9) بالتوفيق -
المشكلة في مرجع الاسم Isuzu هو الخلية الأولى فقط وليس الجدول ككل ولاصلاح ذلك من تبويب formulas المعادلات Name manager ادارة الاسماء حدد ايسوزو من قائمة الاسماء بالأعلى ثم قم بتحديد النطاق الخاص به بدون العنوان سيظهر معك في مربع الاسم في شريط الصيغة جدول10 تقريبا
-
ظهور كود خطا 09 عند فتح ملف اكسيل
أ / محمد صالح replied to Yasser M mohamed's topic in منتدى الاكسيل Excel
أخي الكريم أكيد ما دام الخطأ هو نفسه أكيد اسم الشيت غير موجود كما حدث قبل ذلك يجب ان نتعلم مما سبق اعذرني لا فائدة من كل ذلك يجب أن تختبر برنامجك بنفسك لا ان تشغل غيرك -
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
الكود عندي يعمل بصورة طبيعية جدا ربما بسبب بطء الانترنت عندك مثلا -
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
من الصفر يتم فتح برنامج واتس اب للكمبيوتر وقراءة رمز qr وتجهيز الاتصال بين واتس اب الكمبيوتر والموبايل بعد فتح البرنامج وعمله يتم فتح ملف الاكسل وتشغيل الكود بعد تشغيل الكود مباشرة تنشيط نافذة واتساب مع ملاحظة استمرار فتح تطبيق واتساب في الموبايل أثناء عملية الارسال وعدم الضغط على اي شيء بالفارة او لوحة المفاتيح في برنامج واتساب الكمبيوتر لأن أخطر جزئية في هذا الأمر قيام الكود بالضغط على زر enter بعد كتابة نص الرسالة في مكانها فإذا لم يكن المؤشر في مربع الرسالة لن يقوم بالارسال بالتوفيق -
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
في الكود الخاص بك المتغير contact يأخذ قيمة الخلية وليس معادلتها المهم كما اخبرتك اكثر من مرة ان يكون الرقم بمفتاح الدولة -
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
اخي الكريم من أخبرك بهذا الادعاء الكود يعتمد على الرقم ونص الرسالة ويرسل لجميع الأرقام بغض النظر عن كونه موجود في جهات الاتصال او لا بالتوفيق -
لا يوجد أزرار في صفحة ادخال بيانات التلميذ الا زر بحث ومسح واضافة وتعديل ولطباعة بيان القيد يمكنك الانتقال للشيت الاخير وطباعته 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, "ؤ", "و") بالتوفيق
-
كيف يتم تغيير محتوى الخلية المرتبطة بالجدول بعد الفلترة
أ / محمد صالح replied to القول المأثور's topic in منتدى الاكسيل Excel
عود حميد استاذ @بن علية حاجي معادلة رائعة -
كود تصدير واستيراد البيانات من الاكسيس الى اكسيل والعكس
أ / محمد صالح replied to abouelhassan's topic in قسم الأكسيس Access
وضعت باقي الأكواد على أساس أن الشرط الذي وضعته أنت يعمل معك بطريقة جيدة If Me.FilePath = "" Then ولكن طالما ظهر هذا الخطأ جرب دالة isnull If IsNull(Me.FilePath.Value) Then تم تعديل الكود في المشاركة السابقة بالتوفيق -
تفضل أخي الكريم تمت إضافة كود للبحث والإضافة والتعديل ومسح النتائج وتغيير اسماء الشيتات حتى يمكن استخدامها في خانة الصف بالتوفيق بيانات التلميذ.xlsb
-
ظهور كود خطا 09 عند فتح ملف اكسيل
أ / محمد صالح replied to Yasser M mohamed's topic in منتدى الاكسيل Excel
-
كود تصدير واستيراد البيانات من الاكسيس الى اكسيل والعكس
أ / محمد صالح replied to abouelhassan's topic in قسم الأكسيس Access
حسب فهمي للصورة النهائية للمطلوب تفضل هذه أكواد استيراد واستعراض وتصدير 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 غير موجود في النمودج
-
كود تصدير واستيراد البيانات من الاكسيس الى اكسيل والعكس
أ / محمد صالح replied to abouelhassan's topic in قسم الأكسيس Access
ظهور رسالة الخطأ في كل مرة يتم التصدير حلها وضع exit sub قبل err Exit Sub err: دور مربع المسار أنه يتم فيه نسخ مسار الملف الذي يتم اختياره للاستيراد واسم الملف الذي يتم تصديره يمكن تعديله في نافذة تحديد مكان التصدير -
كود تصدير واستيراد البيانات من الاكسيس الى اكسيل والعكس
أ / محمد صالح replied to abouelhassan's topic in قسم الأكسيس Access
مفيش مشكلة خلينا في المهمة الأساسية ضع قبل end if exit sub للخروج من الاجراء وبعدها يتم الضغط على استعراض منفصلا -
كيف يتم تغيير محتوى الخلية المرتبطة بالجدول بعد الفلترة
أ / محمد صالح replied to القول المأثور's topic in منتدى الاكسيل Excel
لا أظن وجود معادلة بسيطة ربما معادلة مصفوفات