تعديل على الدالة if

[خالد القدس]

الأساتذة الأفاضل

وجدت في احدى مشاركات الأستاذ القدير يحيى هذه المعادلة

=IF(A1=E1;B1;"")

وهذا رابط المشاركة

http://www.officena.net/ib/index.php?showtopic=28430

حيث تقوم هذه الدالة بإعادة كتابة قيمة الخلية B1 في حالة إذا ما تساوت قيمة الخلية E1 مع قيمة الخلية A1

وسؤالي هل يمكن توسيع مجال E1 ليكون مثلا G1 أو I1 أو K1 أو M1 أو O1 أو Q1 أو S1

بمعنى أن تقوم الدالة بكتابة قيمة الخلية B1 في حالة إذا ما تساوت قيمة الخلية A1 مع قيمة أحدى الخلايا G1 أو I1 أو K1 أو M1 أو O1 أو Q1 أو S1

ولكم الشكر والتقدير

[بن علية حاجي]

السلام عليكم ورحمة الله

نعم أكيد أخي الكريم مثلا باستعمال الدالة OR وإليك المثال:

=IF(OR(A1=G1;A1=I1;A1=K1;A1=M1;A1=O1;A1=Q1;A1=S1);B1;"")

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

والله أعلم

تم تعديل يناير 28, 2010 بواسطه hben

[خالد القدس]

وعليكم السلام ورحمة الله وبركاته

أستاذ هبن كود رائع جدا

سأستخدمه في إجراء عمليات ترحيل

وحتما ساحتاج لبعض الاضافات عليه

أرجو أن تبقى قريبا من الموضوع

قرب الله إليك كل خير وأبعد عنك كل شر

[خالد القدس]

السلام عليكم

استاذ هبين حياك الله

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

كل الأمور سارت على ما يرام

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

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

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

وطلبي هو جعل كود استاذ طارق يكتب فقط اليوم والشهر والسنة بدون كتابة الزمن

وهذا هو الكود

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo D_Date

If Target.Column = 6 Then Cells(Target.Row, 7) = Now

If Target.Column = 8 Then Cells(Target.Row, 9) = Now


D_Date:

Application.EnableEvents = True

Application.ScreenUpdating = False

End Sub

وايضا الملف مرفق

M2010_2.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

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

بالنسبة للكود الذي قدمته يمكنك القيم بتغيير تنسيق الخلايا التي يكتب فيها التاريخ بتنسيق خاص من الشكل YYYY/MM/DD في خواص الخلايا أو يمكنك أيضا تغيير كلمة NOW في كود الأخ والأستاذ طارق (نفعنا الله من علمه) بكلمة DATE وإن شاء الله سيشتغل الكود وتنال مطلبك...

في انتظار ردك تقبل أخي الكريم تحياتي الخالصة

أخوك "بن علية"

[خالد القدس]

السلام عليكم ورحمة الله وبركاته

أستاذي القدير بن علية

الحل الثاني اشتغل تمام

ألف مليون شكر وتحية لك ولأهل جزائر الشموخ والعزة

حقيقة أنت تستحق شارتي الخضراء التي أحملها بل أكثر منها

جزاك الله خيرا وأعطاك كل ما تطلب

:clapping: