الحامد الشاكر قام بنشر أكتوبر 9, 2011 مشاركة قام بنشر أكتوبر 9, 2011 السادة المحترمين يرجى الإفادة حول كيفية فصل الأعداد داخل الخلية الموضوع بجانب النص إلى خلية منفصلة مع الشكر Separate.zip رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 9, 2011 مشاركة قام بنشر أكتوبر 9, 2011 السلام عليكم اخي الفاضل هذه المعادلات من ابداع استاذنا وحبيبنا الاستاذ يحيى حسين حفظه الله جرب المرفق نتيجة لتداخل الحروف والارقام من الجهتين فقد تم عمل 3 اعمدة للفصل ابواحمد Separate.zip رابط هذا التعليق شارك More sharing options...
جمال الفار قام بنشر أكتوبر 9, 2011 مشاركة قام بنشر أكتوبر 9, 2011 لاثراء الموضوع بعد اذن الغالى عبدالله المجرب جرب اخى هذا المرفق وعلى ما اعتقد هذا هو المطلوب وفقكم الله الفــــــار.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 9, 2011 مشاركة قام بنشر أكتوبر 9, 2011 اخي جمال الفار كود ممتاز لفصل الحروف عن الارقام سلمت يدك ابواحمد رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أكتوبر 9, 2011 مشاركة قام بنشر أكتوبر 9, 2011 الاعزاء / الاخوة الاستاذ ابو احمد " عبد الله المجرب " الاستاذ ابو خالد " جمال الفار " جزاكم الله كل الخير وفقكم الله ابو الحارث رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر أكتوبر 9, 2011 مشاركة قام بنشر أكتوبر 9, 2011 اخوانى بعد اذن استاذى عبدالله المجرب واستاذى جمال الفار اقدم دالة هى من اعمال عالمنا خبور خير ( نسال الله له السلامة من كل مكروه) Option Explicit ' ÈÓã Çááå ÇáÑÍãä ÇáÑÍíã " ' ********************* " ' ÏÇáÉ ÇÓÊÎÑÇÌ ÇáäÕ Çæ ÇáÇÑÞÇã " '==============================================" ' False = ãåãá Çæ Kh_Number ÇÐÇ ßÇä " ' ÊÞæã ÈÇÓÊÎÑÇÌ ÇáäÕ " ' True = Kh_Number ÇÐÇ ßÇä " ' ÊÞæã ÈÇÓÊÎÑÇÌ ÇáÇÑÞÇã " '==============================================" '----------------------------------------------------------------- Function Kh_Replace_Text(ByVal Kh_Sub As String, Optional Kh_Number As Boolean) Dim Num As Byte, C As Integer Dim Sn As String, Re As String, Md As String Sn = Trim(Kh_Sub) For Num = 0 To 9 Sn = Replace(Sn, Num, "") Next Num If Kh_Number Then Re = Trim(Kh_Sub) Do While C < Len(Trim(Sn)) C = C + 1 Md = Mid(Sn, C, 1) Re = Replace(Re, Md, "") Loop Kh_Replace_Text = CDbl(Re) Else Kh_Replace_Text = Trim(Sn) End If End Function الفــــــار.rar رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أكتوبر 9, 2011 مشاركة قام بنشر أكتوبر 9, 2011 السلام عليكم ======= اعمال كلها رائعة بوركتم جميعا ياشباب ولمزيد من المعرفة هنا حل اخر دالة لاخذ الارقام من خلية دون الحروف.rar رابط هذا التعليق شارك More sharing options...
الحامد الشاكر قام بنشر أكتوبر 9, 2011 الكاتب مشاركة قام بنشر أكتوبر 9, 2011 جزاكم الله كل خير ودمتم كراماً وذخراً للمنتدى رابط هذا التعليق شارك More sharing options...
edkawy قام بنشر أكتوبر 10, 2011 مشاركة قام بنشر أكتوبر 10, 2011 (معدل) عفوا يا اخوانى المشكلة اتحلت و الحمد لله , واضح ان انا محاولتش بالقدر الكافى . انا عملت كوبى للعمود الناتج بعد الفصل و بعدين اخترت بست سبيشيال و بعدين اخترت فاليو. عفوا للازعاج و بارك الله فيكم محمد سعد السلام عليكم يا اخوانى اسمحولى انى اتفق مع الاستاذ العزيز عبد الله المجرب ( ابو احمد ) بان الكود اللى الاستاذ جمال الفار ارفقة فى المشاركة رقم 3 اكثر من رائع و بيحل المطلوب ببساطة شديدة. بعد التجربة الارقام اتفصلت عن الحروف بدقة و لكن لما حاولت ان اخد كوبى من العمود الجديد بعد الفصل , واجهتنى مشكلة ان الارقام الجديدة دى الاكسل بيعتبرها جزء من المعادلة و مش كانها ارقام قائمة بذاتها. ممكن حد يوضح ازاى العمود الناتج بعد فصل الارقام عن الحروف يكون مستقل بذاتة و مش تابع للمعادلة , لان الخطوة اللى بعد كدة عندى انى اضيفة فى معادلة جديدة ؟ ارجو ان اسؤال يكون واضح و بارك الله فيكم محمد سعد تم تعديل أكتوبر 10, 2011 بواسطه edkawy رابط هذا التعليق شارك More sharing options...
جمال الفار قام بنشر أكتوبر 10, 2011 مشاركة قام بنشر أكتوبر 10, 2011 االسلام عليكم اخى فى الله محمد سعد انظر الشرح فى الملف وجرب واخبرنى بالتيجة لا تنسانا من دعائك الفار.rar رابط هذا التعليق شارك More sharing options...
edkawy قام بنشر أكتوبر 10, 2011 مشاركة قام بنشر أكتوبر 10, 2011 الاخ الكريم / جمال الفار جزاك الله خير على سرعة ردك و بارك الله فيك محمد سعد رابط هذا التعليق شارك More sharing options...
abriboss قام بنشر أكتوبر 10, 2011 مشاركة قام بنشر أكتوبر 10, 2011 الاساتذة الفضلاء حاولت ان اجرب الحل لكى اتعلم هذه الطريقة لكن دون جدوى ....حتى يأست بالله عليكم افيدوني بالشرح . اثابكم الله عني كل خير رابط هذا التعليق شارك More sharing options...
جمال الفار قام بنشر أكتوبر 10, 2011 مشاركة قام بنشر أكتوبر 10, 2011 االسلام عليكم اخى فى الله انظر الشرح فى الملف المرفق فى المشاركة السابقة وجرب واخبرنى بالتيجة رابط هذا التعليق شارك 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.