الشيباني1 قام بنشر أكتوبر 21, 2010 مشاركة قام بنشر أكتوبر 21, 2010 أخواني الاعزاء تحية طيبه في الملف المرفق معادلات في الخلايا (g5:j10000) اتساءل عن امكانية الغاءها والاستغناء عنها باكواد تقوم بعملها مع الامتنان معادلات الى كود.zip رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أكتوبر 21, 2010 مشاركة قام بنشر أكتوبر 21, 2010 السلام عليكم ممكن عن طريق دبل كليك علي الرقم في عمود الكمية تحفز الكود التالي أو ضعه في حدث الورقة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) rr = Target.Row: cc = Target.Column t = Target.Value: p = Target.Offset(0, -1).Value If rr < 5 Or cc <> 6 Or t = "" Or p = "" Then Exit Sub On Error Resume Next Set price = Range("M7: O14") a = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 2) b = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 3) Cells(rr, cc + 1).Value = a Cells(rr, cc + 3).Value = b Cells(rr, cc + 2).Value = a * t Cells(rr, cc + 4).Value = t * (a - b) End Sub أو حمل المرفق ثم ضع اي رقم في عمود الكمية ثم دبل كليك علي الرقم تركت اول صف بالمعادلات للمرجع ويمكنك طبعا تلغيها معادلات الى كود.rar رابط هذا التعليق شارك More sharing options...
aly elhedewy قام بنشر أكتوبر 21, 2010 مشاركة قام بنشر أكتوبر 21, 2010 السلام عليكم ورحمه الله وبركاته اخى الفاضل اتمنى ان تساعدنى فى معرفه كيفيه عمل الاكواد وكيف اتعلمها جزاك الله خيرا وزادك علما زنورا ومن علمنى حرفا صرت له عبدا وشكرا لكم اخيك فى الله على الحديوى رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أكتوبر 21, 2010 مشاركة قام بنشر أكتوبر 21, 2010 (معدل) أخي علي جزاك الله خيرا التعلم يحتاج الصبر والممارسة عليك بدراسة المشاكل التي يعرضها الإخوة وخاصة تلك التي تقترب من مجال عملك ليسهل عليك فهمها والعمل بها أيضا لتعلم الماكرو أو الكود بطريقة سهلة ممكن تدرس موضوع أخونا الغالي العبقري هادى محمد المامون سالم علي الرابط التالي http://www.officena....opic=12203&st=0 وهناك الكثير من المواضيع بالمنتدي لهذا الغرض إبحث وتلذذ بالأكواد وفقنا الله وإياكم لما يحب ويرضي تم تعديل أكتوبر 21, 2010 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر أكتوبر 21, 2010 مشاركة قام بنشر أكتوبر 21, 2010 السلام عليكم ممكن عن طريق دبل كليك علي الرقم في عمود الكمية تحفز الكود التالي أو ضعه في حدث الورقة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) rr = Target.Row: cc = Target.Column t = Target.Value: p = Target.Offset(0, -1).Value If rr < 5 Or cc <> 6 Or t = "" Or p = "" Then Exit Sub On Error Resume Next Set price = Range("M7: O14") a = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 2) b = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 3) Cells(rr, cc + 1).Value = a Cells(rr, cc + 3).Value = b Cells(rr, cc + 2).Value = a * t Cells(rr, cc + 4).Value = t * (a - b) End Sub أو حمل المرفق ثم ضع اي رقم في عمود الكمية ثم دبل كليك علي الرقم تركت اول صف بالمعادلات للمرجع ويمكنك طبعا تلغيها ممتع سهل وبسيط وراااااااااائع جزاك الله خيرا وزادك من علمه ونفعك بما تعلم ونفع بك رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 21, 2010 الكاتب مشاركة قام بنشر أكتوبر 21, 2010 أخي العزيز ابداع ما بعده ابداع جزاك الرحمن خير الجزاء وادامك لنا مرجعا ، استفساران متروك الرد عليهما لمجالكم ، هل يمكن انزال البيانات التي تضمنها الكود الرائع عن طريق زر ؟ وهل يمكن ادخال المعادلتين في المرفق (العمودين AوL) ضمن الكود ، مع الامتنان والتقدير معادلات الى كود2.zip رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أكتوبر 21, 2010 مشاركة قام بنشر أكتوبر 21, 2010 السلام عليكم أخي مرفق ماطلبت وزيادة ممكن تعمل أكثر من بيان في نفس الوقت تظلل الخلايا في العمود المطلوب ، ثم تضغط الزر فيجري المطلوب علي كافة الصفوف التي ظللت عمودها ولكن يبدو أن العمود الأخير ليس مضبوطا أرجو مراجعته إذا فيه شيء ، فإلي لقاء السبت الوقت عندنا متأخر تصبح عي خير معادلات الى كود2.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 21, 2010 الكاتب مشاركة قام بنشر أكتوبر 21, 2010 استاذنا العزيز وانت بخير انشاء الله وجعل الله ايامك راحة وهناء والى يوم السبت احببت ان استفسر عن : - المعادلتان اللتان تضمنها العمودان (AوL)، هل بالامكان تضمينهما في الكود ؟ حيث لم يجر اي اجراء بشانهما . - زر التشغيل وكيفية نسخه الى البرنامج الذي اعمل عليه ؟ - الفائده من (macro 1 )حيث لم اجد له اي تاثير في عمل الكود . مرة اخرى اشكرك على ما تجود به وما لم تستطع المنتديات الاجنبيه حله . رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 21, 2010 الكاتب مشاركة قام بنشر أكتوبر 21, 2010 استاذنا العزيز ملاحظة انتبهت اليها متاخرا وهي ان جميع اقيام الماده (E)في العمود (I)عند استخدام زر التشغيل هي (2500) مما اوحى اليكم ان المعادلات في العمود (L) كان فيها شك ارجو المراجعه مع الامتنان رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أكتوبر 21, 2010 مشاركة قام بنشر أكتوبر 21, 2010 - المعادلتان اللتان تضمنها العمودان (AوL)، هل بالامكان تضمينهما في الكود ؟ حيث لم يجر اي اجراء بشانهما . مش مضبوط قبل تشغيل الزر ، إمحيهما ستجد الماكرو يحسبهما - زر التشغيل وكيفية نسخه الى البرنامج الذي اعمل عليه ؟ من قائمة View ثم Toolbar ثم علم علي Control Toolbox ومنها أضبط وضعية التصميم ثم أنقر الزر الذي تريد ادراجه ثم أخرج من وضعية التصميم ثم دبل كليك علي الزر سيتحول المؤشر تلقائيا إلي الفيجوال بيزيك الخاص بالزر ضع فيها الكود الذي تريد - الفائده من (macro 1 )حيث لم اجد له اي تاثير في عمل الكود . ليس له فائدة ، نسخته عندك بالخطأ رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 22, 2010 الكاتب مشاركة قام بنشر أكتوبر 22, 2010 استاذنا الكبير تحية طيبه مع شكري واعتزازي بكل ما تجودون به ارفق طيا" مثالنا مع ما تم الحصول عليه من خلال زر التشغيل والذي ارجو ان يكون لخلل في اجراءاتي مع الامتنان معادلات الى كود3.zip رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أكتوبر 23, 2010 مشاركة قام بنشر أكتوبر 23, 2010 السلام عليكم أخي الكريم الخلل ليس من اجراءاتك بل من عندي تفضل المرفق ، ان شاء الله كما تحب timon2.rar معادلات الى كود4.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 24, 2010 الكاتب مشاركة قام بنشر أكتوبر 24, 2010 استاذنا العزيز الكلمات تعجز عن الشكر والامتنان زادكم الله من علمه وفضله وجزاكم خير الجزاء وادامكم لنا مرجعا رابط هذا التعليق شارك 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.