سؤال فى VBA

[يحيى حسين]

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

أستاذنا الكريم أبو تامر

يا ريت لو تشرلحنا For...next

و الجوانب المتعلقة بها و طرق استخدامها

و دمتم بود

[شيروان]

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

اخي العزيز ان الامر (for...next)تستخدم لتكرار مجموعة من الخطوات التي تقع ما بين for وnext.. وطريقة استخدامه ليست صعبة.. اليك المثال التالي

for i=1 to 5

x=x+i

next

اي ان العمل هنا يتم في الخطوة الاولى والتي يساوي فيها قيمة I الى واحد ويقوم في الخطوة التالية جمع قيمة x مع I والتي تساوي (1) عندما تصل الى Next والتي من المفروض ان تنتهي قيمته عند الرقم (5) اي التالي، وهي الرقم (2) لان تالي الرقم واحد هو اثنان، ويقوم بنفس الخطوة، اي جمع قيمة I والتي في هذه الخطوة تساوي 2 ويقوم بجمعها مع قيمة X والتي بدوره تحتوي على الرقم واحد، اي القيمة السابقة لـ I وهكذا يستمر الخطوات الى ان تصل الى القيمة (5) عندها تنتهي الحلقة وتخرج منها وتنفذ الخطوات التي تليه..

ارجوا ان سهلت عليك الامر

[شحادة بشير]

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

لقد سبثتني أخي الحبيب justice

ونتمنى من الأستاذ أبو تامر توضيحها لنا

كما قال الأخ أبو تامر في أحد مواضيعه: لا يخلو منها أي كود.

الاستفسار: أين نطبقها ومتى نطبقها؟

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

فبأسطر معدودة قمت بتلبية الطلب وبهذه الدالة

الكثير الكثير من الأكواد تشتمل على هذه الحلقة الدوارة

بقي أن تبسطها لنا

أسأل الله أن يجعلك مباركاً أينما كنت

حياك الله

[يحيى حسين]

أخي شيروان شكرا لك على هذا التوضيح الجميل

و الاخ ابو اكرم انا معك نتمنى من الاستاذ ابو تامر شرحها لنا باسلوبه المعمق

و مرة اخرى شكرا لكم

[يحيى حسين]

أخي أبو تامر

شكرا جزيلاً لك على هذ الرد الرائع و الجميل و جعله الله في ميزان حسناتك

و شرحك أكثر من رائع و أكثر من مميز

نسال الله العلي القدير أن يبارك لك في علمك و مالك و نفسك و ولدك

و هذا هو رابط رد الأستاذ أبو تامر

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

و دمتم بود

[شحادة بشير]

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

للتميز والإبداع عنوان هو: أبو تامر

ما شاء الله عليك

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

ولكن لدي سؤال أخ أبو تامر، ماذا عن إدخال النصوص عن طريق هذه الدالة؟ نريد ولو مثال واحد بسيط.

لنفرض لديك فورم مؤلف من خانتين الأول لإدخال الرقم والثانية لإدخال الاسم وزر موافق

وعندما تكتب أي رقم واسم في الفورم فإنه يضعه في A1 والاسم يضعه في B1

في المرة التالية عندما تكتب رقم فإنه سيجد الخانة مشغولة فسيضعه في A2 والاسم في B2 وهكذا ..

سؤال آخر: في مشاركتك الرائعة هنا

http://www.officena.net/ib/index.php?showt...;ات

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

Set Rng = Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp))

وألف شكر لك

تم تعديل مارس 8, 2008 بواسطه أبو أكرم

[ابو اسامة العينبوسي]

السلام عليكم

اخى الكريم هذا السطر يحدد المدى المسمى Ran بالخلايا التى تبدا من A1 الى اخر خلية خليه غير فارغة فى العمود A .

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

الاستاذ ابو تامر هنا كتب التالى

اجعل المدى المسمىRng =

range((من)range("a1")(وهو الحد الاول من المدى وهو ثابت),Cells(Rows.Count, 1).End(xlUp))  (وهو الحد المتغير من المدى)
rows.count = 65536
1 = العمود الاول وهو A  
اذن الكود سيذهب الى الخليه التى عنوانها cells(65536,1) او  range(a65536)
هنا اصبحنا في الخليه A65536
end(xlup) =   اذهب لاعلى واختر اول خلية غير فارغه

تم تعديل مارس 8, 2008 بواسطه ابو اسامة العينبوسي

[omar elhosseini]

جزاك الله كل خير اخى ابو اسامة

[omar elhosseini]

الاخ أبو أكرم

اسعدنى كلامك جدا انك استفدت من الشرح

بالمرفق ما تريد

Test_1.rar

تم تعديل مارس 8, 2008 بواسطه أبو تامر

[شحادة بشير]

الحبيب الغالي أبو أسامة والأخ أبو تامر

أسأل الله أن يجعلكم مباركين أينم كنتم

هذا ما أريده فعلا

تستحقون مني تعظيم سلاااااااااااااااااام

[يحيى حسين]

و الله يعجز اللسان عن شكركم

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