علي سالم 75

شاهد الرابط التالي

http://www.officena.net/ib/index.php?showtopic=51003

جرب هذه الدالة منقولة للامانة

ايام العمل.rar

السؤال هل الشاشة التي في المشاركة تظهر لديك عند الضغط كليك يمين علي مايكروسوفت اكسيل في قائمة ابدا ام لا

الجواب لا

تظهر الصورة التي ارفقها الاستاذ مجدي يونس

ومشكور على سرعة الرد

هل في حل لديكم ؟؟؟

جرب هذه المعادلة

=LOOKUP(2;1/(F2:F10);F2:F10)

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

مشكورين وفي ميزان حسناتكم

انا لدي نفس مشكلة اخي سعد عابد

وعملت الخطوات من انشاء اختصار للاكسل

ولما اضغط يمين كليك و اظهار الخصائص

تظهر نافذه اخرى غير التي في شرحك

ارجو الافاده

استخدم  التحقق من الصحة

قف على الخلية B3

من بيانات

التحقق من الصحة

مخصص

ادخل المعادلة ادناه

=OR(AND(B3>=0;B3<=B$2);B3="غ")

موافق

انا الملف لا يعمل عندي

ممكن تعطيني الحزمة الخاصة والتي من ضمنها

ListView

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

جزاك الله خير

مشكور اخوي

جزاك الله خير

هذا فورم للاستاذ عبدالله باقشير

للادخال والتعديل والبحث

http://www.officena.net/ib/index.php?showtopic=43782

قمت بتطبيقه على ملفك

تحياتي

data.rar

هذا حل بالمعادلات

=MID(A2;1;1)&" "&MID(A2;2;1)&" "&MID(A2;3;1)&" "&TEXT(MID(A2;4;10);"0000")
 

تحياتي

مشكور استاذ طارق

جرب شوف

test.rar

يعمل اذا كان ملف الادخال مفتوح

جرب هذا

Private Sub CommandButton1_Click()


Me.TextBox1.Value = Application.Match(Val(3), Workbooks("الادخال").Sheets("الفواتير").Range("a1:a15000"), 0)
End Sub
 

استخدم  CDate

مثال:

Range("C5").Value = CDate(Me.TextBox1)
 

تحياتي

في الكود في ثلاث مواقع

غير ( اكبر من صفر) الى (تساوي واحد)

InStr(c.Value, TextBox2.Text) = 1
 

والله اعلم

اخي حماده متشكر على التشجيع

هذا فورم بحث للاستاذ خبور

http://www.officena.net/ib/index.php?showtopic=42704

طبقته على ملفك

استخدم النجمة للبحث ليشمل نتائج واسعة

2003.rar

وهذه بدالة

CHOOSE

=CHOOSE(K4;"واحد";"إثنان";"ثلاثة";"أربعة";"خمسة";"ستة";"سبعة";"ثمانية";"تسعة";"عشرة")

شاهد المرفق

امرين بزر.rar

هذه محاولة مني لتقسيم الارقام

باستخدام المعادلة mid

ارقام.rar

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