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

احمدزمان

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4,385

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

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

  • Days Won

    12

 نوع المحتوي 

مشاركات المكتوبه بواسطه احمدزمان

    إنشاء استعلام عن قيم ونصوص معينه تحت شرط معين

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم و رحمة الله وبركاته

    كل عام وانتم بخير

    اخي الفاضل

    اضخل رقم الفاتورة ثم اضغط زر كل البيانات 

    Dim Q1, Q2, FR, TR
Range("A11:L111").ClearContents
Q1 = Range("C6").Value 'رقم الفاتور
TR = 11
For Q2 = 1 To Sheets.Count
If Sheets(Q2).Name = ActiveSheet.Name Then GoTo 3
With Sheets(Q2)
For FR = 3 To 3333
If .Cells(FR, 14) = Q1 Then
Cells(TR, 1) = .Cells(FR, 3) & .Cells(FR, 4)
Cells(TR, 2) = .Cells(FR, 5)
Cells(TR, 3) = .Cells(FR, 6)
Cells(TR, 4) = .Cells(FR, 7)
Cells(TR, 5) = .Cells(FR, 8)
Cells(TR, 6) = .Cells(FR, 9)
Cells(TR, 7) = .Cells(FR, 10)
Cells(TR, 8) = .Cells(FR, 11)
Cells(TR, 9) = .Cells(FR, 12)
Cells(TR, 10) = .Cells(FR, 13)
Cells(TR, 11) = .Cells(FR, 27)
Cells(TR, 12) = .Cells(FR, 26)
Cells(TR, 13) = Sheets(Q2).Name

TR = TR + 1
End If
Next FR
End With
3 Next Q2


End Sub

     

    Testعمرضاحي.xls

    • Like 1

    استعلام بيانات بين تاريخين و اسم الشركة

    في منتدى الاكسيل Excel

    قام بنشر

    و عليكم السلام

    تم تسمية نطاقات جديدة

    الكود هو 

    Range("INPUT").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "ORDER"), CopyToRange:=Range("OUTPUT"), Unique:=False

    المشكلة التي واجهتني

    البيانات الموجودة نم جلبها من برنامج آخر لذلك كان التاريخ عبارة عن نص ويجب تعديلة

     

    خدمات سيارات new 2.xls

    • Like 1

    ترحيل الي حساب صندوق

    في منتدى الاكسيل Excel

    قام بنشر

    و عليكم السلام و رحمة الله وبركاته

    اخي الفاضل

    اعذرني : مازلت احاول ان افهم

    الآن في ورقة 2 تركي الى تركي

    اذا كتبت في عمود نوع الدفع كلمة "تصريف"

    و كتبت في عمود الجهة المستفيدة كلمة "دولار"

    وكتبت في عمود سعر التصريف المبلغ "4.56"

    ماذا تريد من الترحيل ان يفعل

     

    حساب

    في منتدى الاكسيل Excel

    قام بنشر

    حول موضوع استخراج اسم اليوم في العمود M

    انت استخدمت دالة طويلة وهي 

    =IF(L3="";"";VLOOKUP(WEEKDAY(L3);{1,"الأحد";2,"الإثنين";3,"الثّلاثاء";4,"الأربعاء";5,"الخميس";6,"الجمعة";7,"السبت"};2;0))

    يمكنك استخدام دالة اصغر و ابسط

    وهي 

    =IF(L3="";"";TEXT(L3;"b2dddd"))

     

    حساب

    في منتدى الاكسيل Excel

    قام بنشر

    و عليكم السلام و رحمة الله وبركاته

    جزاك الله خيرا

    ============

    للعمليات الحسابية للخلايا التي بها نصوص او "" فراغ يجب استخدام الدالة SUM

    لأنها تقوم بالتعامل مع النصوص على القيمة 0

    واذا اردت التعديل على الملف نفسة ممكن اعمله لك

    توزيع الأقساط و متابعة سدادها بـ Excel

    في منتدى الاكسيل Excel

    قام بنشر

    في ٢‏/٦‏/٢٠١٨ at 01:46, omnia92 said:

    ممكن نعدل نخلى الدفعات تكون اسبوعيه مش سنويه 

    ان شاء الله ممكن

    ممكن نخليه خلال عدد ايام محدد بين كل قسسط

    يعني

    7 ايام اسبوعي

    15 يوم كل اسبوعين

    30 كل شهر

    بس مشتغل باي تاريخ

    الهجري لو الميلادي

    منع الترحيل في حالة المكرر

    في منتدى الاكسيل Excel

    قام بنشر

    المشكلة في هذا الكود الموجود في شيت 2 

    Private Sub Worksheet_Change(ByVal Target As Range)

lr = Range("A2").End(xlDown).Row
If Target.Column = 2 Or Target.Column = 5 Or Target.Column = 6 Then
   Range("g2:g" & lr).FormulaR1C1 = "=SUMIF(R2C2:RC[-5],RC[-5],R2C5:RC[-2])+SUMIF(R2C2:RC[-5],RC[-5],R2C6:RC[-1])"
    Range("g2:g" & lr).Value = Range("g2:g" & lr).Value
End If
End Sub

    حيث انه عند افراغ ورقة 2 من البيانات فانة يقوم بوضع الدالة Sumif لكامل خلايا الورقة 2 في العمود G

     

    ولكن

    ان شاء الله نجد الحل في المساء

×
×
  • اضف...

Important Information

  I accept