Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    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

  • #53549 Fire/SOUL/CD félisten ny.janos #53548
    Új Válasz #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