حسين العصلوجى

جرب هذا المرفق اتمني ان يفي بالغرض مقارنة بين عمودين3.rar

عند اختيار قيمة نصية الدالة تعطى خطأ لكن عند اختيار قيمة رقمية تعمل الدالة دالة صفيف.rar

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

رائعة اخى حياك الله ولي سؤال اخر هو كيف اجعل التكست بوكس لايقبل صيغة خاطئة للتاريخ مثلا لايقبل 15-5-213 وجزالك الله خيرا

للرفع ارجو الرد للاهمية

كود بسيط واكثر من رائع لى سؤال عن فائدة علامة الدولار مع دالة mid جزاك الله خيرا

مشكور اخ احمد عبد الناصر علي اهتمامك الكود تبعك جيد لكن لايصلح معي لانه يعتمد علي طريقة المكرو وكتابة الدالة في خلية وانا استعمل FOR و NEXT للتكرار اكثر من 200 مرة مما يجعل تنقيذ الكود ياخذ وقت طويل جدا انا اريد تعديل لمدى دالة ماتش لتقراء من ملف اخر irow3 = Application.Match(Val(3), Workbooks("C:\Voltaware\Draft\[1.xlsm]").Sheets("Sheet1").Range("a1:a15000"), 0)

الملف المرفق يعطى نفس الخطأ Out of range

ملف الادخال مفتوح ولكنه ايضا يعطى رسالة خطأ اذا عمل معك عدل الملف وارفعه وجزاك الله خيرا

للاسف اخي / علي الكود يعطى نفس الخطأ هل جربته انت واشتغل معك

لماذا مكتوب في صفحتي الشخصية حالة الانذار وكذلك التنبيهات تظهر s% ولاتعمل

عندي ملفين موضوعين في مجلد اسمه test في السي المطلوب موجود في ملف الاستعلام وشاكر لاهتمامك انا عايز اعرف اثناء كتابة كود اكتب دالة match ازاي بحيث انه يكون النطاق بتاعها في ملف اخر انا باكتبها كده بس بتدي خطأ irow3 = Application.Match(Val(3), Workbooks("C:\Voltaware\Draft\[1.xlsm]").Sheets("Sheet1").Range("a1:a15000"), 0) فهل النطاق مكتوب بصورة صحيحه ام لا واين الخطأ والمطلوب موضح اكثر بالملف المرفق الاستعلام test.rar

irow3 = Application.Match(Val(3), Workbooks("C:\Voltaware\Draft\[1.xlsm]").Sheets("Sheet1").Range("a1:a15000"), 0) استخدم هذه الصيغة في كود لجلب رقم الصف ولكنها تعطى خطأ out of range

الاستاذ الفاضل / رجب جاويش التعديل اكثر من رائع ولكن اذا تكرمت تشرح لنا هذا الكود خاصة السطر x = UBound(Filter(Split(arr, ","), TextBox1)) و ارجو توضيح الفرق بين (Match(TextBox17.Value) و (Match(CStr(Me.TextBox1 و (Match(Val(TextBox17.Value وجزاك الله خيرا

ارجو توضيح الفرق بين (Match(TextBox17.Value) و (Match(CStr(Me.TextBox1 و (Match(Val(TextBox17.Value

تسلم تسلم يا استاذنا الفاضل وجزاك الله الف خير عنا

هل ممكن تعطيل زر الاغلاق للفورم واغلاقه فقط عن طريق زر الاغلاق الذي صممته انا بالفورم مرفق ملف للتوضيح اكثر برجاء الرد لان الموضوع هام لى TEST.rar

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

جزاك الله خيرا استاذنا وعالمنا الجليل / عبدالله باقشير في حالة تغير الخاصية style سيمنع الكتابة في الكومبوبوكس نهائيا ويقتصر علي الاختيار من القائمة مما سيتطلب مجهود كبير للعثور على القيمة اذا كانت محتويات الكومبوبوكس كثيرة انا اريد ان يسمح بالادخال اليدوي ولكن اذا كانت القيمة المدخلة ليست موجوده داخل الكومبوبوكس يرفضها ويظهر تنبيه خطأ ووجدتها في الخاصية match require واشكر لك اهتمامك وردك وجزاك الله كل خيرا دوما ماتقصر ما في مساعدة الكل عالمنا الجليل

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

الاخ / حماده عمر اولا شكرا علي هذه الدروس الرائعه ولكن كلها تنصب علي التنسيقات ثانيا بالنسبة لتعديلك علي الكود فهو يمنع الارقام السالبة فقط ولكن اريد منع الحروف و اي شى اخر بخلاف الارقام الموجبة وهل من الممكن جعل الكومبو بوكس لايقبل الا القيم الموجوده في قائمته فقط في حالة ادخال قيمة اخر تظهر رسالة خطأ ام هذا غير ممكن ؟ ولك جزيل الشكر

كيف يمكن عمل الاتى :- 1- جعل التكست بوكس لايقبل الا ارقام موجبة مثلا اعدل ايه في الكود ده عشان اقول لو قيمة تكست بوكس 2 ليست رقم موجب اظهر رسالة خطأ ولو موجبة يكون تكست 10 هو ضرب تكست 2 في تكست 3 في .85 Private Sub TextBox2_Change() If not Me.TextBox2.Value then "MsgBox "must be positive number ", vbOKOnly, "error Me.TextBox2.Value = 0 Else On Error Resume Next Me.TextBox10.Value = Me.TextBox2.Value * Me.TextBox3.Value * 0.85 End If End Sub 2- عدم قبول اي قيمة غير موجودة بالكومبو بوكس 3-عدم قبول صيغة خاطئة للتاريخ prob.rar

وهل من الممكن جعل التكست بوكس لايقبل الا ارقام فقط ولايقبل ايضا ان يكون فارغا وكيف ذلك

الاخ / حماده عمر جزاك الله خيرا وفعلا هذا هو المقصود وقمت بتعديل بالملف وشاكر لك اهتمامك الاستاذ القدير / عبدالله المجرب التعديل اكثر من رائع وفعلا حل لي المشكلة لكن يوجد مشكلة انه احيانا احتاج الي تعديل السعر ولكن عند التعديل علي السعر لاتتعدل القيمة وبالتلي تكون القيمة الظاهرة خطأ فالقيمة تتعدل فقط عند تعديل الكمية وانا اريد ان تتعدل القيمة عند حدوثاي تغيير فالكمية او السعر او كليهما ولك جزيل الشكر والتقدير

الاخ / احمد عبدالناصر طبعا فهمت صح والتعديل اكثر من رائع وجزاك الله الف خير بس باطلب منك المساعدة في رسالة الخطأ هذ والموجوده في الشيت اللي بالبوست ده http://www.officena.net/ib/index.php?showtopic=45340 الاخ / HIMASS شكرا جزيلا علي اهتمامك وفكرتك ايضا جيده وتؤدي نفس النتيجه