Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - zamiana tekstu i Runtime error 13 type mismatch

Speedy · Fan Excela Posty: 66

Hej.
Przepraszam, że zawracam głowę czymś prawdopodobnie bardzo prostym, ale mam jakieś zaćmienie i nie wiem co jest.

Napisałem prościutkie makro zamieniające fragment tekstu w kolumnie A na inny, krótszy tekst:

Kod:

Sub zamieniacz_zapytan()
'
' Zamienia niektóre sformułowania w zapytaniach na krótsze

Dim brakz, brakub As String

brakub = "W 2022 brak produkcji wytworzonej, w 2023 produkcja występuje; co jest tego powodem?W 2022 brak produkcji sprzedanej, w 2023 produkcja występuje; co jest tego powodem?W 2022 brak wartości produkcji sprzedanej, w 2023 wartość występuje; co jest tego powodem?"

brakz = "W 2022 brak produkcji, w 2023 produkcja występuje; co jest tego powodem?"
Columns("a:a").Select

Selection.Replace What:=brakub, Replacement:=brakz, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

No i przy uruchomieniu dostaję komunikat błędu, jak w tytule:

Cytat:

Run-time error'13':
Type mismatch

Co robię źle? Prawdopodobnie jakiś głupi podstawowy błąd, ale nie mogę go dostrzec.

Maciej Gonet · Wysłany: 27-05-2024, 17:31

Powodem błędu jest zbyt długi tekst 'brakub'. Ma 257 znaków, a przechodzi tylko 255.
Należałoby to podzielić na etapy.

Speedy · Fan Excela Posty: 66

Maciej Gonet · Wysłany: 27-05-2024, 17:39

Ja też nie pamiętałem, ale sprawdziłem. Wiele funkcji ma takie ograniczenia, choć nie zawsze o tym piszą w helpie. Np. argument tekstowy metody Evaluate, długość listy sprawdzania poprawności wpisanej bezpośrednio itp.