كيفية التعامل مع التكست بوكس بالمعادلات

[احمد محمد على]

اخوانى السلام عليكم

كيف اتعامل مع التكست بوكس

اريد ان يكون التكست بوكس رقم1=الخلية المقابله لتاريخ معين مكتوب فى التكست بوكس رقم4

التكست بوكس رقم2 يكون بداخله معادله تجمع بشرط لتكست بوكس رقم5 بمعنى ان كتب فى رقم 4 رقم 8 يجمع العمود h بشرط ان يكون العمود a يحتوى على رقم8

اشكركم

4444.rar

[ياسر خليل أبو البراء]

 

وعليكم السلام أخي الكريم أحمد

يرجى تغيير الرقم في لقبك بلقب .. لكي نتعرف عليك بشكل أفضل

بالنسبة لطلبك الجزء الأول مفهوم أما الجزء الثاني فغير مفهوم على الإطلاق

الجزء الأول من طلبك ألا وهو :

32 دقائق مضت, احمد21 said:

اريد ان يكون التكست بوكس رقم1=الخلية المقابله لتاريخ معين مكتوب فى التكست بوكس رقم4

إليك الكود التالي جرب وأخبرني بالنتيجة ويرجى توضيح الطلب الثاني بشيء من التفصيل ..

رابط الكود من هنا

 

[احمد محمد على]

اخى ياسر

السلام عليكم

عندما سجلت رفض الاسم احمد محمد فكتبت احمد21 فقبل

طريقة استخدم sumif ,sumifs داخل التكست

وجارى تغيير او محاولة تغيير اسم الظهور

[ياسر خليل أبو البراء]

يمكن استخدام دوال الإكسيل في المحرر عن طريق استخدام كلمة Application.WorksheetFunction.Sum مثال دالة الجمع ثم تفتح قوس وتضع نطاق الجمع ثم تغلق القوس

نفس الفكرة ولكن مع تغير البارامترات للدوال الأخرى ..

مزيد من التفاصيل ونوافيك بالمطلوب إن شاء الله

[احمد محمد على]

اخى ياسر

ما اطلبه داخل الفورم كما قدمت مثالا لدالة vlookup وعملت معى وبجدارة

وارجو ان تعطى لى مثال للجمع sumif داخل التكست

ولك الشكر اخى

[أبو حنــــين]

مرحبا

بعد اذن اخي ياسر

ضع الكود التالي في زر 

Private Sub CommandButton1_Click()

    Dim Rng As Range, M As Long, sh As Worksheet, last As Long
    If Not IsDate(TextBox1) Or TextBox1 = "" Then GoTo 100
    Set sh = Sheets("حسابات")
    last = sh.Cells(sh.Rows.Count, 2).End(xlUp).Row
    Set Rng = sh.Range("b4:b" & last)
    On Error Resume Next
    M = Rng.Cells.Find(CDate(TextBox1), LookAt:=xlWhole, MatchCase:=True).Activate
    TextBox4.Value = sh.Range(ActiveCell.Address).Offset(, 8)
100
    TextBox2.Value = WorksheetFunction.SumIf(sh.Range("a4:a" & last), 8, sh.Range("j4:j" & last))
    
End Sub

 

[احمد محمد على]

اخى ابوحنين

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

ممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممتاز

الله الله

وفقكم الله

[أبو حنــــين]

الان, احمد محمد على said:

اخى ابوحنين

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

ممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممتاز

الله الله

وفقكم الله

العفو 

هناك تعديل بسيط

Private Sub CommandButton1_Click()

    Dim Rng As Range, M As Long, sh As Worksheet, last As Long
    
    Set sh = Sheets("حسابات")
    last = sh.Cells(sh.Rows.Count, 2).End(xlUp).Row
    Set Rng = sh.Range("b4:b" & last)
If Not IsDate(TextBox1) Or TextBox1 = "" Then GoTo 100
    On Error Resume Next
    M = Rng.Cells.Find(CDate(TextBox1), LookAt:=xlWhole, MatchCase:=True).Activate
    TextBox4.Value = sh.Range(ActiveCell.Address).Offset(, 8)
100
    TextBox2.Value = WorksheetFunction.SumIf(sh.Range("a4:a" & last), 8, sh.Range("j4:j" & last))
    
End Sub

 

هل اكتشفت موقع الخطأ 

جرب ان تترك مربع النص الخاص بالتاريخ فارغا في الكود الاول ستكتشف الخطأ

السبب هو موقع السطر التالي

If Not IsDate(TextBox1) Or TextBox1 = "" Then GoTo 100

يجب ان يكون بعد تعريف المتغيرين :  sh  و   Last