أبو هادي قام بنشر نوفمبر 8, 2004 مشاركة قام بنشر نوفمبر 8, 2004 (معدل) السلام عليكم هذه الدالة شبيهة تماما بدالة الأكسل وهي لتحويل أول حرف من كل مقطع من النص إلى حرف كبير وما يليه إلى حروف صغيرة . Capitalizes the first letter in a text string and any other letters in text that follow any character other than a letter. Converts all other letters to lowercase letters. أمثلة قبل المعالجة : this is a TITLE 2-cent's worth 76BudGet نتائج الأمثلة بعد المعالجة : This Is A Title 2-Cent'S Worth 76Budget Function Proper(Text As Variant) As Variant Dim K As Integer Dim NewText As String Dim Found As Boolean Proper = Text If VarType(Text) <> vbString Then Exit Function Found = True For K = 1 To Len(Text) Select Case Mid(Text, K, 1) Case "A" To "Z", "a" To "z" If Found Then NewText = NewText & UCase(Mid(Text, K, 1)) Found = False Else NewText = NewText & LCase(Mid(Text, K, 1)) End If Case Else NewText = NewText & Mid(Text, K, 1) Found = True End Select Next K Proper = NewText End Function تحياتي . تم تعديل نوفمبر 8, 2004 بواسطه أبو هادي رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر نوفمبر 8, 2004 مشاركة قام بنشر نوفمبر 8, 2004 السلام عليكم بارك الله فيك استاذ ابو هادي على هذا المجهود تحياتي لك رابط هذا التعليق شارك More sharing options...
سهل احمد العريشي قام بنشر نوفمبر 9, 2004 مشاركة قام بنشر نوفمبر 9, 2004 بسم الله الرحمن الرحيم أستاذنا أبو هادي بأعتبرها هدية العيد للمنتدى جزاك الله خيرا أخيك سهل أحمد ( ابو نعيم ) رابط هذا التعليق شارك More sharing options...
رضا عقيل قام بنشر نوفمبر 9, 2004 مشاركة قام بنشر نوفمبر 9, 2004 جزاك الله خيراً أبو هادي رابط هذا التعليق شارك More sharing options...
حاكم قام بنشر نوفمبر 9, 2004 مشاركة قام بنشر نوفمبر 9, 2004 سلمت الأيادي ... أبو هادي يعطيك العافيه دائماً مبدع .. رابط هذا التعليق شارك More sharing options...
ashraf قام بنشر نوفمبر 10, 2004 مشاركة قام بنشر نوفمبر 10, 2004 دائما الجديد تجده لدى أبو هادي . وعيد سعيد عليكم جميعا إن شاء الله رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر نوفمبر 10, 2004 الكاتب مشاركة قام بنشر نوفمبر 10, 2004 (معدل) السلام عليكم أمجد جمالي سهل احمد العريشي رضا عقيل أبو يعلى ashraf أعزائي .. أشكركم على مروركم الكريم ، تقبل الله طاعاتكم وكل عام وأنتم بخير ملاحظة : أنا أستخدم هذه الدالة لإصلاح أسماء الموظفين بالإنجليزي حيث يختلف المستخدمين وقليل منهم من يلتزم بالتعليمات فترى أحدهم يستخدم الحروف الصغيرة دون اعتبار للحرف الأول من كل إسم حيث يجب أن يكون كبيرا وآخر يدخل الأسماء بالحروف الكبيرة مما يجعلها تطول وتأخد مساحة أكبر طولا . كما أن اختلاف الإدخالات تجعل شكل الأسماء غير مقبول فترى بعضها بحروف صغيرة والأخرى بحروف كبيرة ، ولكن عندما تكون كلها بنسق واحد تكون أجمل وأكثر قبولا . تحياتي . تم تعديل نوفمبر 10, 2004 بواسطه أبو هادي رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر نوفمبر 11, 2004 مشاركة قام بنشر نوفمبر 11, 2004 اخى الكريم ابو هادى .. كل عام وانت بخير رجوعا الى مشروع القران الكريم فقد حاولت اضافة خانة اختيار لنموذج البحث بحث تمكننى ان احصر مثلا الآيات التى تبدأ بحرف معين ولكنى فشلت .فهل اطمع ان تدلنى على طريقة فعل هذا بحيث نضيف لنموذج البحث ما يلى: خانة اختيار بعنوان ( تبدأ بـ ) خانة اختيار بعنوان ( تتضمن ) خانة اختيار بعنوان ( تطابق ) ولك جزيل الشكر والاحترام .. واعتذر ان طرحت هذا الموضوع هنا وذلك بسبب اعتقادى ان المشروع الجماعى للقران الكريم تم هجرته من شهر اغسطس تقريبا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.