اذهب الي المحتوي
أوفيسنا

حسونة حسين

أوفيسنا
  • Posts

    1,070
  • تاريخ الانضمام

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

  • Days Won

    30

كل منشورات العضو حسونة حسين

  1. بارك الله فيك أخي وجعله الله زيادة في ميزان حسناتكم يوم القيامة
  2. السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل ورقة عمل Microsoft Excel جديد.xlsx
  3. جرب هذا الكود Sub test() Dim cell As Range For Each cell In Range("D2:D5000") If not IsNumeric(cell.Value) Then cell.Value = Val(Replace(cell.Value, "٫", ".")) End If Next cell End Sub
  4. وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل =IF(G2>=0;ROUND(G2; 0);ROUND(ABS(G2);0)) او =IF(G2>=0,ROUND(G2, 0),ROUND(ABS(G2),0))
  5. وعليكم السلام ورحمة الله وبركاته اخى عمليه الاستبدال بسيطه لا تحتاج لاكواد قم بالاتي ١ - حدد العامود الذي به الارقام ٢ - قم بالضغط على الزر ctrl + h ٣ - قم بوضع هذه العلامه ٫ واستبدلها بهذه . وستحل المشكله ان شاء الله وستجد انا الارقام اصبحت سليمه مع التركيز علي نفس الفاصله قم باخذها copy
  6. وعليكم السلام ورحمة الله وبركاته يرجى رفع ملف للعمل عليه
  7. وعليكم السلام ورحمة الله وبركاته تفضل لعله المطلوب نقل المبلغ.xlsx
  8. السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل اخي وعليك بالشرح المستفيض حتى يتم فهم مشكلتك بصورة اوضح تصنيع.xlsb
  9. السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل اخي Option Explicit Sub Search_Transfer() Dim WS As Worksheet, cel As Range, lr As Long, Temp(), I As Long, J As Long, X Set WS = ThisWorkbook.Worksheets("Sheet2") lr = WS.Cells(Rows.Count, "R").End(xlUp).Row For Each cel In WS.Range("R5:R" & lr) If cel <> "" Then X = Application.Match(cel, WS.Columns(13), 0) If Not IsError(X) Then I = I + 1 ReDim Preserve Temp(1 To 15, 1 To I) Temp(1, I) = I For J = 2 To 15 Temp(J, I) = WS.Cells(X, J).Value Next J End If End If Next cel Temp = Application.Transpose(Temp) If I > 0 Then WS.Range("V5").Resize(I, UBound(Temp, 2)).Value2 = Temp End Sub
  10. وعليكم السلام ورحمه الله وبركاته تفضل Sub Transfer_Non_Adjacent_Columns_Using_Arrays_By_Yasser_Khalil() Dim arr As Variant, i As Variant, cr As Variant, j As Long arr = Sheets("ورقة1").Range("A1").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(5, 8, 11, 15, 17, 20) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(1, 2, 3, 4, 5, 6) Sheets("ورقة2").Cells(1, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub
  11. السلام عليكم وبها نبدأ ارفق ملف اخي للعمل عليه
  12. السلام عليكم ورحمه الله وبركاته وبها نبدأ جرب هذا لعله طلبك Option Explicit Sub Sort4() Dim Ws As Worksheet Set Ws = ThisWorkbook.Worksheets("Sheet1") With Ws .Sort.SortFields.Clear .Sort.SortFields.Add Key:=.Range("E10:E13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Sort.SortFields.Add Key:=.Range("F10:F13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Sort.SortFields.Add Key:=.Range("G10:G13"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal .Sort.SortFields.Add Key:=.Range("H10:H13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With .Sort .SetRange Ws.Range("E9:H13") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With End Sub
  13. السلام عليكم ورحمه الله وبركاته تفضل من ابداعات العلامه خبور
  14. وعليكم السلام ورحمة الله وبركاته ممكن ترفق ملف للعمل عليه
  15. وجزاكم مثله اخى الحمد لله الذي بنعمته تتم الصالحات
  16. وعليكم السلام ورحمة الله وبركاته تفضل فصل الاسماء التي تحتوي على فاصل بينهم.xlsx
  17. السلام عليكم ورحمة الله وبركاته اخي يقصد بها ان تضع بدلا من كلمه Range الخلايا التي تريد جمعها =SUM(ABS(AC41:AC46))
  18. وعليكم السلام ورحمه الله وبركاته لو محتاج كود vba اجهز لك كود
  19. التحصيل يظهر وليس به مشكله سواء 7 او 8 School Fee Collection لystem-.xlsm
  20. وعليكم السلام تفضل اخي MKMK1.xlsm
  21. اخي الكود يرحل كما طلبت وليس به مشكله عدد 8دفعات المطلوب ترحيل الدفعة الأخرة فقط ونطاق الدفعات من السطر 15 الي السطر 22 كما بالصورة التالية
  22. السلام عليكم هذه هي صورة النتيجه الموجوده حاليا ما هي الصورة التي تحتاجها من الصور التالية 1- 2- 3- 4-
  23. وعليكم السلام ورحمه الله وبركاته تفضل اخي تنفيذ ماكرو بناء على قيمة خليه2.xlsb
  24. السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل =IF(C4="";"";"Em" & TEXT(C;"dd/mm/yyyy"))
  25. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ××××××××
×
×
  • اضف...

Important Information