(موضوع مميز) شرح الجمل الشرطية واتخاذ القرارات في ال vba بالكامل من الالف للياء

[zxzxzxz]

شكرا لك اخي الحسامي ...

فعلا هذا هو المطلوب ... لكن واجهتني مشكلة وهي :

ماذا لو كانت الخلية A1 مربوطة بخلية اخرى او ببرنامج خارج الاكسل ... فان الكود لا يعمل عند تغير القيمة

فالكود يعمل بجدارة حينما اقوم بادخال القيمة يدوياً للخلية A1

مرفق مثال

تحياتي لك وشكرا لك على ابداعك

3333.zip

[الحسامي]

السلام عليكم

اخي الكريم لا يوجد اكواد قياسية تصلح لكل زمان ومكان

الاكواد حسب طبيعة البرنامج وحسب ماريد ربطة من الخلايا

والنطاقات والكود كان مربوط بالخلية a1 فقط

تم التعديل على اساس التنفيذ بناءا على الخليتين a1 و l1

مرفق ملف

[zxzxzxz]

هلا اخي الحسامي

شكرا لك على التعديل ... لكن انا لا اريد ان نذكر خلية L1 بالكود ....

اريد ان يكون الكود مبني على متغيرات الخلية A1 فقط ...

اذا هذا لا يمكن عمله ...

فهل بالامكان ان نلغلي خلية A1 ونضع بالكود هذه الجملة (حدث الصفحة كل دقيقة)

بحيث ينظر الكود الى ساعة الكمبيوتر وكل دقيقية يقوم بعملية النسخ ؟؟؟

تحياتي لك

[zxzxzxz]

اخي الحسامي

بعد البحث على النت حصلت الكود المطلوب ويقوم بنسخ الخلية D7 الى الخلية C7 كل دقيقة

الكود هو

Dim TimeToRun


Sub auto_open()

    Call ScheduleCopyPriceOver

End Sub


Sub ScheduleCopyPriceOver()

    TimeToRun = Now + TimeValue("00:01:00")

    Application.OnTime TimeToRun, "CopyPriceOver"

End Sub


Sub CopyPriceOver()

    Calculate

    Range("c7").Value = Range("d7").Value

    Call ScheduleCopyPriceOver

End Sub


Sub auto_close()

    On Error Resume Next

    Application.OnTime TimeToRun, "CopyPriceOver", , False

End Sub

حاولت ادمج هذا الكود مع الكود الذي كتبته مشكورا لكن لم اوفق الان ما اريد عمله هو التالي:

If A1=1

Then every minute do:

Copy(F2:I2)

Paste(F3:I3)

Copy(B1:E9)

Paste(B2:E10)

Copy(F3:I3)

Paste(B1:E1)

If A1=0 do nothing

اتمنى ان اجد منك المساعدة ولك مني كل الشكر والتقدير

OK.zip

تم تعديل يونيو 21, 2010 بواسطه zxzxzxz

[الحسامي]

السلام عليكم

اخي الكريم مرفق ملف يتم تنفيذ الكود كل دقيقة بمجرد فتح الملف

[zxzxzxz]

شكرا لك اخي الحسامي

لقد استفدت منك كثيرا

تحياتي لك

تم تعديل يونيو 22, 2010 بواسطه zxzxzxz

[منياوى]

جزاكم الله كل خير

[حمود أمين]

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

[يوسف عطا]

السلام عليكم جميعاً

عماد بك

تحياتى وتقديرى لك ولعلمك الغزير

ذادك الله من علمه

ماذا نفعل فى حالة لو كنا نريد تطبيق الكود على بيانات عمود

مثلاً

لو تحقق الشرط فى الخلية بى 1 و بى 2 و بى 3 إلى بى 100

تظهر النتيجة فى الخلية جى 1 و جى 2 و جى 3 إلى أخره حتى جى 100

علماً بأن تكرار الكود لعدد كبير من المرات بالطريقة التى تجعل الشاشة تومض مع كل تكرار أمر غير مستحب

أرجو أن تكون وجهة نظرى وسؤالى واضحين

دمت بخير

[محمد مصطفى ابو حمزة]

موضوع اكثر من رائع

يجعله الله فى ميزان حسناتك

[Omar_Kreem]

بارك الله فيك أستاذنا الفاضل عماد، وجزاك خيرا

[أبو العاصم]

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

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

[باسنت العمري]

أخي / جزاك الله خير وجعل عملك في ميزان حسناتك وبارك الله فيك

[عجول]

بارك الله فيك اخي

[zine pef]

بركة الله فيك أخي عماد

جمل شرطية صغيرة لكن دوخت رأسي مرة مع فيجوال.ب6

على العموم أخي عماد شرح وافي و مفهوم

جزاك الله حسنات

[أبو محمد أشرف]

بارك الله فيك أستاذ عماد

[ابراهيم سكيك]

جزاك الله خير و بارك الله فيك

[MAHMOUD ALI YOUSSEF]

السلام عليكم

افكار رائعة

جزاكم الله كل خير :dance1:

[محمد توبه]

مشكوووووووووووووووووووووووووووووووووووووووور بس فين الرابط

[رعد العزاني]

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

[ahmed saif]

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

[رعد العزاني]

شكرا جزيلا اخي عماد وندعوا الله ان يبارك لك بعمرك وعلمك

[يوسف عطا]

السلام عليكم جميعاً

عماد بك

تحياتى وتقديرى لك ولعلمك الغزير

ذادك الله من علمه

ماذا نفعل فى حالة لو كنا نريد تطبيق الكود على بيانات عمود

مثلاً

لو تحقق الشرط فى الخلية بى 1 و بى 2 و بى 3 إلى بى 100

تظهر النتيجة فى الخلية جى 1 و جى 2 و جى 3 إلى أخره حتى جى 100

علماً بأن تكرار الكود لعدد كبير من المرات بالطريقة التى تجعل الشاشة تومض مع كل تكرار أمر غير مستحب

أرجو أن تكون وجهة نظرى وسؤالى واضحين

دمت بخير

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

[حمادة عمر]

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

 

اضم صوتي للاستاذ / يوسف عطا .... اعاده الله للمنتدي بخير وسلام

نرجو اعادة فتح الموضوع من قبل احد اساتذتنا لكل المبتدئين والاعضاء واستكمال السلسلة

حيث ان خبراؤنا اقدر من يقوم بذلك

وحيث ان القدير / الحسامي غائب عنا لفترة

[arsalan]

في 6/12/2010 at 17:02, الحسامي said:

السلام عليكم

ارفق لكم ملفات الموضوع كاملة بعد مشكلة المرفقات التي حدثت في المنتدى

HOSAMI IF THEN.rar

if then else.rar

if then else(hosami).rar

if then elseIF....المتعددة والمتشابكة.rar

case ...statment.rar

choose ...statment.rar

switch ...statment.rar

الجمل الشرطية كاملة (الحسامي).rar