إبراهيم ابوليله قام بنشر نوفمبر 10, 2012 قام بنشر نوفمبر 10, 2012 الاخوه الكرام اريد كود يقوم بكتابة الاسم اسفل اخر خليه مستعملهالاجمالى.rar
أبو حنــــين قام بنشر نوفمبر 10, 2012 قام بنشر نوفمبر 10, 2012 استعمل هذه الكود Private Sub CommandButton1_Click() Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(Lr, 2) = "إجمالي" End Sub
جمال عبد السميع قام بنشر نوفمبر 10, 2012 قام بنشر نوفمبر 10, 2012 (معدل) أتمني أخي ( إبراهيم ) أن يحقق المطلوب وإن كنت أعلم مسبقا أنك سوف تفضل كود أستاذي ( أبو حنين ) لكني لم أراه إلا عند رفع مرفقي لما تأخذة المعادلة من تأكيد أنها تقوم بعملها علي أكمل وجه كذلك قد يفضلها البعض من هواة المعادلات كتابة كلمة الإجمالي.rar كتابة كلمة الإجمالي 2.rar كتابة كلمة الإجمالي 3.rar تم تعديل نوفمبر 10, 2012 بواسطه mahmoud-lee
أبو حنــــين قام بنشر نوفمبر 10, 2012 قام بنشر نوفمبر 10, 2012 كما يمكن إجرا ذلك بدون زر و ذلك في حدث الورقة بالكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 If Cells(Lr - 1, 2) = "إجمالي" Then Exit Sub Else Cells(Lr, 2) = "أجمالي" End If End Sub
إبراهيم ابوليله قام بنشر نوفمبر 11, 2012 الكاتب قام بنشر نوفمبر 11, 2012 الاخ ابو حنين الاخ محمود عمل رائع لكل منكما وبارك الله فيكما
إبراهيم ابوليله قام بنشر نوفمبر 11, 2012 الكاتب قام بنشر نوفمبر 11, 2012 الاخ ابو حنين هل يمكن وقف عمل الكود اذا كانت اخر خليه تحتوى على اسم الاجمالى وبذك نتفادى تكرار كتابة الاجمالى فى كل مره يتم الضغط فيها على الزر
أبو حنــــين قام بنشر نوفمبر 11, 2012 قام بنشر نوفمبر 11, 2012 اعتقد أن الكود في المشاركة رقم 4 كان يحتوي على خطأ و ذلك في الحرف إ بدل الحرف أ لكلمة إجمالي و قد صحح بالطريقة التالية دون الحاجة الى زر Private Sub Worksheet_Selectionchange(ByVal Target As Range) Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 If Target.Column = 2 Then If Cells(Lr - 1, 2).Text = "إجمالي" Then Cells(Lr, 2) = "" Exit Sub Else Cells(Lr, 2) = "إجمالي" Exit Sub End If End If End Sub
إبراهيم ابوليله قام بنشر نوفمبر 12, 2012 الكاتب قام بنشر نوفمبر 12, 2012 الاخ ابو حنين مشكورا على المساعده ولكنى لى طلب اخر ارجو النظر الى المرفقالاجمالى.rar
أبو حنــــين قام بنشر نوفمبر 12, 2012 قام بنشر نوفمبر 12, 2012 لا تضع زر فيكفي وضع الكود التالي في حدث الورفة كما يلي : Private Sub Worksheet_Change(ByVal Target As Range) Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 If Cells(Lr - 1, 2) = "إجمالي" Then Cells(Lr - 1, 4) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2)) Exit Sub Else Cells(Lr, 2) = "إجمالي" Cells(Lr, 4) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2)) End If End Sub
إبراهيم ابوليله قام بنشر نوفمبر 12, 2012 الكاتب قام بنشر نوفمبر 12, 2012 الاخ ابوحنين فعلا الكود جميل ويعمل تمام ولكن ماذا لو اردنا اظهار البيانات اسفل اخر خليه بخليتن ولقد غيرت Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 الى Lr = Cells(Rows.Count, "B").End(xlUp).Row + 2 ولكن حدث خطأ
أبو أنس حاجب قام بنشر نوفمبر 13, 2012 قام بنشر نوفمبر 13, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله أظن والله أعلم أن التغيير يتم في هذين السطرين. أبو أنس Cells(Lr + 1, 2) = "" Cells(Lr + 1, 2) = "إجمالي"
أبو حنــــين قام بنشر نوفمبر 13, 2012 قام بنشر نوفمبر 13, 2012 بعد إذن اخي ابو انس نستعمل الدالة Offset فيكون الكود كالتالي Private Sub Worksheet_Change(ByVal Target As Range) Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 If Cells(Lr - 1, 2) = "إجمالي" Then Cells(Lr - 1, 4).Offset(2, 0) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2)) Exit Sub Else Cells(Lr, 2) = "إجمالي" Cells(Lr, 4).Offset(2, 0) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2)) End If End Sub
إبراهيم ابوليله قام بنشر نوفمبر 13, 2012 الكاتب قام بنشر نوفمبر 13, 2012 الاخ انس الاخ ابو حنين بارك الله فيكما ولكن ارجو من الاخ ابو حنين تعديل الكود كما فى المرفق
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان