لزهر مدلل قام بنشر أكتوبر 10, 2017 مشاركة قام بنشر أكتوبر 10, 2017 السلام عليكم أريد تنسيق معين في خلية بها ماكرو الملف في المرفقات CHEQUE1.rar رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر أكتوبر 10, 2017 مشاركة قام بنشر أكتوبر 10, 2017 وعليكم السلام تقصد ان يبدا التفقيط من وسط الخلية؟ جرب المرفق CHEQUE111.rar وعليكم السلام تقصد ان يبدا التفقيط من وسط الخلية؟ جرب المرفق رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر أكتوبر 11, 2017 الكاتب مشاركة قام بنشر أكتوبر 11, 2017 مشكور أخي الكريم سمير نجار هو ذاك رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر أكتوبر 11, 2017 الكاتب مشاركة قام بنشر أكتوبر 11, 2017 لو سمحت أيضا أريد تنسيق في خلية بحيث أكتب مثلا 398 تكون على النحو التالي 8 9 3 أي تجعل مسافة بين الارقام على حسب عرض العمود أي عند زيادة في عرض العمود تزيد المسافة آليا و شكرا رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر أكتوبر 11, 2017 مشاركة قام بنشر أكتوبر 11, 2017 اخي الكريم بما ان الخلية مرتبط بها دالة تفقيط . لم أجد لك حلاً سوى جعل تنسيق الخلية هكذا (0 0 0 0 0 0 ) ولكن السيئ هنا اذا كتبت 125 سيظهر 5 2 1 0 0 0 واذا كتبت 1234567890 سيظهر 0 9 8 7 6 5 1234 اي كل صفر يمثل رقماً في الخلية رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر أكتوبر 12, 2017 الكاتب مشاركة قام بنشر أكتوبر 12, 2017 مشكور اخي الكريم أنا اقصد خلية عادية ليست مرتبطة بدالة رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر أكتوبر 12, 2017 مشاركة قام بنشر أكتوبر 12, 2017 اخي الكريم وانا تحدثت عن خلية عادية وليست دالة وذلك عن طريق تنسيق الخلية ثم مخصص واكتب 0 0 0 0 0 وسيتم تنسيق الخلية كما ذكرت في مشاركتي السابقة رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر أكتوبر 12, 2017 الكاتب مشاركة قام بنشر أكتوبر 12, 2017 مشكور أخي الكريم أرجو الا اكون قد اثقلت عليك مازال شيئ واحد عندي كود 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.