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

سليم حاصبيا

أوفيسنا
  • Content Count

    6,817
  • تاريخ الانضمام

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

  • Days Won

    133

سليم حاصبيا last won the day on يناير 20

سليم حاصبيا had the most liked content!

السمعه بالموقع

5,434 Excellent

عن العضو سليم حاصبيا

  • الإسم الفعلي
    فريق الموقع
  • تاريخ الميلاد 08 مار, 1985

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    استاذ ثانوي
  • بلد الإقامة
    beiruth
  • الإهتمامات
    eXCEL

اخر الزوار

9,530 زياره للملف الشخصي
  1. اولا ما هو برأيك الشيت الاساسي (اسمه) ثانياً اين (في اي عامود) توجد هذه الكلمات
  2. تم تغيير اسم الورقة الاولى الى "DATA_BASE" لحسن التعامل مع المعادلات باللغة الاحنبية المعادلة المطلوبة في الخلية G2 يلزمها (Ctrl+Shift+Enter) وليس (Enter) وحدها لانها معادلة صفيف =IF(A2="","",INDEX(DATA_BASE!$C$2:$C$50,SMALL(IF(DATA_BASE!$C$2:$C$50<>"",IF(DATA_BASE!$A$2:$A$50=$A2,ROW($C$2:$C$50)-ROW($C$2)+1)),COUNTIF(DATA_BASE!$A$2:A2,A2)))) الملف مرفق للمعاينة SALIM_VLOOKUP.xlsx
  3. استبدل السطر حيث يوجد خطأ في الكود بهذه الــ 3 سطور If st <> vbNullString Then F.Cells(k, "AG") = Mid(st, 1, Len(st) - 1) End If
  4. ماكرو اخر يقوم بنفس العمل Option Explicit Sub Join_by_three_by_Loops() Dim my_rg As Range Dim lr%, i%, col%, m%, k% col = Cells(1, Columns.Count).End(1).Column lr = Range("A2", Range("A1")).End(4).Row m = lr + 2 Range("A" & m).CurrentRegion.Clear i = 1 Do Until i > lr k = 0 Do While k < 3 Range("A" & i + k).Resize(, col).Copy _ Range("A" & m).Offset(, k * col) k = k + 1 Loop m = m + 1 i = i + 3 Loop End Sub
  5. جرب هذا الماكرو Option Explicit Sub Join_by_three() Dim my_rg As Range Dim lr%, i%, col%, m%, k% col = Cells(1, Columns.Count).End(1).Column lr = Range("a2", Range("A1")).End(4).Row m = lr + 2 Range("a" & m).Resize(10000, 3 * col).Clear For i = 1 To lr Step 3 For k = 0 To 2 Range("a" & i + k).Resize(, col).Copy _ Range("a" & m).Offset(, k * col) Next k m = m + 1 Next i End Sub MY_one_file.xlsm
  6. جرب هذا الكود Option Explicit Sub find_min() Dim F As Worksheet, i%, k% Dim lr, arr(1 To 8) Dim m%: m = 1 Dim st$ Set F = Sheets("Feuil2") lr = F.Cells(Rows.Count, "i").End(3).Row If lr < 9 Then Exit Sub F.Cells(9, "AG").Resize(lr).ClearContents For i = 9 To 30 Step 3 arr(m) = i m = m + 1 Next For k = 9 To lr For i = 1 To UBound(arr) If F.Cells(k, arr(i)) = F.Cells(k, "AF") Then st = st & F.Cells(2, arr(i) - 1) & ";" End If Next F.Cells(k, "AG") = Mid(st, 1, Len(st) - 1) st = vbNullString Next Erase arr: Set F = Nothing End Sub الملف مرفق مع زر لنتفذ الكود find_min.xlsm
  7. ربما هذا الكود يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Count = 1 And _ Application.CountIf(Range("salim_rg"), Target) <> 0 And Target.Offset(1) = "Total" Then ADD_rows (Target.Row) With Target.Offset(2, 1) .Formula = "=sum(B3:B" & Target.Row & ")" .Offset(, 1).Formula = "=sum(C3:C" & Target.Row & ")" .Offset(, 2).Formula = "=sum(D3:D" & Target.Row & ")" End With End If Application.EnableEvents = True End Sub '+++++++++++++++++++++++++++++++++++++++++ Sub ADD_rows(n%) Dim MyRows As Integer MyRows = Range("A3").CurrentRegion.Rows.Count + 2 Rows(n + 1).Insert Shift:=xlDown Cells(n, 1).Offset(, 1).Resize(, 3).Formula = _ "=VLOOKUP($A" & n & ",salim_rg,COLUMNS($A$1:A1)+1,0)" End Sub الملف للمعاينة مرفق Auto_Load.xlsm
  8. تفضل الحل في الصورة لا يمكن العمل لانه لا مجال لرؤية اعمدة الخلايا ولا صفوفها (من اين اعرف اني اتعامل مع الخلية D2 واستنتاج المطلوب من الخلية F2 مثلاُ) و بالتالي كيف تكتب معادلة Exemple.xlsx
  9. صديقي.. لا يمكن العمل على صورة و ليس لي اي علم ان صورة تستطيع ان تعالج معادلة من اكسل ريثما تستطيع MicroSoft ان تجعل الصورة تفعل هذا الشي عليك رفع الملف وليس صورة عنه
  10. أولاً استبدل الرقم 22 في المعادلات برقم اخر صف فيه بيانات عندك ثانياً المعادلات هي معادلات (صفيف ) وليست معادلات عادية لذلك لنتفيذ اي معادلة بعد كتابتها يجب الضغط على ( Ctrl+Shift+ Enter ) و ليس (Enter) وحدها للمزيد حول معادلات الصفيف هذا الفيديو (ركز على الوقت 2:16) منه https://www.youtube.com/watch?v=60fotBhcNRI
×
×
  • اضف...