Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #11687 Fire/SOUL/CD félisten Badb0y #11686
    Új Válasz #11687
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fire/SOUL/CD

    félisten

    válasz Badb0y #11686 üzenetére

    Még1x nekifutottam a dolognak, ez lett belőle. [link]

    A makró, a Notebook.xls, csalamádé oszlopára támaszkodik, azaz az A oszlopra. A függvényt(az alábbi kódot) új modulba kell bemásolni.

    Function FSCD_GetMachineInfo(MyRange As Range) As String

    Dim MyString As String
    Dim MyArray() As String
    Dim MyRightMarker_Good() As Variant, MyRightMarker_Bad() As Variant
    MyRightMarker_Good = Array("11.6", "12.1", "12.5", "12.6", "13.1", "13.3", "14.1", "15.6", "17.3", "18.4")
    MyRightMarker_Bad = Array("11,6", "12,1", "12,5", "12,6", "13,1", "13,3", "14,1", "15,6", "17,3", "18,4")

    MyString = MyRange.Value
    For i = 0 To UBound(MyRightMarker_Good)
    MyString = Replace(MyString, MyRightMarker_Bad(i), MyRightMarker_Good(i))
    Next i
    MyString = Replace(MyString, "BONTOTT", "")
    MyString = Replace(MyString, "NB", "")
    MyString = Trim(MyString)
    MyString = Replace(MyString, ",", " ")
    MyString = Replace(MyString, " ", " ")
    MyArray = Split(MyString, " ")
    MyString = ""
    For i = 0 To UBound(MyArray)
    If Not (InStr(1, MyArray(i), ".", vbTextCompare) > 0 Or _
    InStr(1, MyArray(i), ",", vbTextCompare) > 0 Or _
    InStr(1, MyArray(i), """", vbTextCompare) > 0) _
    Then
    MyString = MyString + MyArray(i) + " "
    Else
    Exit For
    End If
    Next i
    FSCD_GetMachineInfo = Trim(MyString + "Laptop")

    End Function

    Többet sajnos nem tudok kihozni makróval... :(

    UI: Elnézést, hogy nem hamarabb írtam, de ma is hajnali 4 körül értem haza egy melóból, csak most volt rá időm ...

Új hozzászólás Aktív témák