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

• #53571 Mutt senior tag Fire/SOUL/CD #53569

  Új Válasz 2024-11-15 16:24:18 #53571

  Ú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

  

  Mutt

  senior tag

  válasz Fire/SOUL/CD #53569 üzenetére

  Legyen akkor elválasztójel (ha úgy gondolkodunk, hogy a 24 számot osztjuk fel 3 csoportra).

  Felraktam a 2016-os verziómat, és nem ismerte fel a SZÖVEGÖSSZEFŰZÉST frissítés után sem. Rosszul emlékeztem akkor. Én két linket szoktam nézni, ha nem a memóriámra hagyatkozom:
  https://hu.excel-translator.de/fuggveny/
  Excel Microsoft Support Page

  Miért nem lehet üresre "" cserélni (kivágni) azt a karaktert szóköz helyett?
  Ez esetben egybe fognak folyni a számok és nem lehet tudni, hogy ha több mint 24 szám van, akkor hol végződik az első bankszámlaszám és hol kezdődik a következő. Ha csak 1 bankszámlaszám lehet, akkor üres a jobb megoldás.

  Ha vki MS365 Insider-t használ, annak pedig már van REGEXP is függvényben: A képlet: =REGEXKIVONÁS(A1;"\d{8}-?\d{8}-?(\d{8})?";1)

  VBA-ban már régóta lehet REGEXP-et használni, referenciák között engedélyezni kell a "Microsoft VBScript Regular Expressions 5.5" osztályt. Aztán lehet használni:
  Function BankSzamlak(cella As Range, minta As String) As Variant
    Dim regExp As New regExp
    Dim talalat
    Dim eredmeny, c As Long
    
    With regExp
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = minta
    End With
    
    If regExp.Test(cella) Then
        Set talalat = regExp.Execute(cella)
        ReDim eredmeny(talalat.Count - 1)
        
        For c = 0 To UBound(eredmeny)
            eredmeny(c) = talalat(c).Value
        Next c
    Else
        eredmeny = "(nincs adat)"
    End If
    
    BankSzamlak = eredmeny
End Function

  üdv

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