-
Posts
4476 -
تاريخ الانضمام
-
Days Won
197
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
حسب فهمي للمطلوب تم وضع معادلة تحسب المتبقي على التاريخ (إذا كان بعد تاريخ اليوم) وتنسيق المدة ب data bar بالتوفيق تنسيق المتبقي على تاريخ.xlsx
- 1 reply
-
- 2
-
-
حماية الشيت تهدف إلى حماية المعادلات والرسوم وتنسيقات الخلايا من التغيير بل وربما من مجرد التحديد وغيرها من الخصائص التي تخص الخلايا حماية المصنف تمنع المستخدم من تغيير اسماء الشيتات او ترتيبها او الإضافة أو الحذف وغيرها من الخصائص العامة للشيت بالتوفيق
- 1 reply
-
- 4
-
-
اضافه كود ارجاع صنف من المبيعات الي المخزن
أ / محمد صالح replied to Saadrafic's topic in منتدى الاكسيل Excel
تفضل هذا التعديل تم إضافة زر حذف السجل المحدد لنموذج اذن الصرف أو الايرادات ينشط هذا الزر بعد تحديد السجل المطلوب إرجاعه يتم حذف هذا الصف في جدول المبيعات أو المشتريات وتحديث حركة جرد الأصناف دون التأثير على الرصيد الافتتاحي فلا يجب تغييره أثناء المدة وتم تعديل مصدر الصف في االليست بوكس وكومبو بوكس الاصناف فلا تظهر غير الصفوف الموجودة فعلا وليس 1000 صف معظمها فارغ بالتوفيق الكافتيريا.xlsm -
اضافه كود ارجاع صنف من المبيعات الي المخزن
أ / محمد صالح replied to Saadrafic's topic in منتدى الاكسيل Excel
المطلوب غير واضح لي هل تقصد حذف سجل معين من سجلات المبيعات وإعادة رصيد الصنف إلى ما كان عليه قبل عملية البيع ؟؟؟ -
أقسام المنتدى الجديدة
أ / محمد صالح replied to محمد طاهر عرفه's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
تفضل هذا رابطه -
مساعدة في تنسيق تذييل الصفحة
أ / محمد صالح replied to Samer Abwallail's topic in منتدى الاكسيل Excel
لا يوجد طريقة تجعل التذييل يظهر مباشرةً بعد آخر صف في الجدول إلا إذا اعتبرنا تعديل اعدادات الصفحة لتتناسب مع عدد الصفحات بدون هذا السطر حلا مناسبا فمثلا ظهرت السجلات في صفحتين وسجل واحد او اثنين في الصفحة الثالثة يتم ضبط اعدادات الصفحة page setup في جزء fit to صفحة 1 بالعرض و 2 بالطول بالتوفيق- 1 reply
-
- 1
-
-
لماذا تظهر الأكود عندي هكذا بلغة غريبة
أ / محمد صالح replied to أبو محمد أشرف's topic in منتدى الاكسيل Excel
هل هذا بعد تنفيذ الحلين الموجودين في المشاركات؟ الحل الأول الحل الثاني -
مطلوب كود لاظهار رسالة عند اختيار خلية محمية
أ / محمد صالح replied to tar70's topic in منتدى الاكسيل Excel
حسب فهمي للمطلوب يمكنك إضافة هذا الشرط لحدث عن تغير التحديد If Target.Column > 6 And Target.Column < 14 And Target.Row > 2 Then For Each c In Range("f" & Target.Row & ":m" & Target.Row) If Not c.Locked Then MsgBox "يرجى إنهاء أعمال " & Cells(1, c.Column) & " أولا": Exit For Next c End If للعلم يتم جلب قيمة الصف الأول في العمود المسموح بتعديله قبل كلمة أولا بالتوفيق -
بعد فحص ملفك المشكلة ليست في كود الترحيل المشكلة في كود عرض الوقت على النموذج جرب هذا الكود في حدث تنشيط النموذج Private Sub UserForm_Activate() VBA.Calendar = vbCalHijri L2.Caption = "التاريخ الهجرى :" & Format(Date, "ddd dd mmm yyyy") VBA.Calendar = vbCalGreg L1.Caption = "التاريخ :" & Format(Date, "ddd dd mmm yyyy") Do L3.Caption = Format(Now, "hh:nn:ss AM/PM") DoEvents Loop End Sub بالتوفيق
-
المساعدة فى حل هذة المشكلة
أ / محمد صالح replied to Ashraf Atteya Abo Zaid's topic in منتدى الاكسيل Excel
ربما يوجد وظيفة إضافية add-in لها هذا التأثير لمعرفة addins من تبويب file ثم options وربما يكون السبب برنامج تسجيل الشاشة الذي تستخدمه الاحتمالات كثيرة -
مساعدة فى البحث فى عدة جداول برقم
أ / محمد صالح replied to mohamed concor's topic in منتدى الاكسيل Excel
يبدو أن حضرتك لم تقرأ هذا من قبل يجب وضع وصف دقيق ومفصل للمشكلة (تم تعديل الموضوع وإضافة الشرح الموجود بالملف) على العموم هذا ملفك بعد التعديل بملاحظة الجداول وجدت أسماءها الجدول20 والجدول21 وهكذا فتم استعمال اسم الجدول في معادلة البحث بالتوفيق بحث فى عدة جداول برقم.xlsx -
المساعدة فى حل هذة المشكلة
أ / محمد صالح replied to Ashraf Atteya Abo Zaid's topic in منتدى الاكسيل Excel
يا ريت توضح اكتر هل تقصد عند الضغط بالزر الأيمن الفأرة على خلية تظهر القائمة المختصرة للخلية وتختفي بسرعة أم ماذا ؟ ويفضل ارفاق الملف الذي تحدث به هذه المشكلة فربما يكون هذا بفعل كود من اكواد الملف -
مساعدة طريقة جلب البيانات بشرط باستخدام فيجوال بيسك vba
أ / محمد صالح replied to القول المأثور's topic in منتدى الاكسيل Excel
الفكرة في تغيير النطاق الذي سيتم وضع المعادلة له ثم تحويله إلى قيمة مثلا من b6:b1000 With Range("b6:b1000") .Formula = "=iferror(INDEX('1.xlsx'!$C:$C,MATCH(A6,'1.xlsx'!$A:$A,0)),"""")" .Value = .Value End With تم وضع دالة iferror بالتوفيق -
مساعدة طريقة جلب البيانات بشرط باستخدام فيجوال بيسك vba
أ / محمد صالح replied to القول المأثور's topic in منتدى الاكسيل Excel
المشكلة في ملفك أنها نطاقات متباعدة لو كانت كتلة واحدة من الصف مثلا 5 الى الصف 1000 سيتم كتابة المعادلة مرة واحدة ومعها القيمة في with واحدة لكن ملفك كل صفين مجموعة ثم مجموعها -
مساعدة طريقة جلب البيانات بشرط باستخدام فيجوال بيسك vba
أ / محمد صالح replied to القول المأثور's topic in منتدى الاكسيل Excel
يمكنك استعمال هذا الاجراء Sub mas_getvalues() With Range("b6:b7") .Formula = "=INDEX('1.xlsx'!$C:$C,MATCH(A6,'1.xlsx'!$A:$A,0))" .Value = .Value End With With Range("b10:b12") .Formula = "=INDEX('1.xlsx'!$C:$C,MATCH(A10,'1.xlsx'!$A:$A,0))" .Value = .Value End With With Range("b15:b16") .Formula = "=INDEX('1.xlsx'!$C:$C,MATCH(A15,'1.xlsx'!$A:$A,0))" .Value = .Value End With With Range("c6:c7") .Formula = "=INDEX('2.xlsx'!$D:$D,MATCH(A6,'2.xlsx'!$A:$A,0))" .Value = .Value End With With Range("c10:c12") .Formula = "=INDEX('2.xlsx'!$D:$D,MATCH(A10,'2.xlsx'!$A:$A,0))" .Value = .Value End With With Range("c15:c16") .Formula = "=INDEX('2.xlsx'!$D:$D,MATCH(A15,'2.xlsx'!$A:$A,0))" .Value = .Value End With وربطه بشكل أو زر ولا تنس حفظ الملف بامتداد مثل xlsb أو xlsm -
ممكن بس فين رمز كنترول الصواب Application.SendKeys("^z") ولكن تذكر أن هذا السطر يساوي Application.undo وهما معا يقومان بالتراجع خطوة واحدة قبل تنفيذ الكود vba
-
يمكنك استعمال هذا الإجراء Sub clr_with_pw() If InputBox("من فضلك أدخل كلمة المرور.", "حماية") = "1234" Then Range("A2:D15").ClearContents Range("A2").Select Else: MsgBox "كلمة المرور خطأ": End If End Sub حيث أن كلمة المرور لتنفيذ هذا الإجراء هي 1234 ويمكن استعمال ذلك الكود مع أي ماكرو بوضع اكواد الماكرو مكان السطرين الثالث والرابع وتغيير 1234 إلى كلمة المرور المطلوبة بالتوفيق
-
يا ريت توضح اكثر .... هل تقصد عند الضغط على زر معين يطلب من المستخدم إدخال كلمة مرور فإذا كانت صحيحة يتم تنفيذ الأكواد المخصصة للزر وإلا فلا ينفذ ؟؟؟؟
-
الترحيل كود vba
-
يبدو أن حضرتك لم تقرأهذا الجزء
-
كود التراجع عن آخر حركة واحدة قام بها المستخدم هو Application.undo وفي حالة التراجع عن أكثر من خطوة يفضل استعمال ctrl+z أو من شريط الوصول السريع QAT ******* أما إذا كان المقصود الرجوع إلى إصدار سابق من الملف قبل إجراء أية تعديلات فيمكن عن طريق تفعيل version history من تبويب file ثم info و رفع الملف في حساب OneDrive بالتوفيق