Hirdetés

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

    LOGOUT

    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

  • #28036 Pakliman tag attilalr2 #28000
    Új Válasz #28036
    Ú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 attilalr2 #28000 üzenetére

    Hali!

    Nem tudom, Nálad milyen kódolás van.
    A munkahelyemen spec. program TXT kimenetét kellett átalakítanom olvashatóbbá.
    A makró (standard modulba rakod):

    Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
    Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long

    Public Function Konvert(mit, Optional KellKonvertálni As Boolean = True) As String
    Dim vissza As Long
    Dim dest As String

    If KellKonvertálni Then
    dest = Space(Len(mit))
    vissza = OemToCharBuff(mit, dest, Len(mit))
    Else
    dest = mit
    End If

    Konvert = dest

    End Function

    Ezt használhatod cellába beírva, vagy akár egy újabb makróban is, amelyik végigfut a szükséges cellákon és átalakítja a tartalmukat. :)

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