اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

hegazee

02 الأعضاء
  • Posts

    58
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو hegazee

  1. جرب هذه الطريقة من موقع مايكروسوفت
  2. من قائمة ملف اختار خيارات ثم متقدم و افعل كما بالصورة
  3. تفضل أخي الكريم مع التحكم بنوع الفرز و البيانات التي تريد فرزها فرز عملاء.xlsm
  4. بعد إذن أستاذتنا أ. عبدالله و أ. ابو أحمد. على حسب ما فهمت تم فصل التاريخ عن الوقت في الملف التالي المصنف1.xlsx
  5. تفضل الملف بعد التعديل. تم استخدام المعادلة =COUNTIFS(C5:C32;"";D5:D32;"";E5:E32;"<>") المصنف2.xlsx
  6. أين الملف؟!
  7. . تم استخدام المعادلة التالية لاظهار الناتج. تفضل =IF(L10<>""; L10 & "فدان "; "") & IF(K10<>""; K10 & "قيراط "; "") & IF(J10<>""; J10 & "سهم "; "") & IF(I10<>""; I10 & "م²"; "") مساحة.xlsx
  8. و عليكم السلام و رحمة الله و بركاته. حسب ما فهمت فأنت تريد تحويل المتر المربع لمساحات فدان و قيراط و سهم ثم عمل تفقيط بذلك. تم عمل اللازم بالملف المرفق مساحة.xlsm
  9. المشكلة في التنسيق. اختار تنسيق خلايا ثم الرقم بعدين أوك
  10. موجود ملف بالمنتدى للمبدعين الاستاذه محمد هشام و عبدالله بشير فيه طلبك . راجع هذا الرابط https://www.officena.net/ib/topic/123860-بحث-وترحيل-بيانات-بين-تاريخين/#google_vignette
  11. تفضل أخي الكريم تم عمل زر لسهولة التلوين . اختر الخلايا أولا ثم اضغط على الزر و أكتب حروف أو كلمات سواء عربي أو انجليزي و سيقوم بتلوينها تلوين حروف.xlsm
  12. حلول رائعة من أساتذتي الكرام فلهم كل الشكر و التقدير. إضافة بسيطة قمت بتعديل الملف من خلالها و هي التحكم في الخلايا التي أريد تنسيقها و كذلك إضافة "هـ" بعد التاريخ من خلال زر. مثل التاريخ.xlsm
  13. ضع الملفات كلها في مجلد واحد أو جرب إحدى هذه الطرق الموجودة بالرابط https://drive.google.com/file/d/1Rl2SiiQemlQbKM69GeJR0t3BEBynImFy/view?usp=sharing
  14. تفضل أخي الكريم ملف به التاريخ الأحدث و الأقدم باستخدام المعادلات و الأكواد. اختر ما يحلو لك. الأحدث و الأقدم.xlsm
  15. ما المقصود بأكبر تاريخ؟ الأحدث أم الأقدم؟
  16. جرب هذا الكود 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
  17. تحياتي للأستاذ / أمير حل رائع . إضافة بسيطة و هو كود لاستحراج أكبر قيمة مع النص الموجود بجانب الرقم 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
  18. تحياتي للأستاذ/ عبدالله و لكن الكود يتعامل فقط مع أول عمود إذا كان به بيانات ولا يضيف صفوف إذا كان العمود الأول فارغا Aالعمود
  19. و عليكم السلام و رحمة الله و بركاته تفضل أخي الكريم 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
  20. تفضل أخي الكريم =A2 + IF(DATEDIF(A2; TODAY(); "m") >= 12; 30; IF(DATEDIF(A2; TODAY(); "m") >= 8; 20; IF(DATEDIF(A2; TODAY(); "m") >= 4; 10; 0))) لا تنسى وضع التاريخ في خلية A2 و ستظهر الزيادة في الخلية التي بها المعادلة
  21. طلبك هنا https://www.officena.net/ib/topic/41803-كود-طباعة-بعد-المعاينة/#google_vignette
  22. و عليكم السلام و رحمة الله و بركاته تفضل أخي الكريم بالملف المرفق زر به كود معاينة و طباعة زر طباعة و معاينة.xlsm
  23. المشكلة ان كم الارتبطاتات التشعبية ضخم جدا حوالي 36 ملف و كل ملف به 12 ورقة عمل فممكن تبدل الارتباط حسب اسم الملف الجديد يعني كلك يمين على الارتباط و تختار تحرير و ثم الملف الجديد بالاسم الجديد كما بالصورة. يتبقى مشكلة الارتباطات الاخرى المرتبطة باسم الملف القديم و هنا يمكن استخدام خاصية البحث و الاستبدال الاسم القديم بالاسم الجديد
×
×
  • اضف...

Important Information