ربط خليتين

[kmgh]

ما هي الطريقة التي من خلالها استطيع ربط خليتين تكون الخلية الثانية مطابقة تماماً للخلية الاولى من حيث القيمة والتنسيقات ( نوع الخط - حجم الخط - شكل الاطار - لون الخط - وغيرها من تنسيقات) وعند احداث اي تغيير في الخلية الاولى ينعكس تماماً على الخلية الثانية.

وشكراً

تم تعديل سبتمبر 11, 2006 بواسطه kmgh

[علي السحيب]

إستخدم الكود التالي لربط تنسيق خلية بخلية أخرى:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" Then
[C5].Copy
[E5].PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End If
End Sub

_________________________.rar

تم تعديل سبتمبر 11, 2006 بواسطه علي السحيب

[kmgh]

اشكركم كثيرا على ردكم.

ولكن لم الحظ اي تغيير في الخلية الثانية

ما اريده هو ان تكون قيمة الخلية C5 مطابقة تماما للخلية E5 من حيث القيمة ومن حيث كل التنسيقات التي تتغير في الخلية C5.

وشكراً

تم تعديل سبتمبر 12, 2006 بواسطه kmgh

[علي السحيب]

في هذه الحالة يتم تغيير الكود إلى التالي:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" Then
[C5].Copy
[E5].PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
[C5].Select
End If
End Sub

_________________________.rar