أ / محمد صالح

لعمل ما تريد يمكنك تغيير الماكرو mas إلى ما يلي Sub mas() If Not Intersect(ActiveCell, Range("g5:h17")) Is Nothing Then ActiveCell = Format(Now, "hh:nn:ss ampm") End If End Sub وفقنا الله وإياكم لكل ما يحب ويرضى

لا أدري سبب ظهور الخطأ عندك الملف يعمل 100% عندي ولكن لاحظ أنه تم إضافة هذا الكود عند فتح المصنف Private Sub Workbook_Open() Application.OnKey "{f1}", "mas" End Sub وهو يعني تنشيط الماكرو mas عندالضغط على زر f1 وكذلك تم إضافة موديول جديد به الإجراء mas Sub mas() ActiveCell = Format(Now, "hh:nn:ss ampm") End Sub ومعناه وضع الوقت الحالي بتنسيق الساعة والدقيقة والثانية وصباحا/مساءا في الخلية النشطة

بعد إذن الحبيب ياسر يمكنك كتابة المسافة بين الدائرتين مثلا في الخلية A5 ثم في الخلية D5 نكتب هذه المعادلة =((2*22/7*D2/2)-(D3*D4))/D4 لتظهر لنا المسافة بين الدوائر الصغيرة الموجودة على محيط الدائرة الكبيرة الخارجية ويمكنك نسخ المعادلة أفقيا إلى الخلية E5 لتحسب للدائرة الصغيرة الداخلية

تسهيلا على مدخل البيانات سواء كان يجيد أو لا يجيد كتابة نظام الوقت 24 تم تعديل الملف بحيث يتم الضغط على زر F1 من لوحة المفاتيح ليتم كتابة الوقت الحالي في الخلية النشطة تم إضافة ماكرو لكتابة الوقت الحالي في الخلية النشطة واستدعاء الماكرو مع الضغط على f1 عند فتح المصنف بإذن الله يكون المطلوب mas_ضبط وقت.rar

الملف المرفق ليس به ارقام في العمود f أو g والمطلوب غير واضح

السلام عليكم ورحمة الله وبركاته كا عام والجميع بخير لعمل المطلوب يمكنك استخدام الأمر التالي Application.OnKey(Key, Procedure) مثال Application.OnKey "{Down}", "DownTen" حيث أن الجزء الأول كود مفتاح السهم السفلي والجزء الثاني اسم الإجراء الذي يتم عن الضغط على المفتاح المذكور وهذه أكواد الأزار Key Code BACKSPACE {BACKSPACE} or {BS} BREAK {BREAK} CAPS LOCK {CAPSLOCK} CLEAR {CLEAR} DELETE or DEL {DELETE} or {DEL} DOWN ARROW {DOWN} END {END} ENTER (numeric keypad) {ENTER} ENTER ~ (tilde) ESC {ESCAPE} or {ESC} HELP {HELP} HOME {HOME} INS {INSERT} LEFT ARROW {LEFT} NUM LOCK {NUMLOCK} PAGE DOWN {PGDN} PAGE UP {PGUP} RETURN {RETURN} RIGHT ARROW {RIGHT} SCROLL LOCK {SCROLLLOCK} TAB {TAB} UP ARROW {UP} F1 through F15 {F1} through {F15} ولعمل تجميعة مفاتيح يمكنك استخدام ما يلي To combine keys with Precede the key code by SHIFT + (plus sign) CTRL ^ (caret) ALT % (percent sign) مثال SHIFT+CTRL+RIGHT ARROW Application.OnKey "+^{RIGHT}", "prosedure" تقبل الله منا ومنكم صالح الأعمال وكل عام أنتم بخير

آمين أنا وأنت وجميع المسلمين أستاذ ياسر يسر الله لك أمورك وفتح لك أبواب نعمته ورحمته وبنى لك قصرا في الجنة

