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

[mahmoud_xp]

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

أريد طريقة لنسخ تنسيقات الأرقام في خلية معينة إلى خلية أخرى عند تحقق شرط معين

مرفق ملف يحتوي على نموذج عملي للمطلوب

نسخ تنسيق الخلية من خلية أخرى بشرط.rar

تم تعديل يوليو 14, 2010 بواسطه mahmoud_xp

[الخالدي]

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

اخي الكريم

في الملف المرفق يتغير التنسيق عن طريق التنسيق الشرطي

مع ملاحظة ان هذا التنسيق لا يعمل الا على النسخ الحديثة للاكسل 2007و2010

تحياتي

نسخ تنسيق الخلية من خلية أخرى بشرط2.rar

[ولدطيبة]

السلام عليكم

اختار نوع العملة يظهر لك التنسيق المطلوب

تم عمل جدول للتنسيقات

يتم نسخ نوع التنسيق من تنسيق الخلايا - تختار نوع التنسيق - تختار مخصص - تنسخ نوع التنسيق - ثم لصق في الجدول المحدد

نسخ_تنسيق_الخلية_من_خلية_أخرى_بشرط.rar

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي الخالدي

وبارك الله فيك اخي ولد طيبة

=========================

وللزيادة في الخير:

بالامكان استخدام الكود التالي:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim X As Integer

If Target.Address = Range("A2").Address Then

    With Range("العملات_المتوفرة")

        For X = 1 To .Rows.Count

            If .Cells(X, 1).Value = Target.Value Then

                Target.Offset(0, 1).NumberFormat = .Cells(X, 2).NumberFormat

            End If

        Next

    End With

End If

End Sub

شاهد المرفق

نسخ تنسيق الخلية من خلية أخرى بشرط1.rar

[ولدطيبة]

السلام عليكم

شكرا لك استاذي و اخي خبورخير

والله زمان عن ابداعاتك

جزاك الله كل خير كوود في منتهى الروعة

[قصي]

شكرا لكل المشاركين

جزاكم الله كل خير

[عبد الفتاح كيرة]

هذا كود يعمل بكفاءة

مع الشكر للإخوة

Sub Macro2()

'

' Macro2 ãÇßÑæ

'


'

If Sheets("æÑÞÉ1").Range("a2").Value = "ÏæáÇÑ ÃãÑíßí" Then


    Sheets("æÑÞÉ1").Range("b2").NumberFormat = "[$$-409]#,##0.00"

   ElseIf Sheets("æÑÞÉ1").Range("a2").Value = "ÏíäÇÑ ÃÑÏäí" Then

    Sheets("æÑÞÉ1").Range("b2").NumberFormat = "[$Ï.Ç.þ-2C01] #,##0.00_-"

    ElseIf Sheets("æÑÞÉ1").Range("a2").Value = "íæÑæ" Then

    Sheets("æÑÞÉ1").Range("b2").NumberFormat = "[$€-2] #,##0.00_-"

    End If


End Sub

نسخ تنسيق الخلية من خلية أخرى بشرطkemas.zip

[الخالدي]

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

اخي واستاذي خبور خير

اخي ولد طيبة

اخي kemas

جزاكم الله كل خير

===================

وهذا حل اخر بالمعادلات وفيه يتم اختيار التنسيق من نفس خلية المبلغ عن طريق قائمة منسدلة.

والحل فيه بعض الاقتباس من عمل اخي ولد طيبة .

تحياتي

نسخ تنسيق الخلية من خلية أخرى بشرط3.rar

[mahmoud_xp]

السلام عليكم

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

ومرة أخرى اكرر شكري للجميع

[myyasser]

اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك ... لا إله إلا أنت سبحانك أنى كنت من الظالمين.

جزاك الله كل خير وجعله فى ميزان حسناتك..