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

1146

    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. Nyt tuli Suomen somaleista todella ikävää faktaa

      sillä osa somalivanhemmista lähettää lapsiaan kotimaahansa kurinpitolaitoksiin, joissa heitä pahoinpidellään. Illan MOT
      Maailman menoa
      329
      3883
    2. Häirintäkohun keskellä olevalta kansanedustajalta Jani Kokolta (sd) rajua tekstiä somessa.

      https://www.is.fi/politiikka/art-2000011772322.html Ajaakohan tämä SDP:n kansanedustaja Jani Kokko oikein täysillä valoi
      Maailman menoa
      128
      3580
    3. Kommentti: oikeuslaitos korvattava SDP:n johdolla

      Näkisin että Suomessa tuomiovalta pitäisi olla demareiden johtoportaalla. Koska porvarimedia säestettynä persujen kirku
      Maailman menoa
      5
      2292
    4. Onko kaivattusi spesiaali?

      Millä tavalla ja miten?
      Ikävä
      112
      1704
    5. Huono päivä

      Tänään on ollut tosi raskas päivä töissä. Tekis mieli itkeä ja huutaa. En jaksa just nyt mitään. Minä niin haluaisin ja
      Ikävä
      18
      1608
    6. Typeryyttä

      Se on kummallista, kun kaksi ihmistä tuntee selittämätöntä vetoa toisiinsa, mutta eivät vain pääse toistensa luokse. Mik
      Ikävä
      124
      1339
    7. Martina mukana erikoisjoukossa

      Huippurankka Erikoisjoukot-ohjelma jatkuu, Martina mukana. Kerrankin Martinalle hyvä ohjelma, hänellä on voimaa, sisua j
      Kotimaiset julkkisjuorut
      143
      961
    8. Lindtman haluaa leikata Kela-korvauksista...oho!

      Antti Lindtman sanoo Kauppalehdessä, että vuodesta 2028 voi tulla erittäin hankala, mikäli nykyinen hallitus ei tee riit
      Maailman menoa
      101
      919
    9. Häneen rakastuminen oli sellaista

      että aina uskoi ja luotti että kyllä tästä vielä edetään jotenkin. Se olikin vain rakastuneen toiveajattelua kaikki. Ta
      Ikävä
      79
      865
    10. Huonosti.

      Oletko kohdellut kaivattuasi huonosti? Miksi?
      Ikävä
      86
      781
    Aihe