Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64054 Skopiuj do schowka Znajdź i zamień
Autor Wiadomość
BrunO 
ExcelSpec



Pomógł: 126 razy
Posty: 551
Wysłany: 06-02-2019, 11:12   Znajdź i zamień

Sprawa wygląda tak - mam skoroszyt z kilkunastoma arkuszami. W każdym z nich mam analogiczne pole tekstowe, którym drukuję pseudopieczątkę (tzw. żabę dla księgowości). Wczoraj uświadomiłem sobie, że jedną rzecz na tej pieczątce muszę zaktualizować.
Więc Ctrl + F, Znajdź i zamień, przeszukuj cały skoroszyt i...
Lipa :-( To przeszukuje tylko zawartość arkuszy, ale obiektów w nich umieszczonych już nie. Arkuszy było stosunkowo niewiele, wiec przeleciałem to ręcznie, nawet makra nie chciało mi się na to pisać, ale spokoju mi to nie daje... Jest może jakaś opcja, żeby szukajka uwzględniała również pola tekstowe w arkuszach a nie tylko ich komórki?
ID posta: 362067 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 278 razy
Posty: 1521
Wysłany: 06-02-2019, 11:18   

IMHO - nie. Ale przecież mogę się mylić... :mrgreen:
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 362068 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 1248 razy
Posty: 4291
Wysłany: 07-02-2019, 09:04   

Raczej tylko VBA. Np. taki kod ze strony ExtendOffice:
Kod:
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
    xValue = shp.TextFrame.Characters.Text
    shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub


Zamiana_pole_tekstowe.xlsm
Pobierz Plik ściągnięto 8 raz(y) 18.15 KB

ID posta: 362115 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe