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

    Fototrend

    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

  • #28201 #20368384 törölt tag
    Új Válasz #28201
    Ú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

    #20368384

    törölt tag

    Érdekes hiba:
    1. Van egy táblázatom (Google Adwords-ből CSV vagy XLSX export - ugyanúgy előjön a hiba)
    2. Vannak oszlopok, ahol csak számok vannak
    3. CTR+F-el vagy makróval eltávolítom belőlük az ALT+0160 típusú szóközkaraktert
    4. Majd valutává konvertálom
    5. Az ezrestől nagyobb, régebben (ALT+0160) típusú szóközt tartalmazó, mostanra normális számként funkcionáló cellákba az érték nem állítódik be.
    6. Bele kell egyszer legalább kattintani és kikattintani belőlük vagy entert ütni.
    7. Akkor végre jobbra igazítja és valóban valuta lesz belőle.

    A kérdésem, az, hogy ez Excel hiba, és hogy orvosolható-e egyetlen lépésben?
    Van olyan lehetőség, ami újra beírja az értékeket az adott tartományban?

    A Makrót amit eddig írtam hozzá a következő

    Sub Google_Kulcsszojelentes_Formazas()
    '
    ActiveCell.Range("A1:M1").Select
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    End With
    Selection.Merge
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 65535
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    ActiveCell.Offset(1, 0).Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$M$36"), , xlYes).Name = _
    "Táblázat1"

    ActiveCell.Range("A1:M35").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

    ActiveCell.Offset(-1, 3).Range("A:A,E:E,F:F,I:I").Select
    ActiveCell.Offset(0, 11).Range("A1").Activate
    Selection.Style = "Currency"
    End Sub

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