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