Mac osoite

Anonyymi-ap

Miten toteuttaa jos soluun A1 syötetään 109ab9049f56 niin kun painetaan enter niin solussa oleva arvo muuttuukin muotoon 10:9a:b9:04:9f:56 eli lisää joka toisen merkin väliin : pisteet?

9

870

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Ettei vaan elokuvaksi muutu.

      • Anonyymi

        Se on aina vaara M$ tuotteissa!


    • Anonyymi

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

    • Anonyymi

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

    • Anonyymi

      Unohda jo toimimattomat Microsft ohjelmat!

    • Anonyymi

      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.

      • Anonyymi

        Kiitos :)


    • Anonyymi

      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

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Valkeakosken murhaaja

      Raiskausrikosten joukossa kanta suomalainen tekijä on niin harvinainen että kannattaa erikseen mainita. Raiskausuutisia
      Maailman menoa
      182
      10952
    2. Valkeakosken sekopää murhaaja.

      Itselläni on 3 teini ikäistä tytärtä ja tämä tapaus on herättänyt minussa tosi paljon surua ja vihaa. On käsittämättömän
      Valkeakoski
      142
      2037
    3. Naiset pysyy sinkkuna ja ottavat mieluimmin koiran

      Nykynainen ei halua jakaa elämäänsä miehen kanssa, vaan elää yksin ja ottaa koiran tai koiria. Ja pikkuvähemmistö eli in
      Sinkut
      241
      1374
    4. Sille yhelle vaa

      Viime aikoina oon miettinyt sun juttuja aika paljon. Vaikka en oo saanu susta vielä kunnolla selvää kuvaa, jotenkin tunt
      Ikävä
      61
      1000
    5. Kiitos kun annoit värejä elämääni

      Edes pienen hetken. Sellasiakin mitä en muuten näe ;) ❤️
      Ikävä
      53
      900
    6. Hiljaista on

      Ei kuulu viestiä 😘 pallo on sinulla Mies, odotan!
      Ikävä
      60
      848
    7. Nainen, se kun olit joskus niin vakavana

      ja naama peruslukemilla, toisinaan silloinkin kun kuuntelit juttujani. Se ilme on jäänyt lähtemättömästi mieleeni. Mitäh
      Ikävä
      42
      747
    8. Onhan sulla

      Nainen nyt varmasti kaikki hyvin.
      Ikävä
      52
      699
    9. Kysymys iltaan

      Kuinka kuuma kaivattusi on celsius-asteikolla?
      Ikävä
      42
      679
    10. Olen ylpeä sinusta

      nainen. Vaikutat "vanhalta" tekijältä. Olet aarre tälle touhulle ja uskon että pääset vielä pitkälle jos haluat. Ehkä sa
      Tunteet
      25
      675
    Aihe