كيفية تنسيق عناوين mac في الخلايا عن طريق إضافة رمز النقطتين في Excel؟

لنفترض أنك تلقيت ورقة عمل تحتوي على قائمة من الأرقام ، والآن تحتاج إلى تنسيق كل هذه الأرقام كعناوين mac عن طريق إضافة رمز النقطتين كما هو موضح أدناه. ماذا يمكنك أن تفعل لتحقيق ذلك؟ يمكنك تجربة الطريقة الموجودة في هذا البرنامج التعليمي لحل المشكلة.

تنسيق عناوين mac في الخلايا عن طريق إضافة نقطتين مع الصيغة
تنسيق عناوين mac في الخلايا عن طريق إضافة نقطتين باستخدام VBA
قم بتنسيق عناوين mac بسهولة في الخلايا عن طريق إضافة نقطتين باستخدام Kutools for Excel

تنسيق عناوين mac في الخلايا عن طريق إضافة نقطتين مع الصيغة

يمكن أن تساعدك الصيغة أدناه على تنسيق الرقم كعنوان mac عن طريق إضافة نقطتين. الرجاء القيام بما يلي.

1. حدد خلية فارغة ، أدخل الصيغة في شريط الفورمولا، ثم اضغط على أدخل مفتاح. انظر لقطة الشاشة:

=LEFT(A2,2)&":"&MID(A2,3,2)&":"&MID(A2,5,2)&":"&MID(A2,7,2)&":"&MID(A2,9,2)&":"&RIGHT(A2,2)

ملاحظة: في الصيغة ، A2 هي الخلية التي تحتوي على الرقم الذي ستقوم بتنسيقه كتنسيق mac.

2. حدد خلية النتيجة الأولى ، واسحب مقبض التعبئة لأسفل للحصول على جميع أرقام تنسيق mac. انظر لقطة الشاشة:

تنسيق عناوين mac في الخلايا عن طريق إضافة نقطتين باستخدام VBA

باستخدام رمز VBA أدناه ، يمكنك تنسيق مجموعة من الأرقام كعناوين mac في وقت واحد في Excel. الرجاء القيام بما يلي.

1. اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الكود.

كود فبا: تنسيق الأرقام كعناوين ماك في الخلايا

Sub FormatMAC()
    Dim I As Long
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    Dim xStr As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select range：", "Kutools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xVal = xCell.Value
        If InStr(xVal, ":") > 0 Then
            xVal = Replace(xVal, ":", "")
            If Left(xVal, 1) = "0" Then xVal = Right(xVal, Len(xVal) - 1)
        End If
        For I = 1 To Int(Len(xVal) / 2)
            xStr = Mid(xVal, Len(xVal) + 1 - 2 * I, 2) & " " & xStr
        Next
        xStr = "0" & Mid(xVal, 1, 1) & " " & xStr
        xCell.Value = Left(Replace(xStr, " ", ":"), Len(xStr) - 1)
        xStr = ""
    Next
End Sub

3. In the opening Kutools for Excel dialog box, please select the cells with numbers you will format as mac addresses, and then click the OK button.

Then you can see all selected numbers are formatted as mac addresses as below screenshot shown.

---

Easily format mac addresses in cells by adding colon with Kutools for Excel

This section will introduce the Add Text utility of Kutoos for Excel. With this utility, you can quickly add colons to cells at specified positions. Please do as follows.

Before applying Kutools for Excel, please download and install it firstly.

1. Select the cells you need to format as mac addresses. And then click Kutools > Text > Add Text. 

2. In the Add Text dialog box, please type a colon into the Text box, select the Specify option, and then enter the specified position numbers into the box. And finally click the OK button.

Note: In this case, I need to add colons after every two numbers in cells, so I enter 2, 4, 6, 8 and 10 and separate them by commas. See screenshot:

  If you want to have a free trial (30-day) of this utility, please click to download it, and then go to apply the operation according above steps.

---

Related articles:

• How to add text in middle of selected cells in Excel?
• How to add comma at end of cell/text in Excel?
• How to add a character before each word in a cell in Excel?

---

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

• Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• More than 300 powerful features. Supports Office / Excel 2007-2021 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Read More... Free Download... Purchase... 

---

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

• Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
• Open and create multiple documents in new tabs of the same window, rather than in new windows.
• Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

Read More... Free Download... Purchase...