aspiran قام بنشر أبريل 17, 2013 مشاركة قام بنشر أبريل 17, 2013 السلام عليكم ممكن مساعدة في إيجاد معادلة أو كود يحافظ على قيمة الخلية (Historique) بحيث تبقى الخلية محافظة على كل القيم التي أدخلت في أحد الخلايا المرتبطة بها مثال لدينا الخلية A1 و الخلية B1 و الخلية C1 عند إدخال قيمة في الخلية B1 تخزن في الخلية C1 تلقائيا مع إفتراض أن A1 تحتوي على قيمة < 0 في مرحلة ثانية قمت بإدخال قيمة ثانية في B1 فتخزن القيمة الثانية في الخلية C1مضافة إليها القيمة الأولى وهكذا مع كل قيمة تسجل في الخلية B1 تخزن في الخلية C1مضافة لها Historique جيد وهنا تأتي العلاقة مع الخلية A1 بحيث إذا كانت الخلية A1 =0 تحذف كل العمليات السابقة ونكون أمام Historique جديد أرجو أن يكون الشرح مفهوما وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر أبريل 17, 2013 مشاركة قام بنشر أبريل 17, 2013 بصراحة أخى الطلب غير مفهوم بعض الشئ ، فعذرا ومنعا للبس والأفتراض من قبل أى زميل سيقوم بالإجابة ياريت ترفق مرفق تشرح فية ماتريدة والنتيجة المرجوة سيكون أدق وأسرع تقبل تحياتى رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 17, 2013 الكاتب مشاركة قام بنشر أبريل 17, 2013 تفضل أخي عبد السميع الشرح اتمنى أن يكون الشرح واضحا وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 17, 2013 الكاتب مشاركة قام بنشر أبريل 17, 2013 تفضل أخي المرفق Historique.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أبريل 17, 2013 مشاركة قام بنشر أبريل 17, 2013 السلام عليكم ضع هذا الكود في موديل ورقة1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("b1").Address Then Range("C1") = Val(Range("C1")) + Val(Target) End If End Sub تحياتي رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر أبريل 17, 2013 مشاركة قام بنشر أبريل 17, 2013 ماشاء الله عليك أستاذى دائما أعمالك تنطق بعبقريتك أليك أخى المرفق بكود بروفيسير منتدانا Historique.rar رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 18, 2013 الكاتب مشاركة قام بنشر أبريل 18, 2013 السلام عليكم بارك الله فيكما أخواي جمال عبد السميع عبدالله باقشير وجزاكما الله خيرا على الإجابة فقط بقي لدي فكرة أريد إضافتها للكود لو سمحتهما والشرح موضح في المرفق حيث أجريت عليه تعديل بسيط وحاولت إيجاد حل للمعادلة لكن محاولاتي باءت بالفشل بارك الله فيكم و جزاكم الله خيرا Historique2.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أبريل 18, 2013 مشاركة قام بنشر أبريل 18, 2013 السلام عليكم جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim iRow As Integer If Not Intersect(Target, Range("B1:B50")) Is Nothing Then iRow = Target.Row Cells(iRow, "C") = Val(Cells(iRow, "C")) + Val(Target) End If '''''''''''''''''''''''' If Not Intersect(Target, Range("A1:A50")) Is Nothing Then iRow = Target.Row If Val(Target) = 0 Then Cells(iRow, "C") = "" End If End If End Sub رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 18, 2013 الكاتب مشاركة قام بنشر أبريل 18, 2013 (معدل) تحية عسكرية إليك أستاذي عبدالله كود و لا أروع بارك الله فيك وجزاك الله خيرا تم تعديل أبريل 18, 2013 بواسطه عبد الغني(aspiran) رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أبريل 19, 2013 مشاركة قام بنشر أبريل 19, 2013 السلام عليكم<br /><br />فعلا الاكواد الخيبورية ملهاش حل<br /><br />بارك الله فيك استاذ خبور<br /> رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 20, 2013 الكاتب مشاركة قام بنشر أبريل 20, 2013 السلام عليكم ورحمة الله تعالى وبركاته لازلت أواجه صعوبات في إيجاد حل للمعادلة التي أريد ستعمالها لحساب متوسط سعر السلع التي تدخل يوميا للمخزن إلى غاية نفاذه فنكون متوسط سعر جديد النقطة الثانية كل خطأ في إدخال سعر السلع يأدي إلى متوسط سعر سلع خاطئ بحكم أن الخلايا تخزن كل معلومة تسجل في الخلية المرتبطة بها وبالتالي تعاملنا مع غدخال الأسعار يكون بحذر كتعاملنا مع قنبلة موقوتة أضع بين ايديكم مرفقا لمن اراد المساعدة جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 20, 2013 الكاتب مشاركة قام بنشر أبريل 20, 2013 المرفق رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 20, 2013 الكاتب مشاركة قام بنشر أبريل 20, 2013 لم أتمكن من إرفاق الملف على المنتدى فأرفقته على الرابط http://www.4shared.com/rar/vjstmizo/moyenne.html رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 22, 2013 الكاتب مشاركة قام بنشر أبريل 22, 2013 السلام عليكم ورحمة الله تعالى وبركاته نتيجة لخلل تقني في المنتدى فقد أضفت عدة مشاركات لهذا الموضوع إعتقادا مني أن المشاركات لم تحفظ إلا أنه بعد أكثر من 05 دقائق وجدت أن المشاركات قد حفظت لكن بدون مرفقات فوضعت رابط للمرفق أرجو أن اتلقى إجابة على موضوعي رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 23, 2013 الكاتب مشاركة قام بنشر أبريل 23, 2013 هل من مجيب رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر أبريل 27, 2013 الكاتب مشاركة قام بنشر أبريل 27, 2013 السلام عليكم أرقني كود حساب المتوسط ياجماعة هل من خبير رابط هذا التعليق شارك 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.