اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

تم تعديل بواسطه حسين مامون
رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

 

 

 

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

هل ممكن

تحياتي

تم تعديل بواسطه حسين مامون
رابط هذا التعليق
شارك

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

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

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

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

هل ممكن

تحياتي

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

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

(الفورم 2)

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information