M.NHAKAMI

وعليكم السلام جربت الدالة من قبل ولم تنجح ارفت لك الملف ترقية العدد.xlsm

السلام عليكم الكود التالي كود يقرب الاعداد باستخدام الدالة Math.Round انا اريد الدالة التي تقرب العدر للعدر الاعلى يعني لوعندي 2.1 يرقيه للعدد 3 كود باستخدام محرر فيجوال بالاكسل Me.TextBox3.Text = Math.Round(Val(TextBox1.Text) - Val(TextBox2.Text)) استخدمت RoundUP وما كان في نتيجه

السلام عليكم حاولت صنع دالة بمحرر الفيجوال بالاكسل الدالة عبارة عن مدخلات لـ textbox لا يقبل الادخال فيه غير الارقام لكن لم تتنفذ معي هناك خطأ لم اعرفه لذا ارفقت الملف مع العلم ان الدالة عملتها بفيجوال 2012 ونجحت معي Function numbers_onle(ByVal e As MSForms.ReturnInteger, KeyPressEventArgs) If e.KeyChar = "0" Or e.KeyChar = "1" Or e.KeyChar = "2" Or e.KeyChar = "3" Or e.KeyChar = "4" Or e.KeyChar = "5" Or e.KeyChar = "6" Or e.KeyChar = "7" Or e.KeyChar = "8" Or e.KeyChar = "9" Or e.KeyChar = "" Then Exit Function Else MsgBox ("يجب ادخال ارقام فقط " & " " & e.KeyChar) e.KeyChar = "" End If End Function Private Sub TextBox2_KeyPress(ByVal e As MSForms.ReturnInteger) numbers_onle (e) End Sub صنع دالة.xlsm

صباح الخير اخي العيدروس الكود التالي لو احبت المخرجات تكون في label بدلا عن text كيف السبيل مع اني حاولت وغيرت textbox الى label ولم يطبع شيئ

اشكرك اخي لا عدمناك الله يزيد علمك فرجت عني لا اراك الله مكروها هذا الكود الذي ابحث عنه بالضبط لانه كل ما غيرت الأرقام واعتمد يتغير الترتيب بخلاف الكود الأول فانه لابد من اغلاق البرنامج والعوده ثانيه شكرا لك

الكود عندما اعمل له run لا يعمل يحدد لي السطر مباشره انه يوجد خطأ برمجي

اخي العيدروس اشكر مرورك انا اعمل على نسخة 2013 جربت الكود ولم يعمل اتوقع المشكله بالسطر If TypeOf Me.Controls(i) Is MSForms.TextBox Then وبالتحديد في الدالة Me.Controls(i) لم استطع ايجاد الحل

الهدف من الكود انه عندما ادخل رقم الحاجز الاول رقم 1 والحاجز الاخير مثلا 7 واعتمد المسار يقوم بكتابة الارقام من 1 إلي 5 كل رقم في textbox بالترتيب الكود يعمل بفجوال بيسك 2012 هذا صورته داخل الفيجوال للرفع.rar

السلام عليكم اخوتي الكرام عندي الكود التالي يعمل بشكل ممتاز في فجوال بيسك 2012 وعندما احتاجه في الاكسل لا يعمل ممكن اعرف اين الخلل Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim i As Integer Dim x As Integer Dim z As Integer x = CInt(TextBox1.Text) z = CInt(TextBox2.Text) For i = x To z If TypeOf (Me.Controls(i)) Is TextBox Then Me.Controls(i).Text = i End If Next End Sub في الاكسل يظهر خطأ كالتالي