أكاديمية الصقر للتدريب

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :YasserKhalil
عدد النتائج (7982) نتيجة
25-08-2017 01:20 صباحا
icon ما هي كيفية طباعه الفاتورة بدون طباعه الاسطر الفارغه | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 أخي العزيز خالد
للمرة الثانية تفعل ما لا يعجبني فقد ذكرت أن هناك ملحوظة وتم حلها ... لما لا تكرم إخوانك بالمنتدى بالحل الذي توصلت إليه؟
المنتدى ليس للأخذ فقط وإنما هو للعطاء والأخذ ، ولاحظ أنني ذكرت العطاء أولاً لأن العطاء سيعلمك أكثر ويجعلك أكثر قدرة عن حل المشكلات التي تواجهك
عموماً لعله خير ، وأنت لك مطلق الحرية في إعطاء ما تملك من معلومة
تقبل تحياتي
25-08-2017 01:17 صباحا
icon تعديل فورمه .. | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 السلام عليكم أخي العزيز ناصر
ضع السطر التالي بعد سطر رسالة "كلمة المرور صحيحة ....."
If MsgBox("Do you want to continue?", vbQuestion + vbYesNo) <> vbYes Then MsgBox "Cancelled", vbExclamation: Exit Sub
24-08-2017 10:36 مساء
icon جلب اسماء العملاء الذين لديهم اكثر من فاتورة | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 تفضل أخي عبد الواجد الكود التالي عله يفي بالغرض

Sub Unique_From_Two_Columns_SUM_Totals()
    Dim ws      As Worksheet
    Dim sh      As Worksheet
    Dim dic     As Object
    Dim a       As Variant
    Dim e       As Variant
    Dim s       As Variant
    Dim x       As Variant
    Dim i       As Long

    Set ws = Sheets("اقساط")
    Set sh = Sheets("للعملاء اكثر من فاتورة")

    Set dic = CreateObject("scripting.dictionary")
    a = ws.Range("A3:AH" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value

    For i = 1 To UBound(a)
        s = a(i, 25) & vbTab & a(i, 7)
        If Not dic.Exists(s) Then
            dic(s) = Array(, , 0, 0, 0, "")
            x = Format(CStr(a(i, 6)), "yyyy/mm/dd")
        End If
        dic(s) = Array(a(i, 25), a(i, 7), dic(s)(2) + a(i, 8), dic(s)(3) + a(i, 34), dic(s)(4) + a(i, 9), x)
    Next i

    sh.Range("A2").Resize(dic.Count, 6).Value = Application.Transpose(Application.Transpose(dic.items))
End Sub
24-08-2017 10:07 مساء
icon جلب اسماء العملاء الذين لديهم اكثر من فاتورة | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام أخي الكريم أبو عبد الواجد
بالنسبة للعميل "حميد خلف أبو بسام - 1" يوجد تاريخين مخلفين لنفس الفاتورة ؟؟!! هل هذا منطقي ؟ وأي تاريخ في هذه الحالة تريد جلبه؟ على أي أساس وما هو المنطق في جلب التاريخ؟
24-08-2017 10:01 مساء
icon ما هي كيفية طباعه الفاتورة بدون طباعه الاسطر الفارغه | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام أخي الكريم خالد
تفضل الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim ws      As Worksheet
    Dim sh      As Worksheet
    Dim i       As Long
    Dim lr      As Long
    Dim c       As Long
    
    Set ws = Sheets("invoice")
    Set sh = Sheets("Sheet1")

    Application.ScreenUpdating = False
        ws.Rows("10:21").Hidden = False
        For i = 20 To 10 Step -1
            If ws.Cells(i, 2) = "" Then ws.Cells(i, 2).EntireRow.Hidden = True Else Exit For
        Next i
    
        '[PrintOut] قم باستبدال حدث معاينة الطباعة بحدث الطباعة
        ws.PrintPreview
    
        lr = sh.Cells(Rows.Count, 2).End(xlUp).Row + 1
        sh.Range("B" & lr).Value = ws.Range("D5").Value
        sh.Range("C" & lr).Value = ws.Range("D7").Value
        sh.Range("D" & lr).Value = ws.Range("C8").Value
    
        For i = 10 To 13
            sh.Cells(lr, c + 5).Value = ws.Cells(i, 2).Value
            sh.Cells(lr, c + 6).Value = ws.Cells(i, 4).Value
            c = c + 2
        Next i
    
        sh.Range("M" & lr).Value = ws.Range("F21").Value
    Application.ScreenUpdating = True
End Sub
24-08-2017 09:24 مساء
icon نسخ صف الى صفوف مختلفه البدايه | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 أخي العزيز ناصر أترك نقطة الفورم لمحترفي الفورم أخونا حسام خطاب وأخونا ياسر العربي .. أو يمكن الرجوع للموضوع القديم الذي فيه الفورم ومحاولة دمج الأكواد من خلاله ...
24-08-2017 09:22 مساء
icon مسح محتوى خلية و تبديلها بمعادلة | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 سلمت أخي العزيز صلاح والحمد لله أن تم المطلوب على خير
تقبل وافر تقديري واحترامي
24-08-2017 09:21 مساء
icon تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 أخي الكريم خالد ..
هل معنى أنه تم الحل ألا ترفق لنا الحل لنستفيد منه ؟!!
يرجى وضع الحل الذي توصلت إليه حتى يستفيد من يطلع على الموضوع مستقبلاً ويكون الموضوع مرجع لهذه المسألة
تقبل تحياتي
24-08-2017 09:20 مساء
icon عمل فورم بسيط.. للبحث في حساب الخزينه | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 قم بتحديد عرض أعمدة الليست بوكس من خلال الخاصية ColumnWidth .. 
24-08-2017 09:19 مساء
icon استخراج متوسط الشراء ومتوسط بيع كل مادة بالنقد والاقساط لمعرفة ارباح كل مادة | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك أخي الغالي حسام وجزيت خيراً

زيادةً في إثراء الموضوع يمكن استخدام المعادلة التالية لحساب متوسط السعر
=AVERAGEIF(قرطبة!$A$3:$A$2000,B106,قرطبة!$C$3:$C$2000)
24-08-2017 09:13 مساء
icon تنسيق التاريخ غير عادي عند الاستعلام | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 أخي الكريم حسين
إذا حذفت كلمة Value فهذا لن يغير في شيء حيث أن الإكسيل سيفهمها بشكل تلقائي .. كما يمكن استخدام كلمة Value2 مع التواريخ ، ويمكنك التجربة بنفسك ، ولكن قد يظهر التاريخ في هذه الحالة على شكل رقم تسلسلي أو يمكن استخدام كلمة Text للحصول على النص دون القيمة
24-08-2017 09:05 مساء
icon كود لاستبدال كلمة معينة بأخرى فى أكثر من نطاق | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك أخي العزيز رضوان ومشكور على مشاركتك الفعالة ونرجو الاستمرارية معنا في تقديم المزيد للأخوة الأعضاء

أخي الكريم أبا الحسن جرب الكود التالي
Sub Replace_In_Two_Ranges()
    Dim rng As Range
    
    Set rng = Union(Range("C5:C11"), Range("G5:G11"))
    rng.Replace "دون المستوى", "ضعيف", xlWhole
End Sub

الصفحة 656 من 666 < 1 655 656 657 666 > الأخيرة »





الساعة الآن 03:10 مساء

أعلن هنا
أعلن هنا
أعلن هنا