الجموعي قام بنشر فبراير 2, 2015 مشاركة قام بنشر فبراير 2, 2015 السلام عليكم ورحمة الله تعالى وبركاته أساتذتي الأفاضل أريد منكم مساعدة المطلوب في المرفق تنسيق تلقائي.rar رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر فبراير 2, 2015 مشاركة قام بنشر فبراير 2, 2015 اخى الفاضل الجموعي ليه تنتظر لحد ما البيانات كلها يتم تعبئتها وبعدين تضغط تنسيق فيتم التنسيق .. ما تخليها من البداية وبمجرد الكتابة ... جرب الملف المرفق واكتب اى شئ في الخلية A3 او A4 هتلاقي كل حاجة نزلت بالتنسيقات خالص تحياتي تنسيق تلقائي.rar 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 3, 2015 الكاتب مشاركة قام بنشر فبراير 3, 2015 اخى الفاضل الجموعي ليه تنتظر لحد ما البيانات كلها يتم تعبئتها وبعدين تضغط تنسيق فيتم التنسيق .. ما تخليها من البداية وبمجرد الكتابة ... جرب الملف المرفق واكتب اى شئ في الخلية A3 او A4 هتلاقي كل حاجة نزلت بالتنسيقات خالص تحياتي أستاذي الفاضل بارك الله فيك فعلا كود رائع جدا انا اريد تنسيق بمدى ديناميكي قابل للزيادة أو النقصان لأن الترحيل يتم من الفورم وبمجرد ما ترحل البيانات يتم التنسيق ياريت تعديل على الكود الذي ادرجته في المشاركة 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 3, 2015 الكاتب مشاركة قام بنشر فبراير 3, 2015 للرفع رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر فبراير 3, 2015 مشاركة قام بنشر فبراير 3, 2015 اخى الجموعي ايه نوع التنسيق اللى انت عاوزه يتم تطبيقه على الصف المدرج من الفورم تحياتي رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 3, 2015 الكاتب مشاركة قام بنشر فبراير 3, 2015 اخى الجموعي ايه نوع التنسيق اللى انت عاوزه يتم تطبيقه على الصف المدرج من الفورم تحياتي استاذي الفاضل أريد تنسيق الصف الثاني مثال Range("A2:H2").Select به تنسيقات عند إضافة بيانات جديدة في I2 أقوم بإضافة العمود I2 في الكود السابق Range("A2:I2").Select وهكذا مع بقية الأعمدة Range("A2:J2").Select Range("A2:K2").Select أريد تعديل على الكود بمجرد إضافة بيانات عمود للفورم يتم التنسيق تلقائيا عند الترحيل رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر فبراير 3, 2015 مشاركة قام بنشر فبراير 3, 2015 اخى الجموعي انا بسألك ايه نوع التنسيقات اللى انت عاوز تضعها ( حدود - نوع خط كام.- حجم خط كام ) .. لانى مش حابب قصة النسخ واللصق دي عامة جرب الكود التالى لكن لابد ان تتأكد من اكتمال البيانات في الصف المدرج 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 تحياتي رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 3, 2015 الكاتب مشاركة قام بنشر فبراير 3, 2015 اخى الجموعي انا بسألك ايه نوع التنسيقات اللى انت عاوز تضعها ( حدود - نوع خط كام.- حجم خط كام ) .. لانى مش حابب قصة النسخ واللصق دي عامة جرب الكود التالى لكن لابد ان تتأكد من اكتمال البيانات في الصف المدرج 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 تحياتي فعلا هو المطلوب نوع التنسيقات ( حدود - نوع خط كام.- حجم خط كام ) هل هناك طريقة أخرى من غير طريقة النسخ واللصق في الكود رابط هذا التعليق شارك More sharing options...
أفضل إجابة ibn_egypt قام بنشر فبراير 3, 2015 أفضل إجابة مشاركة قام بنشر فبراير 3, 2015 اخى الفاضل حل اخر لربما يروق لك تحياتي تنسيق تلقائي.rar 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 4, 2015 الكاتب مشاركة قام بنشر فبراير 4, 2015 حل رائع جدا أستاذي الفاضل بارك الله فيك ودي وتقديري رابط هذا التعليق شارك 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.