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

  • #40997 Pakliman tag -szabi- #40996
    Új Válasz #40997
    Ú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

    Pakliman

    tag

    válasz -szabi- #40996 üzenetére

    Szia!

    Egy lehetőség:
    (A wiki oldalát jelöld ki CTRL+A-val, majd CTRL+C, aztán a makró indítása)

    Sub Olvas()
    Dim oClip As Object
    Dim arr
    Dim db As Long
    Dim i As Long
    Dim sor As Long
    Dim bKód As Boolean

    'Ez a Microsoft Forms 2.0 Object Library "késői kötése" (c:\windows\system32\FM20.DLL)
    Set oClip = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

    On Error GoTo Hiba
    oClip.GetFromClipboard
    'Beolvassuk egy tömbbe a szöveget...
    arr = Split(oClip.GetText(1), vbCrLf)
    db = UBound(arr)

    bKód = False
    sor = 0
    For i = 0 To db
    If arr(i) Like "### ?*" Then
    bKód = True
    sor = sor + 1
    Cells(sor, 1) = Left(arr(i), 3)
    Cells(sor, 2) = Mid(arr(i), 5)
    End If

    If bKód = True Then
    If arr(i) Like " ?*" Then
    Cells(sor, 3) = Cells(sor, 3) & IIf(Cells(sor, 3) <> "", vbCrLf, "") & Mid(arr(i), 5)
    End If
    End If
    Next i

    Hiba:

    End Sub

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