محمد الورفلي1 قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 السلام عليكم اول ماكرو اصنعه بفضل الله اولاً ثم الشكر للأساتذة في المنتدي الذين تعلمناً من شروحاتهم في الدروس فا انا طلابي دائما غريب بعض الشى ولكن اعرف ان الاكسل مرن الماكرو يعمل على توسيع الخلية النشطة افقي وعمودي وجعلها ضمن اطار وكذالك تلوينها وكذالك اختيار الخط الكوفي وجعل المقاس الخط 12 وكذلك تلوين الخلية النشطة ماكرو متعدد.rar
ياسر خليل أبو البراء قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 بارك الله فيك أخي محمد الخازمي وجزيت خيراً تسجيل الماكرو ينتج عنه أسطر كثيرة جداً لا داعي لها ------------------------------------------------- جرب الكود بالشكل التالي .. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = 0 With Selection .ColumnWidth = 15 .RowHeight = 20.5 .Interior.ColorIndex = 3 .Font.Name = "Monotype Koufi" .Font.Size = 12 .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .BorderAround ColorIndex:=xlAutomatic, Weight:=xlMedium End With End Sub تقبل تحياتي 1
محمد الورفلي1 قام بنشر أبريل 19, 2015 الكاتب قام بنشر أبريل 19, 2015 السلام عليكم هي محاولة ليس الا واعرف انها طريقة بدائية لكن الجميل في اكواد الاكسل مرنه وتستجيب لمن يعرف ان يستخدم خفايا الاكواد
ياسر خليل أبو البراء قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 أنا لم أنكر محاولتك الجميلة أخي الغالي محمد إنما أحببت أن أعرض عليك كيفية التعامل مع الأكواد واختصار الأسطر الكثيرة التي ينتجها الماكرو المسجل جزاك الله خير الجزاء ونصيحة مني لا تتوقف .. لا تتوقف ..سر على بركة الله
محمد الورفلي1 قام بنشر أبريل 19, 2015 الكاتب قام بنشر أبريل 19, 2015 اعرف والله صفاء قلبك اتجاه الاخوه الاعضاء فمنك نتعلم استاذ ياسر العزيز سؤال لو سمحت ممكن توضيح اخر ثلاث اسطر لاني عند حذفهم لام يتغير شي في الكود 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = 0 With Selection ' ÇÑÊÝÇÚ ÇáÎáíÉ .ColumnWidth = 22 ' ÚÑÖ ÇáÎáíÉ .RowHeight = 22.5 ' áæä ÇáÎáíÉ .Interior.ColorIndex = 40 ' äæÚ ÇáÎØ .Font.Name = "Abuhmeda -f2" ' áæä ÇáÎØ .Font.ColorIndex = 1 ' ÍÌã ÇáÎØ .Font.Size = 12 'ÇáÎØ ÚÑÈÖ .Font.Bold = True 'ÇáÎØ ãÇÆá .Font.Italic = True 'ÇÍÊæÇÁãäÇÓÈ Ýí ÇáÎáíÉ .ShrinkToFit = True 'ããßä ÊæÖÍ ÇáÇÓØ 1æ2æ3 '1 .HorizontalAlignment = xlCenter '2 .VerticalAlignment = xlCenter '3 .BorderAround ColorIndex:=xlAutomatic, Weight:=xlMedium End With 'End Sub
ياسر خليل أبو البراء قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 توسيط أفقي لمحتوى الخلية توسيط رأسي عمل حدود خارجية للخلية تقبل تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.