تنسيق خلايا

[لزهر مدلل]

السلام عليكم

أريد تنسيق معين في خلية بها ماكرو

الملف في المرفقات

CHEQUE1.rar

[سمير نجار]

وعليكم السلام

تقصد ان يبدا التفقيط من وسط الخلية؟

جرب المرفق

CHEQUE111.rar

وعليكم السلام

تقصد ان يبدا التفقيط من وسط الخلية؟

جرب المرفق

[لزهر مدلل]

مشكور أخي الكريم سمير نجار هو ذاك

 

 

 

[لزهر مدلل]

لو سمحت أيضا أريد تنسيق في خلية بحيث أكتب مثلا 398 تكون على النحو التالي   8  9  3 أي تجعل مسافة بين الارقام على حسب عرض العمود أي عند زيادة في عرض العمود تزيد المسافة آليا

 

و شكرا

[سمير نجار]

اخي الكريم

بما ان الخلية مرتبط بها دالة تفقيط  . لم أجد لك حلاً سوى جعل تنسيق الخلية هكذا (0 0 0 0 0 0 ) ولكن السيئ هنا اذا كتبت 125 سيظهر 5 2 1 0 0 0

واذا كتبت 1234567890 سيظهر 0 9 8 7 6 5 1234

اي كل صفر يمثل رقماً في الخلية

 

[لزهر مدلل]

مشكور اخي الكريم

أنا اقصد خلية عادية ليست مرتبطة بدالة

[سمير نجار]

اخي الكريم

وانا تحدثت عن خلية عادية وليست دالة

وذلك عن طريق تنسيق الخلية ثم مخصص واكتب 0 0 0 0 0  وسيتم تنسيق الخلية كما ذكرت في مشاركتي السابقة

[لزهر مدلل]

مشكور أخي الكريم

أرجو الا اكون قد اثقلت عليك مازال شيئ واحد

عندي كود vb معاد في كل ورقة عمل هل استطيع أن اكتبه مرة واحدة و يعمل مع كل ورقات العمل

الكود

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = "$F$1" Then
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "NAFTAL EL OUED"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "EL-OUED "
    Range("F7:G7").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("F2").Select
    End If
    End Sub