طلب خاص بـ VB6 واكسل(كود لنقل الخصائص والتنسيقات والدوال)والخلية الديناميكية

[الفدائي]

أخواني الأكارم تحية لكم وخاصة الأخ العيدروس جزاه الله الف خير لتفاعله مع موضوعي الاتي :

http://www.officena....showtopic=39788

حتي توصلنا لحل المشكلة .

اليوم السؤال هو كيف يتم نسخ صف بكامل خصائصه للذي يليه ؟ وكيف يتم جعل الخلية الأخيرة ديناميكية وبها دالة؟

طبعا اكيد تمت مناقشة مثل هذه الاشياء في اطار VBA ولكني اقصد VB6 والتعامل مع الاكسل فيها ليس مباشر

فمن كان لديه الوقت والمعلومة فليتكرم بمدنا بالحلول المناسبة وله مني دعوة خاصة واجره على الله .

بارك الله فيكم ............... أخوكم الفدائي

الطلب مرفق ايضا:

NeedHelpInVb6.rar

تم تعديل ديسمبر 19, 2011 بواسطه Alfidai

[الـعيدروس]

السلام عليكم

على وضع ملفك الحالي

على انه لايوجد بيانات بعد اخر خلية التي هيا الجمع

بيكون هكذا

Sub ALI_A()

Dim Q, T As Long

Q = Range("H4").End(xlDown).Row

Range("F" & Q).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

T = Cells(4, 6).End(xlDown).Row

Cells(T + 1, 6).Value = 1 ' هذا السطر كمثال إدخال قيم

Cells(T + 1, 7).Value = 2 ' هذا السطر كمثال إدخال قيم

Cells(T + 1, 8).Formula = "=SUM(RC[-2],RC[-1])"

End Sub

والسلام عليكم

[الفدائي]

مشكووور اخي العيدروس - حاولت البارحة الرد لكني لم اتمكن من دخول المنتدي بسبب مشكلة في الداتابيس