اذهب الي المحتوي
أوفيسنا

تعديل الكود ليعرض بيانات في خليه ما


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

السلام عليكم أورجو التعديل على هذا الكود

Private Sub CommandButton1_Click()

Sheet2.Select

Sheet2.Cells(4, 3).Value = TextBox1.Value

Sheet2.Cells(5, 3).Value = TextBox2.Value

Sheet2.Cells(6, 3).Value = TextBox3.Value

MsgBox Prompt:=" تم تعديل البيانات بنجاح", Title:="رسالة تأكيد"

End Sub

ليقوم بعرض البانات المدونة في الخلية رقم ( 4.3) في تكست بوكس رقم 1 عند فتح الفورم

وعند التغيير في التكست بوكس ينقل هذا التغيير في الخلية وهكذا في بقية الخلايا

والطلب الآخر

يعدل المسج بوكس ليسأل ( هل تريد تعديل البيانات ؟ ) في حالة اختيار (نعم )يقوم بالتغيير وفي حالة اختيار ( لا ) لا يغير أي شيء .

وشكراً

تم تعديل بواسطه أبوســـارة1973
رابط هذا التعليق
شارك

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

أنا من المنامة

أسكن في إسكان ســار

تفضل الملف المرفق :

المطلوب :

عند الضغط على الزر يفتح الفورم ويعرض في التكست بوكس 1البيانات المدونة في الخلية D6

وفي التكست بوكس 2 اليبانات المدونة في الخلية D7 وفي التكست بوكس 3 البيانات المدونة في الخلية D8

علما بأن الزر الموجود في أسفل الفورم يظل في حالة Visibleحتى يتم تغيير القيم يتحول إلى Enable

شكرا لاهتمامك

تم تعديل بواسطه أبوســـارة1973
رابط هذا التعليق
شارك

السلام عليكم

بعد اذن اخي عبد الله

و بعد اذن اخي رجب

قمت بعمل اللازم و لكنني وجدت رجب قد سبقني لذلك

و اردت ان اثري الموضوع فقط لان عمل اخي رجب يفي بالغرض

تعديل.rar

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information