بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
4,431 -
تاريخ الانضمام
-
Days Won
191
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
ظهور كود خطا 09 عند فتح ملف اكسيل
أ / محمد صالح replied to Yasser M mohamed's topic in منتدى الاكسيل Excel
أخي الكريم هل مازلت لم تعرف سبب الخطأ؟؟؟؟ -
ظهور كود خطا 09 عند فتح ملف اكسيل
أ / محمد صالح replied to Yasser M mohamed's topic in منتدى الاكسيل Excel
جربت الدخول باسم المستخدم a وكلمة المرور 1 فظهر الخطأ فعلا عند هذا السطر Sheets("Daily Report").Activate ولا يوجد شيت بهذا الاسم وهذا سبب الخطأ والشيت في السطر التالي أيضا غير موجود ضمن مجموعة الشيتات -
ضع قبل 1 و 0 علامة = تم تحديث الكود السابق وبالنسبة لاسم الشيت لم استخدمه بل استخدمت اسماء النطاقات المسماة في الجداول في الصفحة الثالثة فكل نوع سيارة له نطاق مسمى باسمه ومجموعة الأنواع اسمها car وهكذا
-
كود حفظ الصفحة النشطة PDF
أ / محمد صالح replied to Elsayed A Eldiasty's topic in منتدى الاكسيل Excel
إذا قمت بتسجيل ماكرو وقمت بحفظ ورقة العمل إلى pdf ستحصل على الكود بالتوفيق -
كود يمنع الوقف او تحديد خلايا ماعد الخلايا المحددة
أ / محمد صالح replied to هشام جمال الدين's topic in منتدى الاكسيل Excel
اللجوء للكود يكون للحالات التي لا نستطيع عملها بالاكسل بطريقة عادية وبالنسبة لمطلوبك يمكنك حماية جميع خلايا الشيت بالضغط على المثلث الموجود بين العمود A والصف 1 ثم الضغط عل ctrl+1 لفتح نافذة تنسيق الخلايا ثم الذهاب الى تبويب حماية protection ثم التأشير على محمي locked ومخفي hidden ثم موافق ********* بعدها الغاء الحماية عن الخلايا التي تريدها بتحديد الخلايا ثم نفس الخطوات مع حذف علامة صح بجانب محمي،ومخفي ******* حتى الآن الشيت جاهز لتنفيذ الحماية من تبويب مراجعة review ثم حماية ورقة العمل protect worksheet وفي هذه النافذة اكتب كلمة المرور مرتين واحذف علامة الصح بجانب تحديد الخلايا المحمية select locked cells بالتوفيق -
يبدو أن هذا الامر لا يتعلق بالموضوع ولا ملف الموضوع يمكنك بدء موضوع جديد حتى يكون كل موضوع له خصوصيته
-
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
لتوظيف الكود في ملفك يمكنك حذف 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 مع التاكيد على احتواء الرقم على مفتاح الدولة بالتوفيق -
كود تصدير واستيراد البيانات من الاكسيس الى اكسيل والعكس
أ / محمد صالح replied to abouelhassan's topic in قسم الأكسيس Access
حتى يعمل ينبغي وضع قبل end if Call FileDialog_Click exit sub للخروج من الاجراء وفتح مستعرض الملفات وبالنسبة لموضوع اسم الملف فالذي يحدده المستعرض ربما لم يصلني ما تريد بدقة -
طلب نصيحه ومساعدة لتجهيز رواتب الشهر وايضا حل مشكله
أ / محمد صالح replied to عمر ضاحى's topic in قسم الأكسيس Access
بالنسبة للسؤال الأول أعتقد أن المشكلة في طريقة ربط النموذج بالاستعلام حيث يمكنك إنشاء نموذج جدولي،من خلال المعالج للاستعلام وتعيد تنسيقه كما تشاء ثم تضيف قائمة باسماء الموظفين للنموذج ثم تكتب في الاستعلام مسار عنصر القائمة وفي حدث بعد التحديث للقائمة نستعمل me.requery بالنسبة للسؤال الثاني لي افتراح يمكنك اضافة حقل عدد ايام العمل وياخذ الموظف نسبة هذه الايام على عدد ايام الشهر او على 30 بصورة ثابتة فمثلا من عمل من منتصف الشهر يكون راتبه الراتب في 15 على 30 وبهذا يحصل على نصف الراتب وهكذا -
يمكنك تجربة هذا المرفق بإخراج آخر وتكبير حجم شريط التقدم وكتابة النسبة في المنتصف في تسمية واحدة شفافة بالتوفيق Classeur1111.rar
-
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
as you like كما تحب ولكن استخدام كائن انترنت اكسبلورر افضل من الهايبر لينك والكود المختصر يمكن استخدامه في حلقات تكرارية للارسال للجميع أعطيتك الكود لتقوم بتوظيفه كما تشاء ولكنك لا تريد بالتوفيق -
كيف يتم تغيير محتوى الخلية المرتبطة بالجدول بعد الفلترة
أ / محمد صالح replied to القول المأثور's topic in منتدى الاكسيل Excel
تفضل أخي الكريم يمكنك استخدام دالة معرفة 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) بالتوفيق -
مساعدة فى تحويل المعادلات إلى أكواد
أ / محمد صالح replied to m.shokry's topic in منتدى الاكسيل Excel
لن تجد ما يحقق غرضك مائة بالمائة ولكن يمكنك تطويع الفكرة لما يناسب ملفك لتحويل المعادلة الى كود يمكنك استعمال هذا الإجراء ويمكنك تغيير النطاق E3 كما تشاء With Range("e3") .Formula = "put your formula here" .Value = .Value End With التوفيق -
تخصيص الكتابة بالعربية لأحد حقول النموذج
أ / محمد صالح replied to عمر طاهر's topic in قسم الأكسيس Access
يا اخي كل هذا معروف الذي استوقفني في طلبك كلمة بدون تغيير لغة النظام وقولك بعد ذلك أن هذا الكود لا يغير لغة النظام بالتوفيق -
يمكنك استعمال المعادلة التالية في الخلية C2 =IF(B2="",DATEDIF(A2,TODAY(),"d"),DATEDIF(A2,B2,"d")) وبالنسبة للتنسيق الشرطي يمكنك استعمال المعادلة =b2="" وتطبق على العمود C بالتوفيق
-
ظهور كود خطا 09 عند فتح ملف اكسيل
أ / محمد صالح replied to Yasser M mohamed's topic in منتدى الاكسيل Excel
لا يظهر عندي أي خطأ وخصوصا انه لا يوجد كود في حدث عند الفتح -
مشكلة ظهور خطأ run time error -2146697208 (800c0008)
أ / محمد صالح replied to hhez2005's topic in منتدى الاكسيل Excel
هل تستعمل تطبيق واتساب للكمبيوتر أعتقد هذا الكود لا يستعمل web.whatsapp جرب هذا الكود المختصر للارسال في حالة تثبيت البرنامج في الكمبيوتر Sub whatsappme() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.navigate "whatsapp://send?phone=0000000000&text=message" Application.Wait Now() + TimeSerial(0, 0, 5) SendKeys "~" Set IE = Nothing End Sub مع استبدال الأصفار بالرقم المطلوب مع مفتاح الدولة وكلمة message بنص الرسالة بالتوفيق -
جرب هذا الكود لإجراء الترحيل Sub migration() Application.ScreenUpdating = 0 lr1 = Sheets("migration").Cells(Rows.Count, 2).End(xlUp).Row lr2 = Sheets("ALL DATA").Cells(Rows.Count, 2).End(xlUp).Row Sheets("migration").Range("b4:n" & lr1).Copy Sheets("ALL DATA").Select Sheets("ALL DATA").Range("B" & lr2 + 1).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = 0 Sheets("ALL DATA").Range("B4").Select Sheets("migration").Select For n = 4 To lr1 Dim cl As Range, inrange As Boolean For Each cl In Range(Cells(n, 2)) If cl.Value = Cells(n, 2).Offset(0, 4).Value Then inrange = True Next If Not inrange Then Range(Cells(n, 2)).Cells(Range(Cells(n, 2)).Cells.Count).Offset(1) = Cells(n, 2).Offset(0, 4).Value Next n Range("b4:n52").ClearContents Range("B4").Select Application.ScreenUpdating = 1 MsgBox "Done" End Sub بالتوفيق
-
رائع جدا تطبيقك للفكرة ويمكنك استعمال هذا الكود فقط في النموذج Private Sub UserForm_Activate() minutes = 0.1 For a = 1 To 100 timer_avant = Timer Do While Timer < timer_avant + minutes DoEvents Me.Im1.Width = a * 474 / 100 Me.Nour1.Caption = a Loop Next Me.Hide End Sub لاحظ التغيير في عرض التسمية im1.width حيث 474 هو العرض الأساسي للتسمية ونحن قسمنا 474 على 100 ثم ضربنا في a لنحصل على العرض الكامل في نهاية العداد a بالتوفيق
-
تخصيص الكتابة بالعربية لأحد حقول النموذج
أ / محمد صالح replied to عمر طاهر's topic in قسم الأكسيس Access
بل يغير لغة النظام وللتأكيد غير لغة النظام إلى لغة مختلفة وليكن الإنجليزية ثم افتح النموذج وضع المؤشر في الحقل الذي حددت خاصية لوحة المفاتيح له رقم 3 (اللغة العربية المملكة العربية السعودية) وانظر إلى شريط اللغة في شريط المهام ماذا تلاحظ ؟؟ تغير اللغة من الإنجليزية إلى العربية بالتوفيق -
تخصيص الكتابة بالعربية لأحد حقول النموذج
أ / محمد صالح replied to عمر طاهر's topic in قسم الأكسيس Access
هل هذا الكود لا يغير لغة النظام؟؟؟ هذه الخاصية تحدد لغة الكتابة لهذا الحقل (مربع النص) فبمجرد وصول التركيز له يغير لغة النظام إلى اللغة المحددة في الخاصية