Excel 2016 - sam zmienił domyśne formatowanie z ogólnego na walutowe w Euro

Zastosowałeś olewajkę, dlatego nie mogłeś uchwycić błędu.

On Error Resume Next

Poza tym twoja procedura sprawa dostępne style, a nie zmienia jak przypuszczam, powinna, obecne inne style na Normal.

Poniżej masz 2 procedury - pierwsza z myślą aby sprawdzić ile komórek miała inny styl

Druga wymuszająca zmienię na wszystkich komórkach aktywnego zakresu komórek.

Sub wstaw_styl_normal_sprawdzajac_ile_innych()

Dim x As Integer: x = 0

Dim wks As Worksheet: Set wks = ActiveSheet

Dim c As Range, r As Range: Set r = wks.UsedRange

For Each c In r

      If c.Style <> "Normal" Then x = x + 1: c.Style = "Normal"

Next

MsgBox "Zmieonono " & x & " komórek, ktore miały inny styl niż normal.", _

       vbInformation, "www.VBATools.pl"

End Sub

Sub wstaw_styl_normal()

Dim wks As Worksheet: Set wks = ActiveSheet

Dim r As Range: Set r = wks.UsedRange

r.Style = "Normal"

MsgBox "Zmieonono " & r.Count & " komórek, na styl normal.", _

       vbInformation, "www.VBATools.pl"

End Sub

Fakt, nie potrzebne to jest.

Dodałem na szybko jak mi wywalał błąd, że nie może usunąć stylu wiec dodałem na szybko zmienną, do której wrzucił nazwę stylu abym wiedział w trybie debugowania  na czym się zacina

Co to jest w twoim kodzie: aaa ?

Panie Oskarze znalazłem przyczynę.

Po analizie różnorakich wpisów na forach zagranicznych znalazłem podobne problemy ludzi (zarówno z Excel 2003, 2007, 2010 itp)

Głownie mieli problem, że ogólne zamieniał im na formatowanie daty.

Problem lezy w modyfikacji Stylów.

I się zgadza. U mnie było ponad 800 stylów komórek niestandardowych, i wbudowana miała zmieniony typ formatowania (i nazywały się normalny. walutowy i liczbowy.

Tylko jedno mnie zastanawia. JAK ONE POWSTAŁY? Nikt nie ma dostępu do tych plików. Ja nie dodawałem żadnych spisów.

W kodzie VBA używam formatowania komórek, ale wg tego co "nasłuchałem" rejestratorem

    Columns("AW:AY").Select

    Selection.Style = "Currency"

    Selection.NumberFormat = "#,##0.00 $"

    Selection.NumberFormat = _

        "_-* #,##0.00 [$zł-415]_-;-* #,##0.00 [$zł-415]_-;_-* ""-""?? [$zł-415]_-;_-@_-"

    Columns("AJ:AJ").Select

    Selection.Style = "Percent"

    Selection.NumberFormat = "0.00%"

    Columns("AT:AT").Select

    Selection.NumberFormat = "General"

zapuściłem ten kod w pętli  na nowym, pustym arkuszu zmiany formatowania i nie zaobserwowałem aby dodał mi nowe style.

Ma Pan albo może ktoś inny pomysł skąd mogło się to wziąć?

Dla osób z podobnym problemem oto jak naprawić:

1. usunąć niestandardowe style (kod ze strony wsprarcia MS przerobiony przeze mnie w celu omniecia blokady usunięcia stylu o nazwie "Normal", który trzeba niestety ręcznie wywalić)

Sub usun_styl()

Dim st As Style

Dim x As Integer

On Error Resume Next

x = 0

For Each st In ActiveWorkbook.Styles

    If st.BuiltIn = False Then

        st.Locked = False

        aaa = st.Name

        st.Delete

        x = x + 1

    End If

Next

 On Error GoTo 0

MsgBox ("Deleted " & x & " styles")

End Sub

 2. Naprawa stylu "Normalny"

3. Zapis arkusza i zamknięcie
4. Uruchomienie i weryfikacja komórek ze skopanym formatowaniem (reset formatowania komórki + poprawienie na docelowy).

Ustawienia regionalne są OK, Mam PLN, zresztą wszystko jest identycznie jak na screenach (profilaktycznie zrobiłem reset ale nie przynisło to żadnych rezultatów)

Szablonu nigdy nie stosowałem i nie mam ustawionych ani dla nowych plików ani dla tych, z którymi mam problem (wskazane pole jest puste)