KHMB قام بنشر نوفمبر 11, 2014 مشاركة قام بنشر نوفمبر 11, 2014 السلام عليكم ورحمة الله وبركاتة ارجوا المساعدة في عمل ( كـــــــــــــود ) للبرنامج حسب الشرح المرفق سبق ان طرحته هنا لكن بطريقة مختلفة شويه وقد قام الأخ أبو إيمان بعمل اللازم بالمعادلات (الصيغ) جزاه الله خير ومابقي إلا الرصيد الذي لم اطلب سابقا عمل أي شي فيه ثم قمت بالرفع بخصوص الرصيد فلم اجد إجابة لعله مشغول الله يكون في عونه شاكرين ومقدرين لكم حسن تعاونكم وتعاملكم معنا سلفاً مرفق الملف Offcina بالكود.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 11, 2014 مشاركة قام بنشر نوفمبر 11, 2014 السلام عليكم الكود موجود في موديل الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow As Double If Intersect(Target, Range("A2:C100000")) Is Nothing Then Exit Sub iRow = Target.Row Cells(iRow, "D").Value = Val(Cells(iRow, "B")) * Val(Cells(iRow, "C")) Cells(iRow, "E").Value = Val(Cells(iRow, "D")) * 0.0012 Cells(iRow, "F").Value = IIf(CStr(Cells(iRow, "A")) = "شراء", Val(Cells(iRow, "D")) + Val(Cells(iRow, "E")), 0) Cells(iRow, "G").Value = IIf(CStr(Cells(iRow, "A")) = "بيع", Val(Cells(iRow, "D")) - Val(Cells(iRow, "E")), 0) Cells(iRow, "H").Value = Val(Cells(iRow - 1, "H")) + Val(Cells(iRow, "G")) - Val(Cells(iRow, "F")) End Sub المرفق 2010 Offcina +بالكود.rar 1 رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 11, 2014 مشاركة قام بنشر نوفمبر 11, 2014 أخي الفاضل أ.عبدالله رائع، قمة البساطة والسهولة .. وبعد إذنك ممكن مرفق ملف لآداء نفس الغرض ولكن بإستخدام ال Forms خالص تحياتي أستاذي الفاضل Sell&Buy.rar 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر نوفمبر 12, 2014 الكاتب مشاركة قام بنشر نوفمبر 12, 2014 (معدل) السلام عليكم ورحمة الله وبركاتة الأستاذ الأخ عبدالله احمد باغشير غني عن التعريف لدى الجميع انا من المعجبين والمحبين للأستاذ الأخ عبدالله باغشير /خبور خير من 8-9 سنوات تقريباً بداية من منتدى الإبداع الإسلامي ففي جميع المنتديات يذكر بكل خير ولم اجد واحد فقط تذمر منه في تقصير على الأقل لانة شخص خلوق لايجادل لايتمنن بما اعطى او وضع او ساعد ولايمل اسأله مره مرتين عشر بس عن حب في المعرفة او الاحتياج لايكل ولايمل واللسان عن وصفة عاجز ولكن إن شاء الله له دعوة من القلب للقلب في ظهر الغيب ولا احد سيصدقني لو قلت انني من يوم ان وضعت موضوعي وانا أتمنى ان يرد علي الأخ عبدالله ولا اريد ان اوجة الموضوع بإسمة فهو كذلك لن يرضى وهذا كذلك قوانين المنتدى عدم توجية أي موضوع باسم شخص فإذا لم يرد هذا فيرد عليك الآخر فالموضوع موجة للجميع وكلا علي قدر معرفته. وهذا التوجيه باسم شخص سوى بقصد او غير ذلك ،يراه او يعتبروه الاخرين تقصير وعدم احترام للاخرين فهناك الكثير والكثير من الاخوان لديهم الشي الغزير في هذا العلم شهدت بذلك والله خير الشاهدين.((الناس شهداء الله في ارضه)) اخي ابن مصر / اشكرك جزيل الشكر عمل رائع جدا من شخص يستحق اكثر مما أقول .وموضوع الفورم ناسبني ولك مني إن شاء الله دعوة في ظهر الغيب اخواني عبدالله باغشير وإبن مصر وكل من نفع وأعان وساعد جزاكم الله خيرأ وبارك الله لكم في اهلكم واولادكم واموالكم والسلام عليكم ورحمة الله. سأقوم بعمل برنامجي حيث ان هناك بعض من التعديلات بإضافة أشياء يتناسب معي وان وجد أي استفسار او طلب في مساعدتكم لي فإنني لا استغنى تم تعديل نوفمبر 12, 2014 بواسطه KHMB رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر نوفمبر 12, 2014 الكاتب مشاركة قام بنشر نوفمبر 12, 2014 (معدل) السلام عليكم ورحمة الله ممكن تعديل على الكود تم إضافة عمودين الأول للتاريخ والثاني لرقم المحفظة المرفقات نموذج الشيت + نموذج الفورم في ملف مضغوط واحد التاريخ بتنسيق اليوم مع التاريخ كامل مثال السبت 10/11/2014 مهم / في حالة الشراء يلون الصف بلون احمر فاتح جدا وفي حالة البيـــع يلون الصف بأزرق فاتح جدا بالنسبة للفورم يكون SetFocus رقم المحفظة مانستغنى من الجميع جزاكم الله خير المحفظة.rar تم تعديل نوفمبر 12, 2014 بواسطه KHMB رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 12, 2014 مشاركة قام بنشر نوفمبر 12, 2014 السلام عليكم ورحمة الله ممكن تعديل على الكود تم إضافة عمودين الأول للتاريخ والثاني لرقم المحفظة المرفقات نموذج الشيت + نموذج الفورم في ملف مضغوط واحد التاريخ بتنسيق اليوم مع التاريخ كامل مثال السبت 10/11/2014 مهم / في حالة الشراء يلون الصف بلون احمر فاتح جدا وفي حالة البيـــع يلون الصف بأزرق فاتح جدا بالنسبة للفورم يكون SetFocus رقم المحفظة مانستغنى من الجميع جزاكم الله خير أخى الفاضل تم بحمد الله عمل المطلوب، انظر الملف المرفق خالص تحياتي Sell&Buy.rar رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر نوفمبر 12, 2014 الكاتب مشاركة قام بنشر نوفمبر 12, 2014 (معدل) السلام عليكم ورحمة الله وبركاتة الأخ الفاضل ابن مصر والله عاجز علي ان اشكرك اتركها لله يجازيك علي ذلك بعوة طيبة صادقة إن شاء الله هذا المطلوب جدا جدا وزيادة حفظك الله يا ابن ارض الكنانة تعيشي يامصر بارك الله لك في مالك واهلك واولادك مابقيت. الحمد لله الذي هدانا للاسلام ومحبتة ومحبة رسوله صلى الله علية وآله وصحبة وسلم ومحبة اهل بيتة الكرام وصحابتة رضى الله عنهم اجمعين اخيك أبو الحسن والحسين تم تعديل نوفمبر 12, 2014 بواسطه KHMB 1 رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 12, 2014 مشاركة قام بنشر نوفمبر 12, 2014 السلام عليكم ورحمة الله وبركاتة الأخ الفاضل ابن مصر والله عاجز علي ان اشكرك اتركها لله يجازيك علي ذلك بعوة طيبة صادقة إن شاء الله هذا المطلوب جدا جدا وزيادة حفظك الله يا ابن ارض الكنانة تعيشي يامصر بارك الله لك في مالك واهلك واولادك مابقيت. الحمد لله الذي هدانا للاسلام ومحبتة ومحبت رسوله صلى الله علية وآله وصحبة وسلم ومحبة اهل بيتة الكرام وصحابتة رضى الله عنهم اجمعين اخيك أبو الحسن والحسين أخى الفاضل، خالص امتنانى لدعواتك الكريمة وأدعوا الله أن يبارك لك في الحسن والحسين وأن يقر عينك بهما خالص تحياتي رابط هذا التعليق شارك 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.