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

• #53549 Fire/SOUL/CD félisten ny.janos #53548

  Új Válasz 2024-11-14 10:13:57 #53549

  Ú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 ny.janos #53548 üzenetére

  

  Module1 kód

  Option Explicit
'Fire/SOUL/CD - 2024

  Public Function Fire_BankAccount_FX(MyCell As Variant) As String
    
    'MyCell -> forrás cella címe (amit fel kell dolgozni)
    
    'elválasztó karakter (itt kötőjel),
    'ezzel vannak elválasztva számalászom 8-as csoportjai a cellá(k)ban
    Const MYDELIMITER = "-"
    
    'szöveg típusú dinamikus tömb
    Dim MyStringArray() As String
    
    'ciklusszámláló
    Dim i As Long
    
    'ebben hozzuk létre a cellákból kiszedett számlaszámot
    Dim BankAccount As String
    'FELOSZTÁS függvény segítségével, a MYDELIMITER paraméterrel tömböt hozunk létre
    MyStringArray = Split(MyCell.Value, MYDELIMITER)
    
    BankAccount = ""
    
    For i = 0 To UBound(MyStringArray)
        'eltávolítjuk a felesleges szóközöket a szöveg jobb- és bal oldaláról
        MyStringArray(i) = Trim(MyStringArray(i))
        
        'egy számlaszám 8-as csoportja akkor érvényes
        'ha 8 karakter hosszú és számként lehet értelmezni
        '(0-9 karaktereket tartalmazhat, mást nem)
        If (Len(MyStringArray(i)) = 8) And (IsNumeric(MyStringArray(i))) Then
            BankAccount = BankAccount + MyStringArray(i) + MYDELIMITER
        End If
    Next i
    
    'számlaszám végén mindig keletkezik egy felesleges kötőjel karakter, töröljük
    BankAccount = Left(BankAccount, Len(BankAccount) - 1)
    
    'függvény visszaadja a megtalált, érvényes formátumú számlaszámot
    Fire_BankAccount_FX = BankAccount
    
End Function

  Ez a makró függvény(másolható) semmi mást nem tesz, csak az adott cellából kiszedi a számlaszámokat. Innentől hagyományos keresőképletekkel kivitelezhető, hogy a keresési tartományban lévő cellák melyike tartalmazza az adott számlaszámot.

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