الاكسيل : ترجمة دوال الاكسل من الانجليزية الى الفرنسية Translate English to French

 

بسم الله الرحمن الرحيم 

اهلا بكم منابعى موقع عالم الاوفيس

كود مهم جدا من اكواد الاكسيل VBA 

ترحيل البيانات من اليوزرفورم الى شيت الاكسيل اتوماتيكيا بدون ازرار ترحيل

فى هذا المقال سوف نقوم بحل مشكلة احد الاصدقاء الذى يطلب ان يتم ترحيل البيانات من خلال التكست بوكس بدون ازرار ترحيل 

سوف يتم عمل هذا الكود كالاتى:-

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

lr = Cells(Rows.Count, 1).End(xlUp).Row + 1

a = 8

If Len(Me.TextBox3) = a Then

Range("a" & lr).Value = Me.TextBox1.Value

Range("b" & lr).Value = Me.TextBox2.Value

Range("c" & lr).Value = Me.TextBox3.Value

MsgBox "Done"

Me.TextBox1 = ""

Me.TextBox2 = ""

Me.TextBox3 = ""

Exit Sub

Else

MsgBox "Number Mustbe 8 number"

End If

 

End Sub

 

 وبهذا نكون قد انتهينا من كتابة كود اليوم لو استفدت من الكود اعمل لايك وشير على وسائل التواصل الاجتماعى 

لتحميل ملف العمل