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


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


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


نتائج البحث عن ردود العضو :khaled alborene
عدد النتائج (143) نتيجة
15-09-2018 02:11 مساء
icon ضبط كود الترحيل من صفحة الى عدة صفحات | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 
 If Evaluate("ISREF('" & CStr(cl.Value) & "'!A1)") Then
                lr = Worksheets(CStr(cl.Value)).Cells(Rows.Count, 3).End(xlUp).Row
                lr = IIf(lr <= 7, 8, lr + 1)
                Worksheets(CStr(cl.Value)).Range("A" & lr & ":H" & lr).Value = ws.Range("B" & cl.Row & ":I" & cl.Row).Val

استاذ ياسر ممكن شرح لهاي الاكواد
وخصوصا cstr
14-09-2018 08:46 مساء
icon سلاسل رقمية | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 استاذ ياسر ماهي وظيفة هذه بالكود
.Resize(v(i, 1))

وما هي وظيفة هذا الجزء من الكود
.Value = Evaluate("ROW(1:" & .Count & ")")

 
14-09-2018 02:03 مساء
icon سلاسل رقمية | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 
v = Application.Index(Range("A3").CurrentRegion.Value, , 2)

هل هذه لاظهار عدد المصفوفات لماذا استخدام index وهي من دوال البحث
UBound(v)

ما هذه المعادلة 
 Debug.Print

ما وظيفة هذه

 
14-09-2018 01:24 مساء
icon سلاسل رقمية | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء العلي القدير
Sub Test()
    Dim v, i As Long, m As Long

    v = Application.Index(Range("A2").CurrentRegion.Value, , 2)

    For i = 2 To UBound(v)
        Debug.Print v(i, 1)
        m = Cells(Rows.Count, 1).End(xlUp)(2).Row
        With Range("A" & m).Resize(v(i, 1))
            .Value = Evaluate("ROW(1:" & .Count & ")")
        End With
    Next i
End Sub

استاذ ياسر ممكن شرح للكود
14-09-2018 10:38 صباحا
icon لائحة أسماء دون تكرار ومرتبة أبجدياً | الكاتب :khaled alborene |المنتدى: اكسيل شروحات ودروس
 
=IF(ROWS($A$2:A2)>SUM(IF(FREQUENCY(IF(Salim!$A$2:$A$100<>"";MATCH(Salim!$A$2:$A$100;Salim!$A$2:$A$100;0));ROW($A$2:$A$100)-ROW($A$2)+1);1));"";INDEX(Salim!$A$2:$A$100;SMALL(IF(FREQUENCY(IF(Salim!$A$2:$A$100<>"";MATCH(Salim!$A$2:$A$100;Salim!$A$2:$A$100;0));ROW($A$2:$A$100)-ROW($A$2)+1);ROW($A$2:$A$100)-ROW($A$2)+1);ROWS($A$2:A2))))

صباح الخير جميعا
هاي المعادلة المستخدمة في الحل في الصفحة رقم 2 
كيف ممكن احلل هاي المعادلة لفهم افضل لطريقة الحل لانو صراحتا مش فاهم منها اشي 
02-09-2018 08:37 مساء
icon طلب ترقيم تلقائي للمستند | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 استاذ ياسر اشكر لك حلك الرائع 
هذا هو المطلوب تماما 
شكرا لك 
01-09-2018 08:42 صباحا
icon تطبيق ممتاز للتحميل من اليوتيوب وجميع المواقع UDownloader for Fast APK | الكاتب :khaled alborene |المنتدى: منتدى برامج المحمول
 كيف يتم التحميل 
30-08-2018 01:55 مساء
icon طلب ترقيم تلقائي للمستند | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 USERFORM 1
اريد النتيجة بالتكست بكس بجانب رقم المستند 
واريد تلك النتيجة بعد كتابة نوع المستند
30-08-2018 11:32 صباحا
icon طلب ترقيم تلقائي للمستند | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 اريد عندما اقوم بوضع فرضا فاتورة يقوم بوضع رقم الفاتورة بشكل تلقئي عن طريق العودة الى قاعدة البيانات فاذا كانت اخر فاتورة رقمها 5 يضع الفاتورة الثانية 6 وهكا بالنسبة لسند القبض
30-08-2018 10:06 صباحا
icon طلب ترقيم تلقائي للمستند | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 صديقي استاذ ياسر هل هذه تقوم بالترقيم التلقائي
انا اريد ان ادخل اسم المستند ولنفرض فاتورة يقوم بادخال في خانة رقم المستند رقم 1
30-08-2018 08:59 صباحا
icon طلب ترقيم تلقائي للمستند | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 صديقي اسلام اشكرك على المعادلة 
ولكن هذا الحل اريده بالفورم وليس بشيت الاكسل
29-08-2018 07:49 مساء
icon عمل خانة الرصيد في listbox | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 up....

الصفحة 1 من 12 < 1 2 3 4 12 > الأخيرة »





الساعة الآن 08:17 صباحا

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