اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

أوفيسنا
  • Posts

    4467
  • تاريخ الانضمام

  • Days Won

    195

كل منشورات العضو أ / محمد صالح

  1. لا يمكن الوصول لملفك على جوجل درايف
  2. حسب فهمي للصورة النهائية للمطلوب تفضل هذه أكواد استيراد واستعراض وتصدير 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 بالتوفيق
  3. يبدو أن العنصر صاحب الاسم resize غير موجود في النمودج
  4. ظهور رسالة الخطأ في كل مرة يتم التصدير حلها وضع exit sub قبل err Exit Sub err: دور مربع المسار أنه يتم فيه نسخ مسار الملف الذي يتم اختياره للاستيراد واسم الملف الذي يتم تصديره يمكن تعديله في نافذة تحديد مكان التصدير
  5. مفيش مشكلة خلينا في المهمة الأساسية ضع قبل end if exit sub للخروج من الاجراء وبعدها يتم الضغط على استعراض منفصلا
  6. أخي الكريم هل مازلت لم تعرف سبب الخطأ؟؟؟؟
  7. جربت الدخول باسم المستخدم a وكلمة المرور 1 فظهر الخطأ فعلا عند هذا السطر Sheets("Daily Report").Activate ولا يوجد شيت بهذا الاسم وهذا سبب الخطأ والشيت في السطر التالي أيضا غير موجود ضمن مجموعة الشيتات
  8. ضع قبل 1 و 0 علامة = تم تحديث الكود السابق وبالنسبة لاسم الشيت لم استخدمه بل استخدمت اسماء النطاقات المسماة في الجداول في الصفحة الثالثة فكل نوع سيارة له نطاق مسمى باسمه ومجموعة الأنواع اسمها car وهكذا
  9. إذا قمت بتسجيل ماكرو وقمت بحفظ ورقة العمل إلى pdf ستحصل على الكود بالتوفيق
  10. لا يوجد مشكلة يمكنك استعمال هذه المعادلة في E4 =IF(ISERR(FIND("بالساعة",A4)),C4/D4,D4/C4)
  11. إذن لا داعي لإدخالها في المعادلة ويفضل وضعها في عمود مستقل راجع هذا المرفق معدل سيارات.xlsx
  12. هل تختلف المعادلة في كل قطاع عن الآخر غير اختلاف الكيلو متر والساعة؟؟؟
  13. اللجوء للكود يكون للحالات التي لا نستطيع عملها بالاكسل بطريقة عادية وبالنسبة لمطلوبك يمكنك حماية جميع خلايا الشيت بالضغط على المثلث الموجود بين العمود A والصف 1 ثم الضغط عل ctrl+1 لفتح نافذة تنسيق الخلايا ثم الذهاب الى تبويب حماية protection ثم التأشير على محمي locked ومخفي hidden ثم موافق ********* بعدها الغاء الحماية عن الخلايا التي تريدها بتحديد الخلايا ثم نفس الخطوات مع حذف علامة صح بجانب محمي،ومخفي ******* حتى الآن الشيت جاهز لتنفيذ الحماية من تبويب مراجعة review ثم حماية ورقة العمل protect worksheet وفي هذه النافذة اكتب كلمة المرور مرتين واحذف علامة الصح بجانب تحديد الخلايا المحمية select locked cells بالتوفيق
  14. يبدو أن هذا الامر لا يتعلق بالموضوع ولا ملف الموضوع يمكنك بدء موضوع جديد حتى يكون كل موضوع له خصوصيته
  15. لتوظيف الكود في ملفك يمكنك حذف 8 اسطر من السطر الذي بدايته obj.settext إلى السطر قبل next وضع بدلا منهم الكود الخاص بي مع وضع متغيراتك الخاصة بالرقم والرسالة 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 مع التاكيد على احتواء الرقم على مفتاح الدولة بالتوفيق
  16. حتى يعمل ينبغي وضع قبل end if Call FileDialog_Click exit sub للخروج من الاجراء وفتح مستعرض الملفات وبالنسبة لموضوع اسم الملف فالذي يحدده المستعرض ربما لم يصلني ما تريد بدقة
  17. بالنسبة للسؤال الأول أعتقد أن المشكلة في طريقة ربط النموذج بالاستعلام حيث يمكنك إنشاء نموذج جدولي،من خلال المعالج للاستعلام وتعيد تنسيقه كما تشاء ثم تضيف قائمة باسماء الموظفين للنموذج ثم تكتب في الاستعلام مسار عنصر القائمة وفي حدث بعد التحديث للقائمة نستعمل me.requery بالنسبة للسؤال الثاني لي افتراح يمكنك اضافة حقل عدد ايام العمل وياخذ الموظف نسبة هذه الايام على عدد ايام الشهر او على 30 بصورة ثابتة فمثلا من عمل من منتصف الشهر يكون راتبه الراتب في 15 على 30 وبهذا يحصل على نصف الراتب وهكذا
  18. يمكنك تجربة هذا المرفق بإخراج آخر وتكبير حجم شريط التقدم وكتابة النسبة في المنتصف في تسمية واحدة شفافة بالتوفيق Classeur1111.rar
  19. as you like كما تحب ولكن استخدام كائن انترنت اكسبلورر افضل من الهايبر لينك والكود المختصر يمكن استخدامه في حلقات تكرارية للارسال للجميع أعطيتك الكود لتقوم بتوظيفه كما تشاء ولكنك لا تريد بالتوفيق
  20. تفضل أخي الكريم يمكنك استخدام دالة معرفة udf لجلب معيار او معيارين للفلتر في الخلية وتكون فارغة في حالة عدم تشغيل الفلتر Function AutoFilter_Criteria(Rng As Range) As String Dim str1 As String, str2 As String Application.Volatile With Rng.Parent.AutoFilter With .Filters(Rng.Column - .Range.Column + 1) If Not .On Then Exit Function str1 = CStr(.Criteria1) If .Operator = xlAnd Then str2 = " AND " & CStr(.Criteria2) ElseIf .Operator = xlOr Then str2 = " OR " & CStr(.Criteria2) End If End With End With AutoFilter_Criteria = Replace(UCase(Rng) & ": " & str1 & str2, "=", "") End Function ولاستدعائها =AutoFilter_Criteria(C7) بالتوفيق
  21. لن تجد ما يحقق غرضك مائة بالمائة ولكن يمكنك تطويع الفكرة لما يناسب ملفك لتحويل المعادلة الى كود يمكنك استعمال هذا الإجراء ويمكنك تغيير النطاق E3 كما تشاء With Range("e3") .Formula = "put your formula here" .Value = .Value End With التوفيق
  22. يا اخي كل هذا معروف الذي استوقفني في طلبك كلمة بدون تغيير لغة النظام وقولك بعد ذلك أن هذا الكود لا يغير لغة النظام بالتوفيق
  23. يمكنك استعمال المعادلة التالية في الخلية C2 =IF(B2="",DATEDIF(A2,TODAY(),"d"),DATEDIF(A2,B2,"d")) وبالنسبة للتنسيق الشرطي يمكنك استعمال المعادلة =b2="" وتطبق على العمود C بالتوفيق
  24. لا يظهر عندي أي خطأ وخصوصا انه لا يوجد كود في حدث عند الفتح
×
×
  • اضف...

Important Information