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

بعد إذن عباقرة منتدى أوفيسنا هذا حل أخر بسيط جدا لعله يسرى الموضوع بعد هذه الوجبة الدسمة من إبداعات عباقرتنا الأفاضل أرجو أن تتقبلوا مرور تلميذكم وسطكم تحديد الأسماء المتشابهة في عمودين 3.rar

فعلا أخى ( GHREEB197 ) المعادلة السابقة لو أضيف لها شرط أخر سوف يثقل من المعادلة حتى لاتكرر الشرط المكرر وهذه معادلة أخرى أعتقد ستحقق المطلوب وأبسط من معادلات الصفيف حتى لاتثقل ملفك معادلة مناسبة 2.rar

بمناسبة العام الدراسى والحاجة الماسة للمدرسيين لحساب سن تلاميذهم سواء بالرقم القومى أو تاريخ الميلاد ، جرب هذا البرنامج سيسهل لك الكثير وستجد به سهولة ويسر فى الأستحدام إن شاء المولى تقبلوا تحيات : أخيكم تم حذف النسخة السابقة لفتح الشيت للأستفادة من المعادلات وكان هناك خطأ فى تنسق أرقام التسلسل برنامج حساب السن بتارخ الميلاد أو الرقم القومى-.rar

الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته أرفق لكم نموذج به كود حماية لمنع حذف أى شيت بورقة العمل يسمح بإضافة اوراق أتمنى ان تقوموا بتجربته وهل إذا كان من الممكن التغلب عليه أم لا ؟ وتقبلوا منى وافر الإحترام والتقدير كود منع حذف ورقة العمل.rar

السلام عليكم جرب هذا التعديل sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\" & [b1] & ".accdb;Persist Security Info=True " تحياتي

السلام عليكم اسعد الله صباحكم هذه محاولة مبدئية للفكرة تحياتي جرد+.rar

أخى الفاضل / محمود الشريف تسلم ايديك طالما كود للأستاذ / عبد الله باقشير اذن فليتوقف الجميع لأنه اذا وجد الماء بطل التيمم

أخى الفاضل تفضل كل ما طلبت طباعة كشف نقاط مع الترحيل1_INDEX_.rar

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

السلام عليكم على افتراض ان النطاق المطلوب B4:B100 جرب الكود التالي: Sub kh_Replace() Dim ch With Range("B4:B100") For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا" Next .Replace "ة", "ه" .Replace "ى", "ي" End With End Sub المرفق 2003 حذف الهمزة والتاء المربوطه.rar

أخى ابراهيم جزاك الله كل خير جرب هذه الفكرة Private Sub CommandButton1_Click() x = Val(InputBox("أدخل عدد النسخ المراد طباعتها")) For i = 1 To x Me.PrintForm Next Unload Me End Sub

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

السلام عليكم ورحمة الله جرب المحاولة بالكود المرفق والكود يعتمد على عمود اضافي فارغ (العمود K) تم الغاء دمج الخلايا في العمود K (الخلية K154) حتى يعمل الكود Sub AL_KHALEDI() Set Rn = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)) Lr = Rn.Rows.Count ReDim Arr(Lr - 1) For Each C In Rn.Cells T1 = "": T2 = "" For r = 1 To Len(C) T1 = Mid(C, r, 1) S = Application.Search(T1, "أبجدهوزحطيكلمنسعفصقرشتثخذضظغ", 1) If Not IsError(S) Then T1 = Mid("أبتثجحخدذرزسشصضطظعغفقكلمنهـوي", S, 1) T2 = T2 & T1 Next r Arr(A) = T2: A = A + 1 Next C Range("K2").Resize(Lr).Value = WorksheetFunction.Transpose(Arr) Range("B2:K2").Resize(Lr).Sort Range("K2"), xlAscending Range("K2").Resize(Lr).ClearContents Set Rn = Nothing: Erase Arr End Sub في امان الله جدول تصفية المنح معدل جديد2.rar

لقد أعجبنى كود أستاذى ( عبد الله بقشير ) فحاولت تجريب المعادلة فى إمكانية عمل ذلك فكانت هذه النتيجة ، أتمنى أن تعجب أستاذى ( عبد الله بقشير ) وإن كانت محاولة للتشبه بعبقرية أكوادة وكل سنة وهو طيب ، وأدامه الله لنا معلما والأن إلى المعادلة بحث بواسطة العديد من الأحرف.rar

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

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

أليك أخى طريقة بحث ستغير كثير من طرق بحث المعادلة بل وستتفوق على الكود أيضا أليك الحل بالمعادلات ملحوظة هامة للبحث : لاتختار أكثر من شرط عند البحث ولكن لابد من البحث بشرط واحد فقط بحث بطرق غير معلومة.rar

رغم إنى مش فاهم المشكلة وطبيعتها إلا إننا لو أردنا إزالة العلامات بين الفراغات وإحلالها بما نريد وليكن فى حالتك إضافة الفراغ إستحدم هذه المعادلة =TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2;"/";" ");".";" ");"_";" ")) تعريف أسم.rar

للمعادلة مذاق رائع عندما تحقق لك ماتريد فهل توقعت أن تقوم المعادلة بهذا الأبهار أنظر معى للمرفق ستجد أنكل هذا تم بالمعادلة فقط أبحث بطرق مختلفة.rar

شرف لية أن أقدم هذه الطريقة أيضا بجانب عمالقة هذا الصرح جرب هذه هى الأخرى أخى لعلها تفيد =SUMPRODUCT(--(FREQUENCY(C2:C50;C2:C50)>0))

جرب هذا الحل أخى لعله يكون المطلوب مطلوب معادلة.rar

السلام عليكم هذه نسخة من البرنامج بتنسيق 2003 وقريبا ان شاء الله سوف اقوم بارفاق نسخة 2007 اخوكم علي عبد الحميد - ابو فهد Str2003.zip