نجوم المشاركات

بالطبع نحتاج جميعا لفصل أسمائنا عن أسماء باقى العائلة ونحتاجها فى كثير من المواضيع والكود الوحيد الذى يقوم بهذا هو كود للعالم الرائع ( عبد الله بقشير ) أوتكون المعادلة المستخدمة طويلة وتسبب ثقل للملف الذى نعمل علية لذلك أضفت هذه المعادلة لتكون أبسط من الكود وأسرع من باقى المعادلات مع ملحوظة واحدة فقط : أنه فى حالة الأسماء الأولى عندما تكون مركبة لانقم بترك مسافة بين الأسم الأول فقط وخلاف ذلك تعمل المعادلة بمنهى السلاسة أرجو من الزملاء الأستمتاع بجمال المعادلة عندما تحقق المطلوب ببساطة ويسر الأسم الأول فى خلية والباقى فى خلية أخرى.rar

كيف تجد اسماً معيناً مع كامل التفاصيل من خلال لائحة منسدلة؟ اكسل لديه الخبرة اسم في لائحة.rar

أستخدم هذه المعادلة أخى وأسحبها لأسفل وذلك بفرض أن الرقم الأول فى الخلية ( A1 ) =IF(0+RIGHT(A1;FIND(".";A1)-1)>1;ROUNDUP(A1;2);ROUND(A1;2)) تقبل تحياتى

أخى الحبيب " جماااال " المعادلة تقوم أساسا على فصل الكلمة بنائا على الفراغ الموجود بين الكلمات والأسم المركب به فراغ بين الأسم الأول والأسم الثانى ومثال ذلك كما ذكرت أنت " أبو القاسم " واضح جدا الفراغ بين " أبو " وبين " القاسم " لذلك تقوم بفصلهم على أساس أنهم أسمان وليس أسم واحد لذلك يمكن التغلب على ذلك 1- بإلغاء الفراغ بين الكلمتين طالما لن تؤثر على الكلمة مثل " عبدالرحمن " هنا تم إلغاء الفراغ الذى يوجد بين الكلمتين لإعتبارها كلمة واحدة أما إذا أثرت فيتم وضع "." نقطة بين الأسميين بحيث لاتقرأها المعادلة على إنها فراغ أو وضع "- " شرطة كهذه وهكذا تعمل الدالة مع الأسماء المركبة دون مشكلة أرجو أن يكون الشرح به الأفادة لتحقق المعادلة ماتريد تقبل تحياتى

السلام عليكم جرب هذا Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 10 Then MsgBox "hima" End If End Sub تحياتي

السلام عليكم حللت لك الجزء الأول (إذا كان لديك أكثر من بوليصة) إظهر الأعمدة المخفية لمتابعة المعادلات بيانات النقص والزيادة2.rar

الأستاذ / KeL1110 السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. 111.rar

أستاذنا الفاضل / أبو انتصار جزاك كل خير على هذا العمل القيم والأكثر من رائع جعلة الله فى ميزان حسناتك تقبل أرق تحياتى

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

ما شاء الله .... ابداع متواصل وفقك الله اخى ضاحى لما يحب ويرضى مجهود اكثر من رائع

الكود التالي يعيد كافة القيم الإفتراضية لحقول النموذج ، وكأننا ننتقل لسجل جديد ... Private Sub btnClear_Click() Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls ctl.Value = ctl.DefaultValue Next Set ctl = Nothing End Sub والسلام ختام