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 أو عند إعادة فتح الملف مرة أخرى أو كلما أجرينا تعديل

ولكم جزيل الشكر