تعديل علي داله قديمة للاخ / علي السحيب

[bebom2r]

السلام عليكم ورحمة الله وبركاتة

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

الموضوع المطروح

هذا عمل سابق للاخ العزيز جدا / علي السحيب

وهو اضافة سجل جديد عند الانتهاء والضغط عل انتر

المطلوب :

عند اضافة السجل يضاف التنسيق للخلاايا طبقا للخلايا السابقة

Private Sub Worksheet_Change(ByVal Target As Range)

TR = Target.Row

If Target.Column = 8 Then

Rows(TR + 1).Insert

For C = 2 To 8

Cells(TR, C).Interior.ColorIndex = 36

Cells(TR, C).Font.ColorIndex = 1

Next

Cells(TR + 1, 2).Select

End If

End Sub

____.rar

[ابو اسامة العينبوسي]

السلام عليكم

ماهو التنسيق الذى تريده للسطر الجديد

تعديل بسيط يقوم برسم الحدود للسطر الجديد

Private Sub Worksheet_Change(ByVal Target As Range)

TR = Target.Row
If Target.Column = 8 Then
Rows(TR + 1).Insert
For C = 2 To 8
Cells(TR, C).Interior.ColorIndex = 36
Cells(TR, C).Font.ColorIndex = 1
Cells(TR, C).Borders.Color = 1
Next
Cells(TR + 1, 2).Select
End If
End Sub

تم تعديل مايو 7, 2007 بواسطه ابو اسامة العينبوسي

[bebom2r]

السلام عليكم

ماهو التنسيق الذى تريده للسطر الجديد

تعديل بسيط يقوم برسم الحدود للسطر الجديد

Private Sub Worksheet_Change(ByVal Target As Range)

TR = Target.Row
If Target.Column = 8 Then
Rows(TR + 1).Insert
For C = 2 To 8
Cells(TR, C).Interior.ColorIndex = 36
Cells(TR, C).Font.ColorIndex = 1
Cells(TR, C).Borders.Color = 1
Next
Cells(TR + 1, 2).Select
End If
End Sub

الاخ العزيز / ابو اسامة

انا اسف جدا علي التاخر في شكرك علي هذا الرد حيث نني كنت مشغول في الفترة الماضية

شاكر لك جدا وجاري التجربة