kmgh قام بنشر سبتمبر 11, 2006 قام بنشر سبتمبر 11, 2006 (معدل) ما هي الطريقة التي من خلالها استطيع ربط خليتين تكون الخلية الثانية مطابقة تماماً للخلية الاولى من حيث القيمة والتنسيقات ( نوع الخط - حجم الخط - شكل الاطار - لون الخط - وغيرها من تنسيقات) وعند احداث اي تغيير في الخلية الاولى ينعكس تماماً على الخلية الثانية. وشكراً تم تعديل سبتمبر 11, 2006 بواسطه kmgh
علي السحيب قام بنشر سبتمبر 11, 2006 قام بنشر سبتمبر 11, 2006 (معدل) إستخدم الكود التالي لربط تنسيق خلية بخلية أخرى: 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 قام بنشر سبتمبر 12, 2006 الكاتب قام بنشر سبتمبر 12, 2006 (معدل) اشكركم كثيرا على ردكم. ولكن لم الحظ اي تغيير في الخلية الثانية ما اريده هو ان تكون قيمة الخلية C5 مطابقة تماما للخلية E5 من حيث القيمة ومن حيث كل التنسيقات التي تتغير في الخلية C5. وشكراً تم تعديل سبتمبر 12, 2006 بواسطه kmgh
علي السحيب قام بنشر سبتمبر 12, 2006 قام بنشر سبتمبر 12, 2006 في هذه الحالة يتم تغيير الكود إلى التالي: 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
الردود الموصى بها