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

1054

    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. Ihanasti alkoi aamu: SDP:n kaula kokoomukseen jo 6,9 %-yks

      Lindtmanin I hallitus on tukevasti jytkyttämässä laittamaan Suomi kuntoon Orvon täystuhohallituksen jäljiltä, jonka kann
      Maailman menoa
      256
      1862
    2. Olen niin kesken

      Omien asioiden suhteen etkä voi odottaa loputtomiin. Mun on muutenkin niin vaikea suhun luottaa vaikka joku ihme syvyys
      Ikävä
      15
      1388
    3. Tietääkö joku ylläpidosta?

      Miten näillä palstoilla tomii tuo ylläpito, onko sitä yli päätään olemassa vai ovatko huhut totta että on palstan kirjoi
      Sinkut
      210
      1269
    4. Auttaja paikalla. Kerro huolesi. (Osa 2)

      Voin auttaa sinua näkemään tilanteesi uudesta näkökulmasta. Voin antaa lohtua, toivoa ja rohkeutta. Olen elänyt maan pä
      Ikävä
      185
      1125
    5. Minkä ikäinen

      Minkä ikäinen on kaipauksesi kohde?
      Ikävä
      65
      933
    6. Nainen olet ensimmäinen tarpeeksi vahva

      joka kestää tämän kokonaisuuden, minut. Persoonani, tunteeni, kipuni, pelkoni. Olen aina pidätellyt itseäni ja antanut v
      Ikävä
      60
      923
    7. TTK:sta tippunut Sara Siipola rehellisenä Jurza-open kanssa: "Että jaa, siinäkö..."

      Tippuiko oikea TTK-pari ensimmäisenä? Joka tapauksessa iso kiitos tansseistanne Sara ja Jurza Tanssii Tähtien Kanssa -p
      Tanssii tähtien kanssa
      18
      894
    8. Tunnisteita kaipaajille

      Onko jokin juttu mistä sun kaivattu tietää et viesti ois hälle? ☎️📝
      Ikävä
      51
      846
    9. Martina ei mennyt naimisiin

      IS 17.9: Martinan häät peruuntui, tajusi, ettei ollut oikea aika. Rahat meni hevosiin. On edelleen parisuhteessa Yhdysva
      Kotimaiset julkkisjuorut
      126
      810
    10. Mä tuun aina rakastamaan sua J

      Mutta en pysty kertomaan, että mikä mulla on hätänä. Mä en kertakaikkiaan pysty. Joskus naureskelit muiden ihmisten vai
      Ikävä
      61
      803
    Aihe