طلب تصحيح كود الموجود في الفورم

[mostapha20]

السلام عليكم يا احلى أعضاء

اليوم بدي طلب بسيط عليكم وصعب علي وهو ممكن تصحيح الكود الموجود في المرفقات كي لا يتم اضاهر دالك الخطء عند اضافة عدد من الفورم وشكراا

 

 

 

stock.rar

[mostapha20]

ههه صبري نفد فوجدة الحل

Private Sub TextBox1_Change()
Dim LR As Integer, R As Integer, T As Integer
ListBox1.Clear
With Sheets("Sheet1")
    LR = .Cells(.Rows.Count, 2).End(xlUp).Row
    For R = 2 To LR
        If .Cells(R, 2) Like "*" & TextBox1.Text & "*" Then
            ListBox1.AddItem
            ListBox1.List(T, 0) = .Cells(R, 1)
            ListBox1.List(T, 1) = .Cells(R, 2)
            ListBox1.List(T, 2) = .Cells(R, 3)
            ListBox1.List(T, 3) = .Cells(R, 4)
            ListBox1.List(T, 4) = .Cells(R, 5)

            T = T + 1
        End If
    Next
End With
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox6.Enabled = False

Me.TextBox4.SetFocus


End Sub


Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0
End Sub
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0
End Sub



'ÍÏË ÇáÖÛØ Úáì ÒÑ ÇáÊÚÏíá
Private Sub CommandButton3_Click()
Dim i As Integer

If TextBox4.Value = vbNullString Then
TextBox4.Value = "0"
End If
If TextBox5.Value = vbNullString Then
TextBox5.Value = "0"
End If



    LR = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
       For i = 2 To LR
         If Sheet1.Cells(i, 1).Value = Val(TextBox2) Then
            Sheet1.Cells(i, 3).Value = Me.TextBox4.Value
            Sheet1.Cells(i, 4).Value = Me.TextBox5.Value
        
            Sheet1.Cells(i, 6) = Val(Me.TextBox4.Value) - Val(Me.TextBox5.Value)
            Sheet1.Cells(i, 5) = Val(Sheet1.Cells(i, 5)) - Val(Sheet1.Cells(i, 6))


            

            
        End If
Next




MsgBox " Ëã ÇáÊÚÏíá " & Me.TextBox3.Value, 524352, "ÊÚÏíá"


Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox1.SetFocus




ListBox1.Clear
TextBox1_Change




End Sub

'ÍÇá ÊÍÏíÏ ÇÍÏ ÕÝæÝ ÇáíÓÊ ÈæßÓ ÈÇáÖÛØ ÚáíÉ
Private Sub ListBox1_Click()
'äÞá ÈíÇäÇÊ ÇáÕÝ ÇáãÍÏÏ Çáì ÇáÊßÓÊ ÈæßÓÓ
For i = 0 To ListBox1.ColumnCount - 1
    Me.Controls("TextBox" & i + 2).Value = Me.ListBox1.Column(i)
    Me.TextBox4.Value = ""
    Me.TextBox5.Value = ""
Next

End Sub
'ÍÏË ÇäØáÇÞ ÇáÝæÑã






'end
Private Sub CommandButton2_Click()
Dim answer As Integer
answer = MsgBox("åá ÃäÊ ãÊÃßÏ ãä ÇáÎÑæÌ", 524324, "ÎÑæÌ")
If answer = vbYes Then
    End
Else
    'do nothing
End If

End Sub


Private Sub UserForm_Activate()
TextBox1_Change
End Sub

 

[KHMB]

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

نعم هذا يحصل في الاكسل عند تنسيق الخلايا كرقمية وتدخل فيها قِيم نصيِة

وهذا ماحصل بالفعل عندك فقط عند ترحيل التعديلات لانك جعلت القِيم الخاصة بالتكسات في الكود بين علامتي تنصيص وهنا تعتبر قيمة نصية وليس رقمية وترحل الي الشيت كقيمة نصية مع العلم ان تنسيق خلايا الشيت رقمية وليس نصية 

 اخوك / أبو الحسن والحسين

تم تعديل سبتمبر 13, 2015 بواسطه KHMB

[mostapha20]

دائما لك رد وإجابة على أسالتي KHMB

متشكر اخي على شرحك

[محمد عبدالسلام]

السلام عليكم ورحمة الله اخي  مصطفى

ممكن توضح لي  من اين يتم تصحيح هذا الخطأ جزيت خيرا وبارك الله فيك على المعلومات

[محمد حسن المحمد]

السلام عليكم أخي محمد عبد السلام 

لاحظ ظهور إشارة تعجب ومثلث للأسفل عند الدخول إلى خلية كتب بها غير التنسيق المعتاد

انقر بالماوس على المثلث واختر تجاهل إن شئت أو غيّر من تنسيق خلايا إلى نوع التنسيق الذي ترغبه 

عام - رقم -عملة -  محاسبة - تاريخ مختصر....إلخ.وذلك بعد تحديد الخلايا المرغوب تغيير تنسيقها من الصفحة الرئيسية - تنسيق -تنسيق خلايا - التبويب رقم

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

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

ملاحظة: ما كتبته هو بعد إذن إخوتي الأكارم الذين أحاطوا بالموضوع دراسة وبحثاً .وهذا جهد المقل أخي محمد.

[محمد عبدالسلام]

رائع..جزيتم خيرا وبارك الله فيك اخي  محمد حسن المحمدي على المعلومات الرائعة

[mostapha20]

        If Sheet1.Cells(i, 1).Value = Val(TextBox2) Then
            Sheet1.Cells(i, 3).Value = Me.TextBox4.Value
            Sheet1.Cells(i, 4).Value = Me.TextBox5.Value
        
            Sheet1.Cells(i, 6) = Val(Me.TextBox4.Value) - Val(Me.TextBox5.Value)
            Sheet1.Cells(i, 5) = Val(Sheet1.Cells(i, 5)) - Val(Sheet1.Cells(i, 6))