Mohammed Farid

السلام عليكم إخواني الكرام كيف يمكن أن أغير لغة الأرقام في الرسم البياني حيث تظهر الأرقام في المحور الرأسي باللغة الإنجليزية بينما في المحور الأفقي باللغة العربية

السلام عليكم إخواني الكرام يوجد لدي ملف به العديد من الأرقام ولكن أحتاج هذه الأرقام أحيانا باللغة الهندية وأحيانا باللغة العربية هل يوجد كود يقوم بالبحث عن قيمة معينة ويقوم بتحويل نفس القيمة إلى لغة أخرى بدلا من تحويل لغة الكتابة وكتابة الأرقام مرة أخرى Context حيث أنني ضبطت لغة الأرقام على

شكرا أخي الكريم ياسر خليل أبو البراء دمتم في حفظ الله

وجدت الحل إخواني الكرام Application.CommandBars("Edit").Reset شكرا لكم

السلام عليكم إخواني الكرام قمت بدون قصد بحذف Find Control من CommandBars عن طريق الكود التالي Application.CommandBars.FindControl(ID:=1849).Delete فهل توجد طريقة لإسترجاعه حتى أتمكن من عمل الأمر Execute شكرا لكم

شكرا جزيلا لك أخي العزيز ياسر خليل دمتم في حفظ الله.

السلام عليكم إخواني الكرام أريد كود يظهر لي قبل الطباعة رقم أول سطر في كل صفحة من صفحات الشيت ولكم جزيل الشكر

سلمت يداك

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

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

السلام عليكم إخوانى الكرام أتمنى إن كان هناك أحد يستطيع أن يحول معادلة الصفيف فى الملف المرفق إلى كود الأخ ياسر خليل جزاه الله كل خير قام بهذا بالفعل ولكن عن طريق دالة Evaluate ولكنى أريد كود يقوم بعمل معادلة داخل الخلية وليس كود يعطى قيمة فقط داخل الخلية كما فى دالة Evaluate . Formula Array.rar

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

شكرا أخى العزيز ياسر خليل كود رائع إذا سمحت هل يمكن تحويله إلى دالة

شكرا لردك أخ عبد الله أرفقت مثال بسيط للتوضيح Formula Array.rar

السلام عليكم إخوانى الكرام عندى معادلة صفيف تعمل جيدا معى ولكن عند تنفيذها بالكود تظهر لى رسالة خطأ وهى : Unable to set the FormulaArray property of the Range class حاولت تجزئة المعادلة نظرا لأن هذه الرسالة تظهر نتيجة كثرة عدد أحرف المعادلة ولكن ظهرت لى نفس الرسالة ها هى المعادلة =IF(COUNTIFS(A13:A51;">="&$D$3;A13:A51;"<" & $E$3;C13:C51;$E$5)>0;IF($D$5="آخر إذن";MAX(IF(A13:A51>=$D$3;IF(A13:A51<$E$3;IF(C13:C51=$E$5;A13:A51))));MIN(IF(A13:A51>=$D$3;IF(A13:A51<$E$3;IF(C13:C51=$E$5;A13:A51)))));"لا يوجد")

شكرا أخى ابو تراب

السلام عليكم كنت قد طلبت كود يقوم بعرض النوافذ المفتوحة ليس نوافذ إكسل فقط ولكن أى نافذه مفتوحة بجوار قاءمة إبدأ وقد تفضل أ. ياسر خليل مشكورا بإرسال ملف(يوجد بالمرفقات) يقوم بعرض كل النوافذ والبرامج التى تعمل داخل الجهاز ولى إستفسارين هما : 1- هل يمكن غلق أحد هذه النوافذ أو العمليات عن طريق الكود 2- هل يمكن إختزال النتيجة بحيث تظهر النوافذ المفتوحة دون العمليات أو البرامج الأخرى ولكم جزيل الشكر List All Windows.rar

رأيت المشاركات أخى العزيز وشكرا لك على جهدك الكريم الملفين الذين تكرمت بإرفاقهما يقومان بإظهار جميع العمليات التى تجرى داخل الجهاز بما فيها النوافذ المفتوحة شكرا جزيلا لك

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

السلام عليكم أرجو من الإخوة الكرام كود لمعرفة عناوين النوافذ المفتوحة سواء كانت هذه النوافذ خاصة بملفات إكسل أو غيرها من البرامج

جرب الكود التالى أخى العزيز Sub Protecting() Dim WS As Worksheet For Each WS In Worksheets WS.Activate For Each C In Range("A1:IV65536") If C.Interior.ColorIndex <> 6 Then C.Locked = True C.FormulaHidden = True End If Next ws.Protect Password:="AAA" Next End Sub 'هنا وضعت كلمة سر وهى "AAA" يمكنك أن تغيرها كما شئت أو أن لا تضيف كلمة سر لحماية الورقة بأن تجعل الأمر WS.Protect

السلام عليكم عندى مشكلة فى أحد الأكواد وهى : أنه يقوم بفتح ملف معين ولكن فى بعض الأحيان تظهر لى رسالة بأنه لايستطيع إيجاد الملف المطلوب ولا يتم حل تلك المشكلة إلا بعد أن أقوم بفتح الملف المطلوب يدويا وعمل حفظ بإسم له وإختيار نفس الإسم الحالى للملف وغلقه وحتى لو قمت بعمل حفظ فقط لا يعمل الكود لابد من عمل حفظ بإسم ثم إعادة تشغيل الكود

شكرا لك أستاذ عبد الله ولكن طلبى هو هل أستطيع عندما أقوم بأمر النسخ أن أخزن البيانات الخاصة بأمر النسخ مثل إسم الصفحة والمدى المنسوخ داخل متغيرات بحيث حتى لو قمت بعمل أى أمر اّخر قبل أن أقوم بلصق البيانات أستطيع أن أستدعى البيانات مرة أخرى بالرغم من حذفها من ال Clipboard .

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

السلام عليكم أريد من إخوانى الكرام كود عمل تايمر يقوم بتغيير لون خلية معينة كل فترة معينة ولتكن ثانيتين ولكم جزيل الشكر