كود ترحيل

[m_aly]

السلام عليكم

اريد معرفه كود لتجميع خليه ولتكن a1

في جميع الصفحات حتي الصفحه التي لم تنشأ ( new sheet)

شكرآ

[طارق محمود]

السلام عليكم

تفضل أخي الكود التالي في حدث الملف

سيقوم بجمع الخلية A1 من جميع الشيتات إلي الخلية C1 في الورقة الأولي

Private Sub Workbook_NewSheet(ByVal Sh As Object)

'هذا يفعل الكود إذا أنشأت صفحة جديدة

total_A1

End Sub


Private Sub Workbook_Open()

'هذا يفعل الكود عند فتح البرنامج

total_A1

End Sub

Sub total_A1()

' هذا هو الكود المطلوب

Sheet1.[C1] = 0

For i = 1 To Sheets.Count

	Sheet1.[C1] = Sheet1.[C1] + Sheets(i).[A1].Value

Next i

End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'هذا يفعل الكود إذا انتقلت من صفحة لأخري

total_A1

End Sub

[m_aly]

بارك الله فيك

اسمحلي اتقل عليك

هل اربط الكواد بزرار بحيث يتم تفعيل عند الضغط علي الزرار ام هناك طريقه ليتم حسابهم اتوماتيك

بجد حلتلي مشكله كبيره ربنا يكرمك

السلام عليكم

تم تعديل مايو 16, 2012 بواسطه m_aly

[طارق محمود]

السلام عليكم

مرفق الملف وبه الكود لجمع a1 b1 c1 لكل الصفحات في الخلية D2 من الورقة الأولي

وهذا هو الكود في حدث الملف

Private Sub Workbook_NewSheet(ByVal Sh As Object)

'هنا يتم تفعيل الكود إذا أنشأت صفحة جديدة

total_A1

End Sub


Private Sub Workbook_Open()

'هنا يتم تفعيل الكود عند فتح البرنامج

total_A1

End Sub

Sub total_A1()

' هذا هو الكود المطلوب

Sheet1.[D2] = 0

For i = 1 To Sheets.Count

        Sheet1.[D2] = Sheet1.[D2] + Sheets(i).[A1] + Sheets(i).[B1] + Sheets(i).[C1]

Next i

End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'هنا يتم تفعيل الكود إذا انتقلت من صفحة لأخري

total_A1

End Sub

المجموع في الخلية_D2.rar

[m_aly]

بارك الله فيك