hegazee

تفضل أخي الكريم تم عمل زر لسهولة التلوين . اختر الخلايا أولا ثم اضغط على الزر و أكتب حروف أو كلمات سواء عربي أو انجليزي و سيقوم بتلوينها تلوين حروف.xlsm

حلول رائعة من أساتذتي الكرام فلهم كل الشكر و التقدير. إضافة بسيطة قمت بتعديل الملف من خلالها و هي التحكم في الخلايا التي أريد تنسيقها و كذلك إضافة "هـ" بعد التاريخ من خلال زر. مثل التاريخ.xlsm

ضع الملفات كلها في مجلد واحد أو جرب إحدى هذه الطرق الموجودة بالرابط https://drive.google.com/file/d/1Rl2SiiQemlQbKM69GeJR0t3BEBynImFy/view?usp=sharing

تفضل أخي الكريم ملف به التاريخ الأحدث و الأقدم باستخدام المعادلات و الأكواد. اختر ما يحلو لك. الأحدث و الأقدم.xlsm

ما المقصود بأكبر تاريخ؟ الأحدث أم الأقدم؟

جرب هذا الكود Sub deletX() Dim x As String, ce As Range x = InputBox("What is the word you want to delete Cells contain it?") If x = "" Then Exit Sub For Each ce In Selection On Error Resume Next If Len(ce.Value) >= Len(x) And InStr(1, ce.Value, x, vbTextCompare) > 0 Then ce.ClearContents On Error GoTo 0 Next ce End Sub

تحياتي للأستاذ / أمير حل رائع . إضافة بسيطة و هو كود لاستحراج أكبر قيمة مع النص الموجود بجانب الرقم Function LargestValueWithOriginalText(rng As Range) As String Dim cell As Range Dim matches As Object Dim maxNum As Double Dim num As Double Dim regex As Object Dim resultText As String ' Create a regular expression object Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "\d+\.?\d*" ' Pattern to match numbers (including decimals) regex.Global = True maxNum = -1 ' Initialize maxNum to a low value resultText = "No numeric values found." ' Default message ' Loop through each cell in the specified range For Each cell In rng If Not IsEmpty(cell.Value) Then ' Find all matches in the cell Set matches = regex.Execute(cell.Value) ' Loop through all found matches For Each Match In matches num = CDbl(Match.Value) ' Convert match to a number If num > maxNum Then maxNum = num ' Update maxNum if the current number is larger resultText = cell.Value ' Store the text of the cell with the largest number End If Next Match End If Next cell ' If a number was found, return the original text If maxNum > -1 Then LargestValueWithOriginalText = resultText Else LargestValueWithOriginalText = resultText End If End Function اكبر قيمه (2).xlsm

تحياتي للأستاذ/ عبدالله و لكن الكود يتعامل فقط مع أول عمود إذا كان به بيانات ولا يضيف صفوف إذا كان العمود الأول فارغا Aالعمود

و عليكم السلام و رحمة الله و بركاته تفضل أخي الكريم Sub InsertBlankRowForAllColumns() Dim lastRow As Long Dim lastColumn As Long Dim i As Long, j As Long ' تحديد آخر صف وآخر عمود يحتويان على بيانات lastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lastColumn = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column ' البدء من آخر صف والعمل إلى الأعلى For i = lastRow To 2 Step -1 ' التحقق من وجود بيانات في أي من الأعمدة For j = 1 To lastColumn If Cells(i, j).Value <> "" Then Rows(i + 1).Insert Shift:=xlDown Exit For ' الخروج من الحلقة الداخلية إذا وجدنا بيانات End If Next j Next i End Sub إضافة صف.xlsm

تفضل أخي الكريم =A2 + IF(DATEDIF(A2; TODAY(); "m") >= 12; 30; IF(DATEDIF(A2; TODAY(); "m") >= 8; 20; IF(DATEDIF(A2; TODAY(); "m") >= 4; 10; 0))) لا تنسى وضع التاريخ في خلية A2 و ستظهر الزيادة في الخلية التي بها المعادلة

طلبك هنا https://www.officena.net/ib/topic/41803-كود-طباعة-بعد-المعاينة/#google_vignette

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

المشكلة ان كم الارتبطاتات التشعبية ضخم جدا حوالي 36 ملف و كل ملف به 12 ورقة عمل فممكن تبدل الارتباط حسب اسم الملف الجديد يعني كلك يمين على الارتباط و تختار تحرير و ثم الملف الجديد بالاسم الجديد كما بالصورة. يتبقى مشكلة الارتباطات الاخرى المرتبطة باسم الملف القديم و هنا يمكن استخدام خاصية البحث و الاستبدال الاسم القديم بالاسم الجديد

الملفات ضخمة و بها معلومات هائلة و كم ضخم من البيانات و أيضا بالملف الرئيسي ارتباطات تشعبية لسحب البيانات من الملفات الفرعية فقط لا يوجد رابط بين اسم المعلم و الملف الخاص به و يمكن عمل ذلك من خلال الارتباطات التشعبية . تضغط على اسم المعلم فيفتح لك الملف الخاص به

تأكد من الملف مره أخرى و أنك لم تقم بحذف أي معادلات و واضح في مبلغ القرش الأول أنه مليم و ليس قرش.خلي بالك من العلامة العشرية في صفحة ادخال البيانات. قمت بادخال الأرقام التي أضفتها و كانت النتيجة كالتالي