ترحيل قيمة من تكست بوكس الى خلية

[حسين مامون]

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

اخواني :  احتاج الى كود لترحيل قيم  مثلا من الفورم التكست بوكس1 الى الخلية  a1

 شرط ان يكون تنسيق القيمة هكذا 50.00 او 50.50  

ويقبلها الاكسيل كما هي

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

تم تعديل مارس 25, 2017 بواسطه حسين مامون

[حمادة عمر]

تفضل اخي الكريم

Private Sub CommandButton1_Click()

With Sheet1.Range("a1")
            .Value = Me.TextBox1.Value
            .NumberFormat = "0.00"
    TextBox1.Text = Format(TextBox1, "0.00")
End With
End Sub

واليك ملف كمثال

 

كود لترحيل قي من التكست بوكس الى الخلية مع التنسيق المطلوب.rar

[حسين مامون]

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

اخي حمادة عمر اشكرك جزيل الشكر  

عمل رائع  ولكن  ولكن  مع قلة تمكني من ال vba لم استطيع التغلب على المشكلة   fبعد اذن القائمين عللا هذا المنتدى العظيم سارفق نمودج من الملف  وارجو ان  اجد عندك ضالتي 

الشرح في صفحةnamoudaj

 

فورم ادخال بيانات و ترحيل.rar

[حمادة عمر]

تفضل اخي الكريم

اليك الملف التالي به المطلوب ان شاء الله

نقبل خالص تحياتي

 

 

 

 

فورم ادخال بيانات و ترحيل.rar

[حسين مامون]

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

حفظك الله يا اخي 

ماذا عن msgbox عند ادخال رقم  في combobox1 الفورم2  و الرقم غير موجود في العمود b صفحة tafasil

هل ممكن

تحياتي

تم تعديل مارس 27, 2017 بواسطه حسين مامون

[حسين مامون]

13 ساعات مضت, حسين مامون said:

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

حفظك الله يا اخي 

ماذا عن msgbox عند ادخال رقم  في combobox1 الفورم2  و الرقم غير موجود في العمود b صفحة tafasil

هل ممكن

تحياتي

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

اريد رسالة msgbox عند اجراء البحث عن  رقم غير موجود في العمودa صفحة almajmou3

(الفورم 2)