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

1119

    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. Suomen markka otettiin käyttöön vuonna 1860

      Suomi käytti vuoteen 1840 asti rahayksikkönään rinnakkain Ruotsin riikintaalareita ja Venäjän ruplaa. Tämän jälkeen oli
      Maailman menoa
      43
      9698
    2. Kaivatullesi viesti ensi vuoteen?

      Kerro meneekö naiselle vai miehelle ja vähintään yksi tunniste, esim. kirjain.
      Ikävä
      71
      4995
    3. "Mä elän vieläkin"

      Ikurin turbiini vetäisi taannoin lainabiisin Topin (RIP också) ja kumppaneiden kanssa. Toivottavasti on yläkerrassa kunn
      Tampere
      59
      4327
    4. Pate Mustajärvi on kuollut

      Ihan pari tuntia sitten. Että sellaista. https://www.is.fi/viihde/art-2000011715177.html
      Maailman menoa
      137
      2856
    5. Yksityinen sektori aiheuttanut Suomen taantuman

      Investointien sijasta nostaneet voitot osinkoina omistajille. Ehdotan korjausliikkeenä yksityisen sektorin sosialisoimi
      Maailman menoa
      137
      2669
    6. Nyt Yle otti silmätikukseen sisäministeri Rantasen

      Aivan erinomaista työtä tehnyt sisäministeri Mari Rantanen on saanut paljon aikaiseksi. Maahanmuuttoon ja maahanmuuttaji
      Maailman menoa
      176
      2489
    7. Miten ikinä kelpaisin sulle

      Sinä saat niiltä muilta naisilta paljon enemmän, mitä minulta... Tai mihin minä olisin valmis. Enkä edes olisi niin tait
      Ikävä
      26
      1875
    8. Milloin näit kaivattusi edellisen kerran?

      Olitteko juttusilla vai sivusta vain? Miten reagoit?
      Ikävä
      20
      1637
    9. Edes vitamiinit eivät taanneet loputonta elämää

      Nimittäin niistä rahaa itselleen taikonut tohtori siirtyi tuonpuoleiseen.
      Maailman menoa
      36
      1540
    10. Älä nyt ainakaan pelkää

      että enää yritän lähelle. Kyllähän toisen rajoja on kunnioitettava. Olen ymmärtänyt täysin, että en kiinnosta sillä tava
      Ikävä
      72
      990
    Aihe