مساعده ( تنسيق تلقائي)

[الجموعي]

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

أساتذتي الأفاضل

أريد منكم مساعدة

المطلوب في المرفق

 

تنسيق تلقائي.rar

[ibn_egypt]

اخى الفاضل الجموعي

 

ليه تنتظر لحد ما البيانات كلها يتم تعبئتها وبعدين تضغط تنسيق فيتم التنسيق .. ما تخليها من البداية وبمجرد الكتابة ... جرب الملف المرفق واكتب اى شئ في الخلية A3 او A4 هتلاقي كل حاجة نزلت بالتنسيقات

 

خالص تحياتي  

تنسيق تلقائي.rar

[الجموعي]

اخى الفاضل الجموعي

 

ليه تنتظر لحد ما البيانات كلها يتم تعبئتها وبعدين تضغط تنسيق فيتم التنسيق .. ما تخليها من البداية وبمجرد الكتابة ... جرب الملف المرفق واكتب اى شئ في الخلية A3 او A4 هتلاقي كل حاجة نزلت بالتنسيقات

 

خالص تحياتي  

 

أستاذي الفاضل بارك الله فيك

فعلا كود رائع جدا

انا اريد تنسيق بمدى ديناميكي  قابل للزيادة أو النقصان لأن الترحيل يتم من الفورم وبمجرد ما ترحل البيانات يتم التنسيق

ياريت تعديل على الكود الذي ادرجته في المشاركة 1

[الجموعي]

للرفع

[ibn_egypt]

اخى الجموعي 

 

ايه نوع التنسيق اللى انت عاوزه يتم تطبيقه على الصف المدرج من الفورم 

 

تحياتي  

[الجموعي]

اخى الجموعي 

 

ايه نوع التنسيق اللى انت عاوزه يتم تطبيقه على الصف المدرج من الفورم 

 

تحياتي  

استاذي الفاضل

أريد تنسيق الصف الثاني

مثال

Range("A2:H2").Select
به تنسيقات
عند  إضافة بيانات جديدة في I2 أقوم بإضافة العمود I2  في الكود السابق
Range("A2:I2").Select
وهكذا مع بقية الأعمدة
Range("A2:J2").Select
Range("A2:K2").Select

أريد تعديل على الكود بمجرد إضافة بيانات عمود للفورم يتم التنسيق تلقائيا عند الترحيل

[ibn_egypt]

اخى الجموعي 

 

انا بسألك ايه نوع التنسيقات اللى انت عاوز تضعها ( حدود - نوع خط كام.- حجم خط كام ) .. لانى مش حابب قصة النسخ واللصق دي عامة جرب الكود التالى لكن لابد ان تتأكد من اكتمال البيانات في الصف المدرج

Sub تنسيق()
Dim Sh As Object
Set Sh = ThisWorkbook.Sheets(1)
    Range("A2:I2").Select
    Selection.Copy
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    Sh.Range(Range("A" & LR), Range("A" & LR).End(xlToRight)).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Sh.Range("A1").Select
End Sub

تحياتي  

[الجموعي]

اخى الجموعي 

 

انا بسألك ايه نوع التنسيقات اللى انت عاوز تضعها ( حدود - نوع خط كام.- حجم خط كام ) .. لانى مش حابب قصة النسخ واللصق دي عامة جرب الكود التالى لكن لابد ان تتأكد من اكتمال البيانات في الصف المدرج

Sub تنسيق()
Dim Sh As Object
Set Sh = ThisWorkbook.Sheets(1)
    Range("A2:I2").Select
    Selection.Copy
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    Sh.Range(Range("A" & LR), Range("A" & LR).End(xlToRight)).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Sh.Range("A1").Select
End Sub

تحياتي  

فعلا  هو المطلوب

 نوع التنسيقات ( حدود - نوع خط كام.- حجم خط كام )

هل هناك طريقة أخرى من غير طريقة النسخ واللصق في الكود

[ibn_egypt]

اخى الفاضل

 

حل اخر لربما يروق لك

 

تحياتي  

تنسيق تلقائي.rar

[الجموعي]

حل رائع جدا أستاذي الفاضل

بارك الله فيك

ودي وتقديري