فوزى فوزى قام بنشر يناير 8, 2023 مشاركة قام بنشر يناير 8, 2023 السلام عليكم ورحمة الله وبركاته شكرا لمنتدى اوفيسنا على ما تقدمونه من مساعدات من خلال بحثى فى منتداكم عثرت على هذا الشت للعبقرى الاستاذ عبدالله باقشير عند الضغط على زر الاظهار يظهر فورم ويعرض النتائج الموجوده فى الجدول المطلوب تعديل طفيف على الكود ليعرض النتائج بنفس عرض الاعمدة وبنفس تنسيق التاريخ عرض النتائج فى الفورم.xlsm رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يناير 9, 2023 الكاتب مشاركة قام بنشر يناير 9, 2023 بعد اذنكم المطلوب ان يكون عرض اعمدة الفريم الموجودة فى اليوزر الفورم ان تكون بنفس عرض اعمدة الشيت ويكون تنسيق اعمدة الفريم تكون نفس تنسيق اعمدة الشيت رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر يناير 9, 2023 أفضل إجابة مشاركة قام بنشر يناير 9, 2023 وعليكم السلام ورحمة الله تعالى وبركاته تقضل استاد فوزي ربما هدا ما تقصد Const MyWidth As Single = 80 Const MyHight As Single = 20 Private Sub TEST1() Dim WS As Range Dim Lf As Double, Tp As Double Dim ContColmn As Integer, r As Integer, c As Integer Set WS = Range("A3:I17") ContColmn = WS.Columns.Count For r = 1 To WS.Rows.Count l = 0 Lf = Me.Frame1.Width - 100 For c = 1 To ContColmn Lf = Lf - WS.Columns(c).Width With Me.Frame1.Controls.Add("Forms.Label.1") .BorderStyle = 1 .Move Lf, Tp, MyWidth, MyHight .Width = WS.Columns(c).Width Call TEST(.Name, WS.Cells(r, c)) End With Next Tp = Tp + MyHight c = 0 Next Set X = Nothing End Sub Private Sub TEST(iName As String, MyCel As Range) With Me.Controls(iName) .BackColor = MyCel.Interior.Color .Caption = MyCel.Text .TextAlign = 2 With .Font .Name = MyCel.Font.Name .Bold = True .Size = MyCel.Font.Size End With End With End Sub Private Sub UserForm_Initialize() Me.Frame1.SpecialEffect = 0 TEST1 End Sub عرض النتائج فى الفورم_1.xlsm 1 1 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يناير 9, 2023 الكاتب مشاركة قام بنشر يناير 9, 2023 تسلم ايديكم على هذا الجمال الف الف شكر ورضى الله عنكم وعن والديكم انت عبقرى استاذ محمد هذا هو المطلوب 1 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يناير 14, 2023 مشاركة قام بنشر يناير 14, 2023 العفو استاد فوزي. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها