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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات



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


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


نتائج البحث عن ردود العضو :ابونور
عدد النتائج (43) نتيجة
22-11-2018 07:19 مساء
icon نقل البيانات من ورقة العمل إلى أخرى | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
وعليكم السلام ورحمة الله وبركاته
فى البدايه عندى استفسار بسيط لماذا تكتب (رحمة الله) هكذا (رحمته الله)؟
اما الآن وبعد أذن الأستاذ ياسر خليل جرب هذا التعديل على الكود
وبالتوفيق ان شاء الله
Sub YasserKhalil()
    Dim a, b, c, x, e, ws As Worksheet, sh As Worksheet, m, v, z As Long
    Worksheets("goods receipt").Range("A9:B300").ClearContents
    Worksheets("goods receipt").Range("D9:D300").ClearContents
    Application.ScreenUpdating = False
   Set ws = ThisWorkbook.Worksheets(3)
        Set sh = ThisWorkbook.Worksheets(1)
        x = Application.Match(sh.Range("B1").Value, ws.Columns(1), 0)
        If Not IsError(x) Then
            For Each e In Array("B2|3", "B3|5", "E1|2", "E2|4", "E3|6")
            sh.Range(Split(e, "|")(0)).Value = ws.Cells(x, Val(Split(e, "|")(1))).Value
            Next e
            z = 1
            m = ws.Cells(x, Columns.Count).End(xlToLeft).Column
            If m < 7 Then Exit Sub
            a = ws.Range(ws.Cells(x, 7), ws.Cells(x, m)).Value
            ReDim b(1 To (UBound(a, 2)) / 2, 1 To 1), c(1 To (UBound(a, 2)) / 2, 1 To 1)
            For v = 1 To (UBound(a, 2)) / 2
            b(v, 1) = a(1, z)
            z = z + 1
            c(v, 1) = a(1, z)
            z = z + 1
            Next
            sh.Range("B9").Resize(UBound(b, 1)).Value = b
            sh.Range("D9").Resize(UBound(b, 1)).Value = c
            sh.Range("A9").Resize(UBound(b, 1)).Value = Evaluate("ROW(1:" & UBound(b, 1) & ")")
    End If
    Application.ScreenUpdating = True
End Sub
21-11-2018 08:54 مساء
icon تحديد عرض اعمدة listbox من عرض label | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
وعليكم السلام ورحمة الله وبركاته
بعد عدة تجارب تم بفضل الله التوصل الى المطلوب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لكنى اضم صوتى الى صوت الاستاذ ياسر خليل فى ضبط عرض الاعمده يدوى من خلال الخصائص فى بداية التصميم
وبالتوفيق ان شاء الله
19-11-2018 07:24 مساء
icon تقريب كما بالمثال | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
جرب هذه المعادله
=CEILING(A1,0.25)
19-11-2018 07:10 مساء
icon طلب تعديل علي كود حذف | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
وعليكم السلام ورحمة الله وبركاته
تم بفضل الله التعديل على الكود ليناسب طلبك
Sub Ested3a_1()

    Application.ScreenUpdating = False

Dim RNG, cell As Range
Set RNG = Range("D6:D1006")
On Error Resume Next
For Each cell In RNG

If ListBox1.Column(0) = cell.Offset(, 5).Text And ListBox1.Column(1) = cell.Value Then
cell.Select
Application.GoTo cell, True
Range("B1") = ListBox1.Column(0)
End If
Next
        
       
Unload Me
    Application.ScreenUpdating = True

End Sub

لكن إن سمحتى لى لم افهم الغرض من الكود اولا لم يتم الحذف كما يشير أليه أسم الفورم
ثانيا ماالغرض من كتابة رقم العقد بعد حذفه فى الخليه B1
ثالثا كان من الممكن دمج الفورمين بحث وحذف فى فورم واحد
وبالتوفيق أن شاء الله
16-11-2018 10:51 صباحا
icon طلب تعديل علي كود بحث | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
وعليكم السلام ورحمة الله وبركاته
تم بفضل الله التعديل على الليست بوكس ليتوافق مع العناوين كما تم التعديل على الكود ليحقق ماطلبت بإذن الله
وبالتوفيق ان شاء الله
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
14-11-2018 07:19 مساء
icon تعديل معادلة داخل الكود لإيجاد قيمة خلية ما | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
وعليكم السلام ورحمة الله وبركاته
كل الأحترام والتقدير لك أستاذ مهند على مثابرتك لفهم الحل ومحاولة التطبيق
ووفقك الله للأتقان والتمكن من مفاتيح الأكسيل
لكتابة السطر بطريقة FormulaR1C1 أستخدم هذا السطر
Range("G6").FormulaR1C1 = "=Excursion!R" & v + 2 & "C9"

أما إن أردت جلب القيمه فقط فاستخدم السطر التالى
Range("G6").Value = Sheets("Excursion").Range("I" & v + 2).Value

أما بالنسبه للخطا الموجود فى الصورة فاعتقادى أنه نتيجة تشغيل الكود فى صفحة Tra. Exc 
وبالتوفيق أن شاء الله

 
12-11-2018 06:55 مساء
icon سؤال : الفورم لا يقوم بعرض جميع البيانات لبعض الأرقام | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
السلام عليكم ورحمة الله وبركاته
بعدأذن أستاذ على
إلغاء شرط lr=1 لايفى بالغرض لأنه يأتى ببيانات أول رقم يكتب ولا يغير البيانات حتى وأن كان الرقم غير موجود بالنطاق
وجرب أن شأت رقم 53 سيأتى ببيانات الرقم 5 بالرغم من عدم وجود رقم 53 بالنطاق
ونأتى إلى المشكله سنجد أن المشكله بالنطاق المدخل بالمعادله وهو يشمل الجدول كاملا 
لذلك الشرط يقول فى حالة وجود الرقم لمره واحده
فإن أخذنا الرقم 1 نجده تكرر أكثر من مره فى الجدول كله وكذلك الرقم 2
وبفضل الله تم تعديل النطاق ليحدد العمود الأول فقط وليس النطاق كاملا
lr = WorksheetFunction.CountIf(Range("a3:a10000"), CLng(TextBox1.Value))
 
أرجوا ان يكون الشرح واضح وبالتوفيق أن شاء الله

 
11-11-2018 06:42 صباحا
icon معادلة الاكسل التى يمكن من خلالها جمع مجموعة متفرقة اومتصلة من الخلايا مع احتواء اي منها على حرف ول | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
نفس الحل السابق
=SUM(M14,Z14)

وبالنسبه لعدم ظهور الصفر ممكن من التنسيق الشرطى انك تجعله مثلا (-)
او باضافة شرط الى المعادله
=IF(SUM(M14,Z14)=0,"",SUM(M14,Z14))

وبالتوفيق ان شاء الله
10-11-2018 12:21 صباحا
icon معادلة الاكسل التى يمكن من خلالها جمع مجموعة متفرقة اومتصلة من الخلايا مع احتواء اي منها على حرف ول | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
وعليكم السلام ورحمة الله وبركاته
معادلة SUM
08-11-2018 06:20 مساء
icon حذف موظف عن طريق الليست بوكس | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
وعليكم السلام ورحمة الله وبركاته
لجعل كودك صالح للعمل تم عمل التعديلات الآتيه

أولا تغيير معادلة المسلسل 
=IF(B10="","",ROW()-9)

لأن المعادله الأولى تأتى بخطأ عند الحذف
ثانيا تغيير معرفة آخر رقم صف به بيانات من العمود A الى العمود B
لأنه فى العمود الأول يأتى بأخر صف ممتد أليه معادلة المسلسل
أما بالعمود الثانى يأتى بأخر صف به بيانات
Range("b1000").End(xlUp).Row
ولسرعة عمل الكود تم إضافة هذا السطر للخروج من الحلقه التكراريه لعدم الفائده من أكمالها
Exit For

وهذا الكود كاملا
Private Sub CommandButton3_Click()
On Error Resume Next
        Dim i As Integer
        UserForm3.TextBox9.Text = ListBox1.Column(1, ListBox1.ListIndex)
        UserForm3.TextBox10.Text = ListBox1.Column(2, ListBox1.ListIndex)
        If MsgBox("åá ÊÑíÏ ÝÚáÇð ÍÐÝ ÈíÇäÇÊ ÇáßæÏ/ " & TextBox9.Value & "  ÈÅÓã /" & TextBox10.Value, vbYesNo + vbQuestion, "ÑÓÜÇáÉ ãä ÇáãÈÑãÌ ÃÈæÔÜÑæÞ") = vbYes Then
        For i = 10 To Range("b1000").End(xlUp).Row
        If Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then
        Rows(i).Select
        Selection.Delete
        Exit For
        End If
        Next i
        End If
    TextBox9.Text = ""
    TextBox10.Text = ""
End Sub


ومرفق الملف بعد التعديل

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
05-11-2018 06:47 صباحا
icon اضافة وتعديل على الدالة المعرفة AlsaqrUnique لجلب التاريخ | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
لإظهار الناتج الصحيح استخدم السطر التالى
Range("k" & v + 2).FormulaR1C1 = "=Sum(RC[-3]-RC[-1])"

وبالتعديل على سطرك يصبح هكذا
Range("k" & v + 2).FormulaR1C1 = "=SUBTOTAL(9,R4C8:R[-1]C[-3])-SUBTOTAL(9,R4C10:R[-1]C[-1])"

ولفهم الموضوع بإختصار
المتغيرين R,C يعملان نفس عمل دالة OFFSET تقريبا
وعندما يكون المتغير بدون قيمه تكون قيمته نفس الخليه المكتوب بها المعادله
كما فى حالتك المتغير C بدون قيمه فأصبح يرمز إلى العمود K وهو نفس عمود الخليه المكتوب بها المعادله
أرجوا أن أكون وفقت فى الشرح المختصر
اللهم علمنا ماينفعنا وانفعنا بما علمتنا 
04-11-2018 09:53 مساء
icon اضافة وتعديل على الدالة المعرفة AlsaqrUnique لجلب التاريخ | الكاتب :ابونور |المنتدى: اكسيل اسئله واجابات
 
شكرا لكما استاذ على  و استاذ مهند على الكلام الطيب
وجزاكما الله بمثل مادعوتما لى وزياده
اتفضل استاذ مهند هذا التعديل 
ضعه فى اخر الكود
Range("b" & v + 2).FormulaR1C1 = "Total"
Range("h" & v + 2).FormulaR1C1 = "=SUBTOTAL(9,R4C8:R[-1]C)"
Range("i" & v + 2).FormulaR1C1 = "=SUBTOTAL(9,R4C9:R[-1]C)"
Range("j" & v + 2).FormulaR1C1 = "=SUBTOTAL(9,R4C10:R[-1]C)"


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





الساعة الآن 07:55 صباحا

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