احمدزمان قام بنشر يوليو 13, 2009 مشاركة قام بنشر يوليو 13, 2009 السلام عليكم و رحمة الله وبركاته اخواني واساتذتي الأفاضل مش عارف منذ اكثر من اسبوع وانا حاسس ان الإكسل و الأكواد فلتت مني و مش قادر اجمع المعلومات تاني الظاهر حصلت لخبطة في خلايا المخ و دخل كله على بعضة = = = = = = السؤال = = = = = اذا كان عندي متغير ثابت اريد ان استخدمة في اكثر من كود Vb داخل ملف اكسل مثلا الكود التالي Dim RR Dim LL RR = ActiveSheet.UsedRange.Rows.Count LL = ActiveSheet.UsedRange.Columns.Count فبدلا من ان اقوم بكتابة هذه الأسطر في كل موديل اريد طريقة اعرفة بها مرة واحدة ثم استخدم RR او LL داخل الأكواد الأخرى طبعا هو الموضوع مش جديد ولكن المسألة تاهت معي مع شكري و تقديري للجميع رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 13, 2009 مشاركة قام بنشر يوليو 13, 2009 أستاذي الغالي الحبيب أحمد يعقوب ألف سلامة عليك أنا مقدر إنك تهت مع كتر المعلومات اللي في الدماغ ( دا مش حسد ) عموماً على قدر إمكانياتي المتواضعة جداً في مجال الأكواد أعتقد إنه ممكن تعلن عن المتغيرات التي تريد استخدامها في أكثر من موديول من خلال Public Function هذا والله أعلم أدرت فقط أن أشاركك ، وأطمئن عليك عاشق الإكسيل رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 13, 2009 مشاركة قام بنشر يوليو 13, 2009 أخي وحبيبي الحبيب وينك ؟؟ عايز أطمئن عليك لم أرى منك رداً من الأمس لعله خير عاشق الإكسيل رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يوليو 14, 2009 مشاركة قام بنشر يوليو 14, 2009 السلام عليكم استاذي الفاضل أحمد يعقوب العين بصيرة واليد قصيرة أسال الله أن يوفق أحد أهل الاختصاص للتدخل لأن سلامة رأسك لا يعدلها شيء سلمت وعفيت وكفيت رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يوليو 14, 2009 الكاتب مشاركة قام بنشر يوليو 14, 2009 السلام عليكم و رحمة الله وبركاته اخي الكريم الفاضل ياسر خليل اولا : حمدا لله على السلامة ومبروك المولود الجديد و نورت المنتدى ثانيا : شكرا جزيلا لك على المعلومة المفيدة وجزاك الله كل خير و يارب ويارب و يارب مانتحرمش من طلاتك البهيه اخي خالد القدس شكرا لك على كريم مرورك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 14, 2009 مشاركة قام بنشر يوليو 14, 2009 حبيبي أحمد يعقوب تسمح لي أناديك حبيبي بدلاً من أخي فقط عوداً حميداً بس صحيح المعلومة أفادتك ولا إنت بتقولها مجاملة عشان ماتكسفنيش لإن إنت عارف إني ضعيف قوي ( على فكرة ضعيف قوي مش متضادين يعني أنا مقصدش ضعيف وبعدين رجعت ف كلامي وقلت قوي ، أنا أقصد ضعيف جداً ) في البرمجة بالإكسيل عموماً لو كانت أفادتك المعلومة وريحت دماغك فعلاً ارفق لنا الملف اللي إنت شغال عليه عشان نتعلم منه حاجة تنفعنا رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 14, 2009 مشاركة قام بنشر يوليو 14, 2009 (معدل) السلام عليكم جميعا بعد إذنك أستاذ أحمد ممكن وضع المتغيرات التي نريد استخدامها في أكثر من موديول داخل ملف إكسيل واحد في قسم الإعلانات العامة أي في أول سطرين أو ثلاثة قبل كتابة الكود وبشكل أتوماتيكي يضع محرر البيسك بينهم وبين الأكواد خط كفاصل . Dim RR Dim LL RR = ActiveSheet.UsedRange.Rows.Count LL = ActiveSheet.UsedRange.Columns.Count Sub calc() End Sub أتمنى لكم الفائدة تحياتي أيسم إبراهيم تم تعديل يوليو 14, 2009 بواسطه aysam رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 14, 2009 مشاركة قام بنشر يوليو 14, 2009 (معدل) جميل أخي أيسم بصراحة معلومة رائعة من شخص رائع وحشتني قوي يا حاج أيسم تم تعديل يوليو 14, 2009 بواسطه YasserKhalil رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 14, 2009 مشاركة قام بنشر يوليو 14, 2009 السلام عليكم جزاك الله خيرا على كلامك الطيب أستاذ ياسر بالفعل أنت فاكهة المنتدى حمدا لله على سلامتك منور المنتدى تحياتي أيسم إبراهيم رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يوليو 14, 2009 الكاتب مشاركة قام بنشر يوليو 14, 2009 السلام عليكم اخي الفاضل ياسر خليل والله استفدت من ذلك كثيرا وكانت النتائج كالتالي Public Function RR() RR = ActiveSheet.UsedRange.Rows.Count End Function Public Function CC() CC = ActiveSheet.UsedRange.Columns.Count End Function و وقفت معي مشكلة اخرى وهي تعيين متغير يتم وضع قيمته داخل كود ويستخدم هذه القيمة في كود آخر ولقد جاء الحل على يد الأخ / ايسم جزاه الله خيرا وكانت النتائج كالتالي Dim q Sub test1() q = 2 Application.Run "test2" End Sub Sub test2() Columns(q).Delete End Sub جزاكم الله جميعا كل خير والله لايحرمنا منكم ابدا لنلجأ لكم رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 14, 2009 مشاركة قام بنشر يوليو 14, 2009 السلام عليكم أستاذ أحمد لو فرضنا جدلا أننا قدمنا لك مساعدة تبقى فرصة نادرة لا تتكرر كثيرا لكي نرد بعض من جمايلك علينا و على الجميع تحياتي أيسم إبراهيم رابط هذا التعليق شارك More sharing options...
ahmedhafez قام بنشر يوليو 14, 2009 مشاركة قام بنشر يوليو 14, 2009 السلام عليكم اخى احمد يعقوب وفققك الله لما ترضاة وتحب رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 14, 2009 مشاركة قام بنشر يوليو 14, 2009 لو فرضنا جدلا أننا قدمنا لك مساعدة تبقى فرصة نادرة لا تتكرر كثيرا لكي نرد بعض من جمايلك علينا و على الجميع لا أجد رداً أفصح من هذا الرد دمت بخير ومودة وسعادة وحبور رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يوليو 14, 2009 مشاركة قام بنشر يوليو 14, 2009 (معدل) السلام عليكم أستاذي الفاضل أحمد الحمد لله على سلامة الوصول للحل فعلا كانت معلومة ضائعة منك فقط استلمت طرف الخيط وكملتها لوحدك زادك الله علما وعملا أخي استاذ ايسم ألف شكر على هذه المعلومات القيمة ولله الحمد أن سخرك لنجدة أستاذنا القدير أحمد صاحب المروءة التي طال نحيبها أخي وحبيبي أستاذ ياسر ألف شكر على هذه المعلومات القيمة وألف ألف مبروك المولود الجديد جعله الله قرة عين لا تنقطع لوالديه ونصر به الإسلام والمسلمين تم تعديل يوليو 14, 2009 بواسطه خالد القدس رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.