NAWAS

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

جزاك الله خير أخي على كفيت ووفيت

السلام عليكم لدي بيانات متفرقة في ملف إكسل على الشكل التالي المبلغ 150000 التاريخ 01-01-2006 المرجع IBY الرقم RDY022006 وأريد البحث بإستخدام الرقم أي أن تكون هناك معادلة كـ vlookup عندما أضع الشرط RDY02206 يعطيني المبلغ 150000 يعني يبحث وإذا وجد الرقم يتحرك للأعلى ويعطيني الموجود في الخلية الثالثة فوق الرقم أرجوا ان يكون الشرح وافياً وجزاكم الله خيراً

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

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

السلام عليكم انظر أخي الملف المرفق NAWAS

السلام عليكم أعتقد أن لدي ملف يحوي مايريده الأخ الكريم لكن ليمهلني حتى أبحث عنه

السلام عليكم يمكنك استخدام الدالة Count حيث أنها تعد الخلايا المحتوية على قيم وليست فارغة

الأخ حسام قد تكون المتوالية حسابية وليس شرط بأن تكون هندسية وشكراً

السلام عليكم سأجيب على حسب المعلومات التي لدي 1- بالنسبة للسلسلة الخطية فهي عبارة عن أرقام متتابعة أو أيام بترتيب أو بنظام معين مثل 1-2-3-4-5 3-5-7-9 السبت - الأحد - الإثنين 2- أما سلسلة خطية نموها 0.8 فمعناها أن الخلية تزيد عن سابقتها بمقدار 0.8 مثل 1 - 1.8 - 2.6 - 3.4 وهكذا 3- لعمل مثل هذه المعادلة بقاعدة IF سأرفق ملف في المرفقات الملف المرفق والسلام

السلام عليكم الأخ gebmob في الملف المرفق استخدمت جدول محوري عوضاً عن استخدام دالة الـ Vlookup أرجوا أن يكون مفيداً الملف بعد التعديل

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

الأخ العزيز ما ستفعله هو كالآتي: 1 كلمة المتجاوز التي في الخلية A71 ستغيرها إلى تجاوز 2 بعدها ستقوم بإدراج معادلة في الخلية B71 لكي تحسب لك المتجاوز 3 المعادلة ستكون كالآتي : =sumif($F$6:$F$67,$A$71,$A$6:$A$67) 4 ستقوم المعادلة بإحتساب التجاوز تلقائياً ويمكنك أن توسع مدى المعادلة والسلام

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

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

نعم أستاذ محمد التواريخ مرتبة بشكل تصاعدي وجزاك الله خيراً

السلام عليكم كيف أستطيع أن أطبق طريقة الوارد أولاً صادر أولاً في الإكسل الطريقة عبارة عن ان مايصل إلى المخازن أولاً هو ما سيتم الصرف منه أولاً واحتساب التكلفة على هذا الأساس فإذا كان معي الكميات التالية 100 كيلو بقيمة 100 ريال 50 كيلو بقيمة 150 ريال 200 كيلو بقيمة 175 ريال وصرفت من المخازن 200 كيلو فستكون كالآتي 100 كيلو بقيمة 100 ريال 50 كيلو بقيمة 150 ريال 50 كيلو بقيمة 43.75 ريال بإجمالي 293.75 ريال أريد الطريقة بحيث إذا ادخلت الكميات المنصرفة يحتسب القيم آلياً وشكراً

شكراً لك أستاذ محمد ولكن ما أريده هو أنني سأعتبر أن الخلية B1 تحتوي على عنوان المرسل إليه والخلية B3 تحتوي على الموضوع والخلية B5 تحتوي على الرسالة والمطلوب هو أن يرسل الكود الرسالة عن طريق برنامج الإيميل الإفتراضي مباشرة أي بدون أن أضغط على زر Send في برنامج الإيميل ( ولنفترض أننا نستخدم OutLook ) ولكم جزيل الشكر

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

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

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

السلام عليكم عندما نريد أن نكون معادلة في الـ VBA ومن ثم نستدعيها فعلينا أن نستخدم Function () ما تريد أن تعرفه End Function وذلك لكي يحتفظ الكود الذي كتبته بالقيمة المطلوبة التي تريد أن تصل إليها ولا نستخدم SUB لأنها تقوم بإجراء ماتريده ومن ثم ينتهي تأثيرها ولا تتنفذ مرة أخرى إلا إذا إستدعيتها من قائمة الماكرو أو عملت لها زر وربطتها بالماكرو ولكن Function تحتفظ بما تم تعريفة وبعد ذلك ستجد ما عرفته موجود في دوال الإكسل Function Paste وما قمت بتعريفه هو أنه في حال احتواء الخلية على أي نص والذي تم تعريفه مسبقاً ash1 As String فإنه سيتم استدعاء الدالة ash والتي تعطينا الوقت والتاريخ وذلك حسب التعريف ash = Date & Time إلى هنا ستعطينا الدالة نفس التأثير للمعادلة Now() فلهذا أضفت السطر application.screenupdating = false وذلك لكي يقوم بتعطيل خاصية التحديث التلقائي كلما حدث أي تغيير في البيانات آمل أن أكون قد حققت مطلبك يا سيد أنور والسلام

السلام عليكم هل هناك معادلة أو كود أستطيع من خلاله أن أحصل على رقم اللون الموجود في خلية معينة أي إذا كانت الخلية A1 تحتوي اللون الأسود فإن المعادلة الموجودة في الخلية B1 سترجع لي القيمة 1 ولكم جزيل الشكر

السلام عليكم الحمد لله لقد توصلت إلى الحل وهو كالآتي نعرف دالة جديدة عن طريق الـ VB والكود كالآتي Function ash(ash1 As String) If Application.WorksheetFunction.IsText(ash1) Then ash = Date & Time End If Application.ScreenUpdating = False End Function ومن داخل الإكسيل نستدعي الدالة وتحديد الخلية التي نريد أن نعرف متى تعدلت وعند تطبيق المعادلة سيعطينا وقت إدخال هذه المعادلة وسيتغير هذا الوقت فقط في حال التعديل أو الإلغاء وشكراً

السلام عليكم لدينا عدة أوراق إكسيل وندخل عليها بيانات بإستمرار وأحياناً تتغير البيانات المدخلة فحاولت أن أستخدم الدالة التالية لمعرفة آخر تغيير على الخلية أو الخلايا IF(isblank(A1),””,Now()) ونجحت بأن أعطتني الوقت والتاريخ فعلاُ عند حدوث التعديل أو الإدخال ولكن المشكلة هي أن العمود الذي يحتوي على المعادلة يتغير فيه الوقت كلما تمت عملية إدخال أو تعديل جديدة أي أن الوقت يتحدث بإستمرار فكيف أستطيع أن أجعل وقت التغيير أو الإدخال كلاً على حده ولا يتحدث إلا عند حصول تغيير آخر وليس بضغط F9 أو عند إعادة فتح الملف مرة أخرى أو كلما أجرينا تعديل ولكم جزيل الشكر