Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود حاسبة للاعداد الكبيرة


Go to solution Solved by أ / محمد صالح,

Recommended Posts

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

الاخوة الافاضل السلام عليكم

في المرفق برنامج حاسبة( calculator) بسيط جدا  ولكن للاسف عند اجراء عملية الضرب يقف عند حد معين من الارقام

المطلوب لطفا منكم  كود  يجعل من الممكن ضرب الاعداد الكبيرة في اعداد كبيرة (اي يقبل اعداد كبيرة غير محددة)

مع تقديري 

حاسبة 4.xlsm

Link to post
Share on other sites
  • Solution

تحتاج فقط إلى تغيير تنسيق الرقم

يمكنك تغيير كود زر الضرب والقسمة إلى هذا الكود

Private Sub CommandButton3_Click()
TextBox3.Text = Format(Val(TextBox1.Text) * Val(TextBox2.Text), "#.00")
End Sub

Private Sub CommandButton4_Click()
TextBox3.Text = Format(Val(TextBox1.Text) / Val(TextBox2.Text), "#.00")
End Sub

 

  • Like 2
Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...