دغيدى

أخى الفاضل / khhanna شكرا لكم

كود لمعرفة أرقام الألوان وتركيباتهاالمختلفة ( RGB) وإعطاء نموذج لجميع الألوان امسح وجرب colors56.rar

أخى الكريم / القومي سلام الله عليكم أشكركم من كل قلبى على ذكركم اسمى وسط الكبار .. أحبكم الله كما احببتم خلقه

أخى الفاضل .. اطرح سؤالا محددا لتجد إجابة محددة

الفاضل / عبدالله باقشير سلام الله عليكم اهل اليمن الكود يقوم بحذف الزر إذا كان موجودا بالمدى

عفوا أخى الفاضل المهذب مهندس الأكواد/ طارق

Sub deletshape() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.Type = msoPicture Then sh.Delete End If Next sh End Sub الأخوة الفاضل / سلام الله عليكم الأكواد السابقة تحذف كل الأشكال بما فيها الزرار ما رأيكم فى هذا الكود الذى يحذف الصور فقط

اللهم أنعم عليكم بالرضا والصحة والعافية .. يارب العالمين

أخى الفاضل / عليك بعمل تنسيق شرطى بالقيم المتكررة على العمود المطلوب

الأخوة الفاضل / الخالدي .. رجب جاويش مبروك ووفقكم الله دائماً لخدمة إخوانكم في هذا المنتدى العظيم إن شاء الله في رقى دائم ً بإذن الله

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer For i = 1 To Worksheets.Count Sheets(1).Cells(i, 1).Value = Worksheets(i).Name Next i End Sub يمكن وضع هذا الكود لإدراج اسماء جميع الأوراق

الأستاذ الفاضل دوما / محمد طاهر أشكركم على الرد السريع والعمل الفائق .. وفقكم الله

كود أعجبنى .. يمكن عمل فهرست للوصول السريع فهرس Print File Names.rar

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Name = Cells(1, 1) End Sub أخى الفاضل .. يمكن وضع هذا الكود فى حدث الورقة ليعطى نتيجة عكسية بمعنى ان يكون اسم الورقة كما هو مكتوب فى الخلية الأولى A1

=MID(CELL("filename");FIND("]";CELL("filename"))+1;LEN(CELL("filename"))) اثراءً للموضوع لاظهار اسم الورقة فى خلية معينة

الأخت الفاضلة / مريم سلام الله عليكم أين جدول الحاسب .. لم ألحظ فى الجدول الموجود مادة الحاسب .. برجاء التوضيح

أخى الفاضل / حسان الحاوى بداية طيبة وموفقة مع اجمل منتدى

ub add_rows() Application.ScreenUpdating = False Dim aa, bb, c As Integer a = InputBox("أدخل رقم الصف الأول الذى تريد إدراج صف خالى أعلاه ؟") aa = Val(a) b = InputBox("أدخل عدد الطلاب") bb = Val(b) c = bb * 2 + aa - 1 For I = aa To c Step 2 Dim D As String D = Str$(I) Rows(D).Select Selection.Insert Shift:=xlDown ' الخطوات السابقة تقوم بإدراج صف أعلى بنفس تنسيق الصف الأسفل.... وإذا أردت حذف هذا التنسيق قم بإزالة علامة التعليق عن السطر التالى 'Selection.FormatConditions.Delete Next I Application.ScreenUpdating = True Range("A1").Select End Sub تم تعديل بسيط لتحديث الشاشة وسرعة تنفيذ الكود

أخى الفاضل / أحمد البحيرى مبارك .. وبالتوفيق نحو غد أفضل

جزاكم الله خيرا

أخى الفاضل / سلام الله عليكم قمت بتعديل الهوامش للتطابق .. قمت بطباعتها .. يارب تنال طلبكم فاتورة 4.rar

أخى الفاضل / ahmedarm سلام الله عليكم عرض العمود الافتراضى 8.38 يعادل 2 سم وارتفاع الصف الافتراضى 14.25 يعادل نصف سم

أخى الفاضل هل هذا ما تقصده فاتورة 2.rar

أخى الفاضل سلام الله عليكم الموضوع واسع ولكنه سهل .. فضع ملفا حتى يمكن تحديد المطلوب بدقة .. الكل فى خدمتكم

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If [a1] = "" Then MsgBox " فارغة a1 الخلية " Exit Sub End If ActiveSheet.Name = [a1] End Sub يمكن ان تضع نفس الكود فى ThisWorkbook ليتغير تلقائيا دون زر أمر