Mac osoite

Ettei vaan elokuvaksi muutu.

Käy kysy kirjastonhoitajalta josko olisi hidasteena toimivaan kytkimeen rasvaa.

Anna sille se syöttökaavaan muutuja, muuttuja, : tyyliin!

Unohda jo toimimattomat Microsft ohjelmat!

Löytyy yksinkertainen esimerkki.


To format a MAC address string without delimiters to a MAC address separated by a colon (:) or hyphen (-), you can use a formula based on the TEXTJOIN, MID, and SEQUENCE functions. In the example shown, the formula in D5, copied down, is:

=TEXTJOIN(C5,1,MID(B5,SEQUENCE(6,1,1,2),2))

The formula returns the formatted strings as seen in column D.

Ko. sivun moduliin:

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Tähän ne alueet, joilla muutos tehdään
    If Intersect(Target, Range("E3:F4")) Is Nothing Then Exit Sub
    uusi = ""
    m = 0
    For i = 1 To Len(Target.Text)
        ch = Mid(Target.Text, i, 1)
        If m = 2 Then
            uusi = uusi + ":"
            m = 0
        End If
        Select Case UCase(ch)
            Case "0" To "9", "A" To "F": uusi = uusi + ch: m = m + 1
        End Select
    Next i
    On Error GoTo err:
    Application.EnableEvents = False
    If Len(uusi) = 17 Then
        Target = uusi
        Target.Interior.Pattern = xlNone
    Else
        Target.Interior.Color = RGB(255, 255, 0)
    End If
err:
    Application.EnableEvents = True
End Sub

tavalliseen moduuliin...
Function TekeeMAC(ByVal MAC As String) As String
Dim i As Long
For i = Len(MAC) - 2 To 2 Step -2
MAC = Left(MAC, i) & ":" & Mid(MAC, i + 1)
Next
TekeeMAC = MAC
End Function

Voit käyttää funktiota solussa tyyliin =TekeeMAC(I4)

Keep EXCELing
@Kunde