e3sar قام بنشر مايو 14, 2008 قام بنشر مايو 14, 2008 مرحبا اخواني لدي مشكلة ارجوا الحصول على حل لها واكون لكم شاكراً فقد حاولت ان اجد الحل من خلال VBA ولكن لقلة خبرتي لم أعرف وامشكلة تتمثل فيما يلي: اذا كانت لدي خليتين الاولى في احدها مثلا العدد 10 وفي الخلية الثانيه العدد 45 . المطلوب: كيف يمكنني بمجرد أن اكتب العدد 45 فإن الخلية التي بها هذا العدد تقوم بعملية الطرح التالية 45 - 10 ويتغير محتوى الخلية من 45 الى نتيجة عملية الطرح وهي 35 ؟؟ الملف مرفق وبه الشرح DailyReport1.rar
ابو اسامة العينبوسي قام بنشر مايو 14, 2008 قام بنشر مايو 14, 2008 السلام عليكم استخدم الكود التالى Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$D$17" Then Cells(17, 4).Value = Cells(17, 4).Value - Cells(6, 4).Value Application.EnableEvents = True End Sub
e3sar قام بنشر مايو 15, 2008 الكاتب قام بنشر مايو 15, 2008 شكرا لك أخي ابو اسامة العينبوسي وفعلا بعد تطبيق هذا الكود على الخلايا المطلوبة عمل بشكل طبيعي الا أنني توقفت عند تطبيق هذا الكود على الخلية J6 ولتسهيل الامر يوجد الكود في الملف المرفق. If Target.Address = "$J$6" Then Cells(6, 10).Value = Cells(6, 10).Value - (Cells(6, 4).Value + Cells(17, 4).Value + Cells(28, 4).Value + Cells(39, 4).Value + Cells(50, 4).Value + Cells(61, 4).Value + Cells(72, 4).Value + Cells(83, 4).Value + Cells(94, 4).Value + Cells(105, 4).Value + Cells(116, 4).Value + Cells(127, 4).Value) DailyReport1.rar
ابو اسامة العينبوسي قام بنشر مايو 15, 2008 قام بنشر مايو 15, 2008 السلام عليكم Application.EnableEvents = False If Target.Address = "$J$6" Then Cells(6, 10).Value = Cells(6, 10).Value - (Cells(6, 4).Value + Cells(17, 4).Value + Cells(28, 4).Value + Cells(39, 4).Value + Cells(50, 4).Value + Cells(61, 4).Value + Cells(72, 4).Value + Cells(83, 4).Value + Cells(94, 4).Value + Cells(105, 4).Value + Cells(116, 4).Value + Cells(127, 4).Value) End If Application.EnableEvents = True
e3sar قام بنشر مايو 15, 2008 الكاتب قام بنشر مايو 15, 2008 شكرا لك أخي ابو اسامة العينبوسي لا أدري ما المشكلة في عدم عمل الكود معي !! وهي يوضع تحت if التي هي موجودة بالملف المرفق أم ماذا؟
e3sar قام بنشر مايو 16, 2008 الكاتب قام بنشر مايو 16, 2008 وعليكم السلام ورحمة الله وبركاته شكرا لك أخي ابو اسامة العينبوسي وبارك الله فيك وفي والديك وزادك علماً على علم تم بحمد الله الانتهاء من القسم الخاص بـ WDD بنجاح ولكن عندما انتقلت الى الجزء الخاص بـEDD لأقوم بتطبيق الكودات ذاتها مع تغيير فقط موقع الخلايا ظهرت لي هذا المسج فمالحل؟؟ وهل في VBA يوجد عدد محدد من الكودات المسموح باستخدامها؟ DailyReport1.rar
ابو اسامة العينبوسي قام بنشر مايو 20, 2008 قام بنشر مايو 20, 2008 السلام عليكم اخى الكريم حاولت و لم افلح
e3sar قام بنشر مايو 20, 2008 الكاتب قام بنشر مايو 20, 2008 بارك الله فيك أستاذي ويكفيني شرفاً أن تضيئ مشاركتي بتواجدك ولا زلت أنتظر مساعدة من الاخوة
e3sar قام بنشر مايو 20, 2008 الكاتب قام بنشر مايو 20, 2008 السلام عليكم ورحمة الله وبركاته إخوتي أواجه مشكلة لا أعرف كيف يتم تفاديها مع الاكسل وخصوصا عند البرمجة باستخدام كود VBA والمشكلة لخصتها بالصور و كذلك أرفقت الملف الذي استخدمه الملف مضغوط اضغط هنـــــــــــــــــــــا وشكرا مقدماً
نزار سليمان عيد قام بنشر مايو 20, 2008 قام بنشر مايو 20, 2008 السلام عليكم انظر للمرفق DailyReport1.rar
e3sar قام بنشر مايو 20, 2008 الكاتب قام بنشر مايو 20, 2008 وعليكم السلام ورحمة الله وبركاته.. أستاذي نزار المشكلة هي ذاتها حيث أن هناك بعض الكودات كانت غير مفعله و انا بحاجة لتفعيلها لذا ارجوا النظر الآن بعد تفعيلها والى المسج الذي دائما ما يظهر معي ولك مني كل الشكر DailyReport1.rar
نزار سليمان عيد قام بنشر مايو 21, 2008 قام بنشر مايو 21, 2008 اخي الكريم السلام عليكم مازلت احاول من طرفي لحل المشكلة وهذه والله العليم انها جديدة على المنتدى وتتلخص في ان تنفيذ الكود اطول من الحد المسموح به VBA وهو 64K ولحل المشكلة يجب تجزئة الكود الى جزئين وربط الجزئين ببعضهما عن طريق الماكرو وبالتالي يتم حل المشكلة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.