محمد زيدان2024

شكرا اخى الكريم تصحيح.xlsm

شكرا خالص اخي @محمد هشام. بس تعديل على الكود عايز انسخ كمان بيانات من مسلسل الى تاريخ الميلاد من نتيجةت4 الى نتيجة تقييم41

دي معادلة من شيت نتيجةت4 الى شيت نتيجة تقييم41 =IF(نتيجةت4!F13="";"";IF(نتيجةت4!F13="غ";"لم يتقن المعارف";IF(نتيجةت4!F13="ازرق";"يفوق التوقعات";IF(نتيجةت4!F13="اخضر";"امتلك المعارف والمهارات";IF(نتيجةت4!F13="اصفر";"يحتاج لبعض الدعم";IF(نتيجةت4!F13="احمر";"لم يتقن المعارف")))))) اريد تحويل المعادلة الى كود يعمل تلقائي @محمد هشام. تحويل الى كود.xlsx

شكرا أخى الكريم

التعديل على هذا الكود =IF(B10<>"";"";IF(E10="";"";IF(E10="غ";"غ";IF(E10>50;50;IF(E10<>"";E10;D10))))) بحيث اذا لم يتم كتابة في خلية E10 يتم وضع قيمة خلية D10 كما هى فى خلية F10 New ورقة عمل Microsoft Excel.xlsx

خطأ في الكود

لو حبيت اضعهم في Private Sub Worksheet_Change(ByVal Target As Range) يكون ازاي

كيفية اضافة كود الى كود واجعلهم في كود واحد Sub Names_Adjust() 'ضبط الأسماء قبل عملية الأبجدة '-------------------------- Dim ch Application.ScreenUpdating = False With Range("E10:E1009") For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا", , , True Next .Replace "ة", "ه", , , True .Replace "ي ", "ى ", , , True End With Kill_Spaces Application.ScreenUpdating = True End Sub مع الكود ده Sub Kill_Spaces() Dim sh As Worksheet, lr As Long, i As Long Set sh = ThisWorkbook.ActiveSheet lr = sh.Cells(Rows.Count, 5).End(xlUp).Row 'Application.ScreenUpdating = False For i = 10 To lr Do While InStr(sh.Cells(i, 5), " ") > 0 sh.Cells(i, 5).Value = Replace(sh.Cells(i, 5), " ", " ") Loop sh.Cells(i, 5).Value = Trim(sh.Cells(i, 5).Value) Next i 'Application.ScreenUpdating = True End Sub

شكرا بارك الله فيك

اضافة textbox و combobox الى TypeName فورم ادخال بيانات .xlsm

مبدع كالعادة أخى الحبيب @محمد هشام.

عند امتداد معادلة DATEDIF في الخلايا الفارغة تظهر ارقام حساب السن أول 10.xlsx

بارك الله فيك مبدع كالعادة @محمد هشام.

اخى الكريم @محمد هشام. مجهود تشكر عليه بس في تغيير ان الزر يكون CommandButton او Label اللى موجود في يوزر فورم يخرج من قائمة مثال زى الصورة زر موجود في اليوزر فوروم عند الضغط عليه تظهر اسماء الصفحات

المطلوب عمل يورز فورم يحتوى على زر شركة الحمد يخرج منه قائمة منسدلة باسماء الصفحات الموجودة في الشيت يوزر فورم.xlsb

استاذ ورئيس قسم وقائد بارك الله فيك اخي الكريم

تغيير خلفية النص المتحرك في user form مع تكبير الخط وجلعها نفس خلفية user form بنر1.xlsb

تم المسح ومازالت قائمة New ورقة عمل Microsoft Excel (2)(1).xlsb

لم يتم الحل

ممكن مرورك الكريم أخي @محمد هشام.

ظهور خلفية زرقاء في خلايا ف c178 New ورقة عمل Microsoft Excel (2).xlsb

مشكور اخى @محمد هشام. بارك الله فيك

مثال اللغة العربية في الشيت ناخد منها بيانات المجموع والتقدير وهكذا لكل المواد تروح لصق للنتيجة New ورقة عمل Microsoft Excel.xlsb

ممكن حل @محمد هشام.

السلام عليكم مطلوب كود نسخ تلقائي بيانات المجموع وتقدير الالوان لكل مادة من ورقة شيت الى ورقة نتيجة New ورقة عمل Microsoft Excel.xlsb