Emad Karali قام بنشر ديسمبر 13, 2020 مشاركة قام بنشر ديسمبر 13, 2020 (معدل) عندي جدول كاتب فيه دالة عند تحقق شروط في الخمسة الخلايا الي قبل يكتب لي اما شراء او بيع او اغلاق ولاكن مجبور اني احول الدالة الى كود لاان عندي ملف خارجي يقراء فقط الدالة ولايقراء المكتوب في الخلية الي هوا الناتج من الدالة اريد فقط لو تكرمتم تحويل الدالة الى كود تلقائي في نفس الشيت بحثت في الموقع عن موضوع ولم اجد شي قريب كتبت كود نجح معايا ولاكن فقط لصف واحد وانا اريد الصفوف كاملة اريد تغير بسيط اني اريد حذف عاموديناوفيسنا.xls الاغلاق واترك فقط عامود البيع والشراء وعند تحقق شرط الشراء يكتب شراء ولا تتغير الى اغلاق الى اذا تحقق شرط الاغلاق وكذلك في عامود البيع تركت العامود لااجل الدالة تتعرفو عليها باذن الله مافي شي صعب عليكم اتمنى مساعدتكم اوفيسنا.xls تم تعديل ديسمبر 13, 2020 بواسطه Emad Karali رابط هذا التعليق شارك More sharing options...
أفضل إجابة خيماوي كووول قام بنشر ديسمبر 13, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 13, 2020 تم اضافة buy >> الرجاء التجربة في sheet2 .. بعد الضغط على زر اضغط هنا .. نسخة من اوفيسنا.xlsm 3 رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر ديسمبر 13, 2020 الكاتب مشاركة قام بنشر ديسمبر 13, 2020 شكرا اخي خيماوي ممتاز لاكن هذا بزر وانا اريده تلقائي بدون م اضغط زر الله يجزاك خير رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر ديسمبر 13, 2020 الكاتب مشاركة قام بنشر ديسمبر 13, 2020 Private Sub Worksheet_Change(ByVal Target As Range) Dim RowNum, r, s, n As Long For RowNum = 2 To 40 If Worksheets("Sheet2").Cells(RowNum, 3).Value <= 0 And Worksheets("Sheet2").Cells(RowNum, 4).Value >= 0 And Worksheets("Sheet2").Cells(RowNum, 6).Value <= 0 And Worksheets("Sheet2").Cells(RowNum, 7).Value <= 0 And Worksheets("Sheet2").Cells(RowNum, 8).Value <= -15 And Worksheets("Sheet2").Cells(RowNum, 13).Value <= -13 Then Worksheets("Sheet2").Cells(RowNum, 11).Value = "SELL" End If Next RowNum For r = 2 To 40 If Worksheets("Sheet2").Cells(r, 6).Value <= 0 And Worksheets("Sheet2").Cells(r, 7).Value <= 0 And Worksheets("Sheet2").Cells(r, 8).Value <= -15 And Worksheets("Sheet2").Cells(r, 13).Value <= -8 Then Worksheets("Sheet2").Cells(r, 12).Value = "WAIT" Else Worksheets("Sheet2").Cells(r, 12).Value = "CLOSE" End If Next r For s = 2 To 40 If Worksheets("Sheet2").Cells(s, 6).Value >= 0 And Worksheets("Sheet2").Cells(s, 7).Value >= 0 And Worksheets("Sheet2").Cells(s, 8).Value >= 15 And Worksheets("Sheet2").Cells(s, 13).Value >= 8 Then Worksheets("Sheet2").Cells(s, 14).Value = "WAIT" Else Worksheets("Sheet2").Cells(s, 14).Value = "CLOSE" End If Next s For n = 2 To 40 If Worksheets("Sheet2").Cells(n, 3).Value >= 0 And Worksheets("Sheet2").Cells(n, 4).Value <= 0 And Worksheets("Sheet2").Cells(n, 6).Value >= 0 And Worksheets("Sheet2").Cells(n, 7).Value >= 0 And Worksheets("Sheet2").Cells(n, 8).Value >= 15 And Worksheets("Sheet2").Cells(n, 13).Value >= 13 Then Worksheets("Sheet2").Cells(n, 15).Value = "BUY" Else Worksheets("Sheet2").Cells(n, 15).Value = " " End If Next n End Sub لما يشتغل يكتب المطلوب ولاكن بعدها يطلع لي هذا الخطا وفي مشكلة الخلاية فيها معادلات م يشتغل الكود رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر ديسمبر 15, 2020 الكاتب مشاركة قام بنشر ديسمبر 15, 2020 اخي خيماوي اتمنى تنظر لموضوعي محتاج جدا الكود رابط هذا التعليق شارك 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.