rudwan قام بنشر مارس 16, 2004 قام بنشر مارس 16, 2004 السلام عليكم و رحمة الله و بركاته لدي ملف يحتوي بيانات فاتورة هاتف قمت بتحميله من الانترنت على شكل ملف نصي , ثم قمت باستيراده الى ملف اكسل بالنسبة لأحد الحقول - أرقام الهاتف المتصل بها - اظن تم استيراده كما هو على شكل نص و ليس رقم , وكان بهذا الشكل : 00966123145678 حاولت تنسيق هذا الحقل على شكل رقم , أو على شكل رقم هاتف مخصص ولكنه بقي كما هو كيف يمكن أن أعدل تنسيقه بحيث يصبح رقم و تنحذف منه الأصفار على اليسار لتصبح كما يلي : 966123145678 مع العلم أن سجلات الحقل طويلة جدا
ايمن ابوأنس قام بنشر مارس 16, 2004 قام بنشر مارس 16, 2004 اخ rudwan السلام عليكم ورحمة الله وبركاته تظلل العمود الذي فيه الارقم التي ذكرت والتي تبدأ بالصفر ثم تعمل لها نسخ copy لجميع العمود او للارقام اللي فيها تبدأ بالاصفار ثم تقوم بتحديد عمود جديد وثم تلصقها فيه عن طريق past special ومن خانة operation تختار add ومن ثم ستختفي جميع الاصفار على الشمال . وبالتوفيق ان شاء الله
rudwan قام بنشر مارس 17, 2004 الكاتب قام بنشر مارس 17, 2004 شكرا أخي العزيز على المشاركة اللطيفة و قد جربت ما قلت لي , و لكن للأسف لم تنجح المحاولة عند عمل لصق خاص فقط يتم نسخ الرقم كما هو مع الأصفار , و لكن عند عمل لصق خاص مع اضافة لا يلتصق الرقم نهائيا , لا بأصفار و لا بدون أصفار
حسام نور قام بنشر مارس 17, 2004 قام بنشر مارس 17, 2004 - هل جربت أن تضغط بزر الماوس الأيمن على الخليه وتختار التنسيق ( عام ) ؟
حسام نور قام بنشر مارس 17, 2004 قام بنشر مارس 17, 2004 - إذا لم تنجح في أتمام العمليه أرسل لي الملف المطلوب تعديله وحدد الخليه المطلوب أجراء التعديل عليها HOSAMNOOR@HOTMAIL.COM وشكراً
rudwan قام بنشر مارس 17, 2004 الكاتب قام بنشر مارس 17, 2004 أخي العزيز حسام أرفقت لك المثال و شكرا على جهودك الطيبة
حسام نور قام بنشر مارس 17, 2004 قام بنشر مارس 17, 2004 - تناقشت مع الأخوه المشرفين وخبراء الأكسيل في طلبك وتوصل الأخ العزيز ( أبومؤنس ) لحل لتلك المشكله - قم بنسخ العمود ( D ) الموجود به أرقام الهاتف - قم بلصق بيانات العمود الي العمود ( F ) - الآن ضع هذا الكود في أول خليه بها رقم في العموم F =RIGHT(D2;11) وقم بتظليل الخليه التي تم تعديلها وأسحب بالماوس على باقي العمود ليتم أزالة الأصفار . مع الشكر لمشرفنا ( أبومؤنس )
rudwan قام بنشر مارس 18, 2004 الكاتب قام بنشر مارس 18, 2004 شكرا أخي الفاضل و لكل من شارك بوضع هذا الحل , و هذا بالفعل ما أريده و لكن استفسار آخر , هل هناك طريقة لتحويل النص الى رقم كما في الأكسس عن طريق دالة clong ولم أجد هذا في الأكسل
ابومؤنس قام بنشر مارس 18, 2004 قام بنشر مارس 18, 2004 اخي العزيز جرب الدالة VALUE اتمني لك التوفيق , في انتظار الرد,
محمد طاهر عرفه قام بنشر مارس 18, 2004 قام بنشر مارس 18, 2004 أضف الروتين و الدالة التاليين الي موديول فى الملف ثم علم علي الخلايا المطلوب تعديلها ثم شغل الماكرو سيتم ازالة الاصفار التي فى اليسار ايا كان عددها Sub remove0() For i = 1 To Selection.Rows.Count ActiveCell.Offset(i - 1, 0).Value = rem0(ActiveCell.Offset(i - 1, 0).Value) Next i End Sub Function rem0(myval) mycount = 0 For j = 1 To Len(myval) If Mid(myval, j, 1) = "0" Then mycount = mycount + 1 Next rem0 = Right(myval, Len(myval) - mycount) End Function
حسام نور قام بنشر مارس 18, 2004 قام بنشر مارس 18, 2004 - نشكرك أستاذنا محمد طاهر على هذا التدخل الجميل والأضافه القيمه للموضوع
ابومؤنس قام بنشر مارس 18, 2004 قام بنشر مارس 18, 2004 يعطيك العافية استاذ محمد . انا كنت شغال علي تحويل المعادلة السابقة الي كود بواسطة ماكرو . ولكن تعمل فقط عندما يكون عدد الخانات 13 رقما باعتبارها ارقاما دولية . اتمني للجميع التوفيق ,
rudwan قام بنشر مارس 18, 2004 الكاتب قام بنشر مارس 18, 2004 شكرا للأساتذة الأفاضل جميعهم في الحقيقة حصلت على الحل الذي أريده من خلال استخدام الدالة value و الحمد لله , و شكرا لك يا أستاذ أبو مؤنس و لكن من أجل الفائدة العامة , خطر لي السؤال التالي : لو كانت عندي حالة معاكسة للحالة الأولى , أي حصلت على نص يحتوي على عدد خانات أقل من العدد النظامي ( 11 ) خانة , هل يمكن اضافة أصفار الى اليسار حتى تساوي 11 خانة , أنا آسف أعرف أثقلت عليكم , و لكن ربما أستفيد منه في المستقبل .
ابومؤنس قام بنشر مارس 18, 2004 قام بنشر مارس 18, 2004 السلام عليكم يمكنك بمنتهي السهولة . حدد الخلية التي تريد اظهار الاصفار فيها الي جهة اليسار . ثم اختار (تنسيق الخلايا) ثم اختار(رقم) ثم (مخصص) قم باضافة عدد من الاصفار يماثل عدد الخانات المطلوب ظهور الرقم فيها . فمثلا تريد عدد الخانات في هذة الخلية بما فيها الاصفار هو 11 قم باضافة عدد 11 صفر انقر موافق . ثم جرب ستلاحظ انك بمجرد كتابة ارقام علي يسارها اصفار لعدد 11 خانة ستظهر الاصفار علي جهة اليسار . بالتوفيق .
rudwan قام بنشر مارس 20, 2004 الكاتب قام بنشر مارس 20, 2004 أشكرك جدا أستاذي الفاضل / أبو مؤنس و أدامك لك و لكني أخطأت في سؤالي , حيث كتبت أنني أريد أضافة أصفار الى يسار الرقم و الحقيقة أنني أريد اضافة الأصفار الى يمين الرقم ز مثال : لو كان عندي الرقم النظامي : 966112224262 و رقم آخر 96623856 أريد الرقم الثاني أن يظهر كذلك : 966238560000 وذلك من أجل أن أستطيع عمل فرز و ترتيب للأرقام بشكل دقيق حيث في الحالة الأولى يصعب عمل ترتيب صحيح طبقا للشكل الناقص
ابومؤنس قام بنشر مارس 21, 2004 قام بنشر مارس 21, 2004 اخي العزيز اسف علي التاخير علي الرد . لم اعلم بوجود السؤال الا اليوم . بالنسبة لموضوع اضافة الاصفار علي جهة اليمين , من المعلوم انة سيغير من القيمة . وبالتالي فان الاكسيل يضيف الصفر فقط علي جهة اليسار ولكن وضعت لك كود في الملف المرفق , ارجو ان يكون هو المطلوب . بالتوفيق . AddZuro.zip
rudwan قام بنشر مارس 22, 2004 الكاتب قام بنشر مارس 22, 2004 حمدا لله , و شكرا لك يا استاذي الكريم و بالفعل هذا هو المطلوب , و بارك الله فيك و أرجو أن لا أكون قد أثقلت عليك في الأسئلة الكثيرة
ابومؤنس قام بنشر مارس 22, 2004 قام بنشر مارس 22, 2004 الحمد لله . ولا شكر علي واجب . اكون مسرورا عندما تكون الاجابات والمحاولات هي المطلوبة . ونحن مستعدون لاي مساعدة وبالله التوفيق ..
الردود الموصى بها