كيفية تغطية عنوان IP بصفر في Excel؟
عند استلام ورقة تحتوي على بعض عناوين IP المكونة من رقمين في بعض الأجزاء ، قد ترغب في إضافة من صفر إلى ثلاثة أرقام في كل جزء كما هو موضح أدناه. في هذه المقالة ، أقدم بعض الحيل لإدخال عنوان IP بسرعة في Excel.
لوحة عنوان IP مع صفر حسب الصيغة
لوحة عنوان IP مع صفر بواسطة الوظيفة المحددة
لوحة عنوان IP مع صفر حسب الصيغة
فيما يلي صيغة طويلة يمكن أن تساعدك في إضافة عنوان IP بصفر بسرعة.
حدد خلية فارغة ، اكتب هذه الصيغة ،
=TEXT(LEFT(A1,FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND(".",A1)+1,FIND("~",SUBSTITUTE(A1,".","~",2))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND("~",SUBSTITUTE(A1,".","~",2))+1,FIND("~",SUBSTITUTE(A1,".","~",3))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND("~",SUBSTITUTE(A1,".","~",3))+1,LEN(A1)-FIND(".",A1)-1),"000")
A1 هو عنوان IP الذي تستخدمه ، اضغط على أدخل مفتاح ، اسحب مقبض التعبئة لأسفل إلى الخلايا المطلوبة لهذه الصيغة. انظر لقطة الشاشة:
لوحة عنوان IP مع صفر بواسطة الوظيفة المحددة
إذا كنت معتادًا على كود VBA ، فإليك رمزًا يمكن أن يساعدك أيضًا في إضافة عنوان IP.
1. صحافة ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة لإنشاء وحدة جديدة. انظر لقطة الشاشة:
2. في ال وحدة البرنامج النصي ، الصق الكود أدناه إليه ، ثم احفظ الكود وأغلق نافذة VBA. انظر لقطة الشاشة:
VBA: عنوان IP الخاص باللوحة
Function IP(Txt As String) As String
'UpdatebyExtendoffice20170725
Dim xList As Variant
Dim I As Long
xList = Split(Txt, ".")
For I = LBound(xList) To UBound(xList)
xList(I) = Format(xList(I), "000")
Next
IP = Join(xList, ".")
End Function
3. انتقل إلى خلية فارغة ستضع فيها النتيجة المحسوبة ، اكتب هذه الصيغة = IP (A1)، اضغط على مفتاح Enter ، واسحب مقبض التعبئة لأسفل إلى الخلايا التي تحتاجها. انظر لقطة الشاشة:
المقالات النسبية
- كيفية استخراج سلسلة من عنوان IP في Excel؟
- كيفية إضافة نفس عنوان البريد الإلكتروني إلى قائمة الأسماء في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!