hegazee

. تم استخدام المعادلة التالية لاظهار الناتج. تفضل =IF(L10<>""; L10 & "فدان "; "") & IF(K10<>""; K10 & "قيراط "; "") & IF(J10<>""; J10 & "سهم "; "") & IF(I10<>""; I10 & "م²"; "") مساحة.xlsx

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

المشكلة في التنسيق. اختار تنسيق خلايا ثم الرقم بعدين أوك

موجود ملف بالمنتدى للمبدعين الاستاذه محمد هشام و عبدالله بشير فيه طلبك . راجع هذا الرابط https://www.officena.net/ib/topic/123860-بحث-وترحيل-بيانات-بين-تاريخين/#google_vignette

تفضل أخي الكريم تم عمل زر لسهولة التلوين . اختر الخلايا أولا ثم اضغط على الزر و أكتب حروف أو كلمات سواء عربي أو انجليزي و سيقوم بتلوينها تلوين حروف.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