تغيير قيمه خلايا بأضافه رقم فى اول كل خليه منهم

[mohamed_friends]

السلام عليكم

هذه اول مشاركه وارجو الا تكون الأخيره بأذن الله

قمت بعمل contact listعلى الأكسل

وبعد ان قربت على النتهاء منها

اكتشفت اننى حين اضع رقم المحمول(الجوال)لكل منهم

يحذف الأكسل الصفر فلى بدايه كل رقم

مثلا رقم الجوال هو0106897882

بعد كتابته يصبح(106897882)

السؤال هو

كيف يمكننى (بعد تغيير نوع الرقم الى نص مثلا) اضافه صفر فى بدايه كل قيمه من الخلايا الخاصه بأرقام الجوالات

لأنه غير منطقى ان اضيفها يدويا فى حوالى 220 رقم

وشكرا

اخوكم

mohamed_friends

[امير عاطف]

ضع الكود التالي:

For Each contact_number In Worksheets("Sheet1").Range("e1:e100")

    If Len(contact_number) > 0 Then

    contact_number.Value = "0" & contact_number.Value

    End If

Next contact_number

مع استبدال النطاق الموجود بالكود وهو e1:e100 بالنطاق الذي تضع به ارقام الاتصال لديك .

وبالطبع يتم تطبيق ذلك في حالة جعل الخلايا المحددة من نوع (نص)

ايضاً يمكنك وضع الكود السابق في اي حدث تريد ... ولكن من المفضل ان تضعه كحدث لزر امر

تم تعديل يوليو 26, 2003 بواسطه امير عاطف

[Sharaf]

أولا أرحب بالأخ العزيز و أشاركة الرغبة فى أن لا تكون مشاركته الأخيرة

و أقدم حل أخر :

يمكن كتابة صفر "0" بالخانة المجاورة للرقم ثم جمع الخليتين فى خلية ثالثة بالطريقة العادية و لكن بإستعمال علامة "&" بدلا من علامة "+" و ذلك طبعا بعد جعل تنسيق الخلايا تنسيق نصى

c1=b1&a1

ثم يتم أخذ نسخة من القيمة الجديدة و لصقها بالمكان القديم بواسطة أمر : " لصق خاص > قيم "

أنظر أيضا هذا الرابط

http://www.officena.net/ib/index.php?act=ST&f=9&t=46

تم تعديل يوليو 27, 2003 بواسطه Sharaf

[mohamed_friends]

اتوجه اولا بالشكر للأخوة الأفاضل(sharaf)و(امير عاطف) الذين تكرموا بالرد على استفسارى

ولكن للأسف فأنا غير خبير فى الأكسيل لذا ارجو شرح وتوضيح يمكننى الأستفاده من الكود الموجود بالأجابه السابقه(المساهمه قبل السابقه) واى كود اخر اراه فى المنتدى

كيف استعمله واستفاد به

اعلم اننى ثقل عليكم ولكن

هذه ضريبه النجاح :yess:

وفقكم الله وجعلكم فى عون اخوانكم دائما

وارجو المعذره لطول رسالتى

وشكرا

اخوكم

محمد

[امير عاطف]

عندما تقوم بفتح ورقة العمل اضغط على مفتاحي Alt + F11

بعد ذلك يتم فتح نافذة الكود ... ستجد الكائنات يمينك فاختر منها الكائن Sheet1 وقم بعمل نقرة مزدوجة بالماوس علية وبعد ذلك قم بلصق الكود التالي ....

Private Sub Worksheet_Activate()

For Each contact_number In Worksheets("Sheet1").Range("a1:iv65536")

   If Len(contact_number) > 0 Then

   contact_number.Value = "0" & contact_number.Value

   End If

Next contact_number

End Sub

بعد ذلك قم بعمل حفظ وقم بغلق الاكسيل وافتحه مرة اخرى وان شاء الله كل شيء يكون تمام

اما بالنسبة لفكرة الاخ الكريم شرف فيمكنك تطبيقها بكل سهولة اذا اتبعت الخطوات الذي اخبرك بها حيث انها لا تحتاج لفتح نافة الكود ولكن ما تقوم بعمله هو كتابة الصيغة داخل خلية بورقة العمل

تم تعديل يوليو 27, 2003 بواسطه امير عاطف

[أبو هادي]

السلام عليكم

استخدم علامة التنصيص المفردة ' قبل الأرقام التي تريد أن تظهر بشكلها الصحيح عندما تبدأ بالأصفار فهذه العلامة تجبر القيمة أن تكون نصية كذلك تستطيع استخدامها في حالة ما أردت استبعاد أي رقم من من مجموع عدة خلايا عند استخدام دالة التجميع Sum .

بدلا من كتابة الرقم 00125

أكتبه هكذا 00125'

تحياتي .

[mohamed_friends]

الف الف الف الف الف الف شكر

لكل الخوة الأفاضل الذين تفضلوا بالمساهمه فى حل مشكلتى

وارجو ال اكون قد اثقلت عليكم

ولكننى ثأثقل بالتاكيد

والإ فلماذا خلقنا الله اخوانا بالطبع لمشاركه خبراتنا وحل مشاكل بعضنا البعض

جعلنا الله جميعا فى عون اخواننا

وشكرا

اخوكم

mohamed_friends