بفضل الله تم تحديث برمجة الصفحة : * استخدام خاصية الموقع location لتحديد خط الطول ودائرة العرض وفارق التوقيت * عرض خريطة للموقع * إمكانية البحث عن أي مكان في العالم وبأي لغة * عرض مواقيت الصلاة بصورة شهرية * إمكانية التنقل لجميع الشهور وكذلك التنقل بين الأعوام وهذا رابط الصفحة الجديد http://officena.net/team/mas/monthlyprayers.html بانتظار آارئكم ومقترحاتكم

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

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

الآن وبعد غياب غير قصير موعدنا مع الحلقة الخامسة من دورة أساسيات إكسل 2013 من تحت الصفر إلى الاحتراف وفيها: التعرف على مقبض التعبئة fill handle إظهار وإخفاء مقبض التعبئة جميع حالات مقبض التعبئة ونسخ المعادلات استعمال وإضافة قوائم مخصصة custom lists استعمال علامة الدولار في تثبيت النطاقات في المعادلات ولا تنسوني من صالح دعائكم ولا تنسوا تشجيعكم لنا يدفعنا للاستمرار من أجلكم اضغط هنا للاشتراك في القناة http://www.youtube.com/user/ostazmas?sub_confirmation=1 مع تحياتي أ / محمد صالح فيس بوك http://adf.ly/1EbLvW جوجل بلس http://adf.ly/1DjBfI شير x الخير فزكاة العلم نشره

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

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

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

ساعتها تستعمل الشرط مع if if m=value then وهذه القيم الراجعة من الأزار في الرسالة Constant Value OK 1 Cancel 2 Abort 3 Retry 4 Ignore 5 Yes 6 No 7

شكرا لمرورك الكريم أستاذ صلاح ويالنسبة لموضوع الترجيل فالمنتدى مليء بالدرر التي وفت وزادت

معادلة الأستاذ ياسر صحيحة ولكن يبدو أنك لم تضغط على CTRL+SHIFT+ENTER حتى تحولها لمعادلة صفيف

الحمد لله بخير كل عام أنتم بخير لم أفهم ما بعد لكن برجاء التوضيح أكثر ما في المعادلة من عيوب من وجهة نظرك حيث أنها تقارن بين القيم الموجودة في العمود k بالقيمة الموجودة في العمود b ثم تأتي بأكبر قيمة في العمود l

لتنفيذ ما طلبت ينبغي نقل جميع (الشيتات) المرتبطة داخل الملف الحالي للعمل فمثلا تكون المعادلة بها مسار الملف ثم الشيت ثم الخلايا عدل المعادلة لتصبح اسم الشيت والخلايا فقط وذلك بعد نسخ أو نقل الشيتات للملف الحالي

المعادلة صحيحة ولا تعطي خطأ وللحصول على أكبر سعر مطابق للبحث يمكنك استعمال هذه المعادلة في الخلية F8 =MAX(IF($K$8:$K$130=B8,$L$8:$L$130)) ولا تنس أن تضغط CTRL+SHIFT+ENTER

لو أمكن توضح أكتر وبالتفصيل

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

كل عام أنتم بخير أخي الكريم سليم سلمك الله من كل سوء أحب الفوازير جدا ولكن بداية اللغز غير واضحة حيث يوجد كتابة في الخلية 3و5و6 فقط وليسوا 4 خلايا كما هو مطلوب وهل المطلوب استعمال النطاق مرة أخرى؟ الطبيعي أن نجميع أول 4 صفوف غير فارغة ثم نبدأ من الخامس ونعد أربعة أخرى لا أن نبدأ من الثاني ونكرر الثاني والثالث والرابع برجاء التوضيح

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

تفضل أخي الكريم هذا نفس جدول الأخ علاء رسلان ولكن بطريقة أخرى (معادلة عادية ليست معادلة صفيف) وأعتقد أنها بالمرونة لعمل ما طلبته في جدول الضرب2.rar