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

1015

    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. Ikävöin sinua kokoyön!

      En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun
      Ikävä
      44
      3126
    2. Kova karman laki

      Karman lain kautta pahantekijä tehdessään pahaa toteuttaa koston ja rangaistuksen sille jolle pahaa on tehty. Tämä tarko
      Hindulaisuus
      508
      1917
    3. Päivieni piristys, missä olet?

      Toit iloa ja valoa mun elämään ☀️ Nyt mennyt kohta viikko ettei ole nähty. Kaipaan nähdä sua silti ja pelkään vaikka tei
      Ikävä
      17
      1900
    4. Näen jatkuvasti Sompasaunalla alastomia miehiä ja naisia

      jotka menevät siihen viereiseen rantaan myös uimaan alasti. Sompasaunat on siis Mustikkamaalla Helsingissä, ja kuljen si
      Maailman menoa
      78
      1680
    5. Älä mahdollisesti ota itseesi

      En voinut tietää. Sitäpaitsi.. niin
      Ikävä
      18
      1502
    6. Jos sinä olisit pyrkimässä elämääni takaisin

      Arvelisin sen johtuvan siitä, että olisit taas polttanut jonkun sillan takanasi. Ei taida löytyä enää kyliltä naista, jo
      Tunteet
      43
      1388
    7. Ota nainen yhteyttä ja tee Tikusta asiaa?

      Niin sitten minä teen Takusta asiaa.
      Ikävä
      26
      1322
    8. Millainen kaivattusi luonne on?

      Millaisia luonteenpiirteitä arvostat kaivatussa? Oletteko samanlaisia luonteeltanne?
      Ikävä
      90
      1319
    9. Helena ja Mikko Koivun ero jatkuu edelleen ja loppua ei näy.

      Voi eikä, miksi menee noin vaikeaksi avioero ja sopua ei tää ex- pari vaan saa.
      Kotimaiset julkkisjuorut
      114
      1147
    10. UPM suunnittelee paperintuotannon lopettamista LPR:ssa

      Ilta-Sanomissa oli uutinen. Metsäyhtiö UPM suunnittelee paperintuotannon lopettamista Kaukaan-tehtaalla Lappeenrannassa
      Lappeenranta
      110
      1123
    Aihe