Renata
Dankiewicz
Operations Manage
System Clerk
konto usunięte
Sub ZmienNazwyArkuszy()
Dim Arkusz As Worksheet
Const WspolnaCzescNazwy As String = "wrzes"
For Each Arkusz In Worksheets
Arkusz.Name = WspolnaCzescNazwy & Arkusz.Index
Next Arkusz
End Sub
Sławomir
Broda
VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...
Sub nazwy()
Dim nazwa As String
Dim sh As Worksheet
nazwa = "wrzes"
For Each sh In Sheets
On Error GoTo err_h
sh.Name = nazwa & sh.Index
Next sh
Exit Sub
err_h:
Sheets(nazwa & sh.Index).Name = "temp" & CInt(Rnd() * 100)
Resume
End Sub
Sławomir
Broda
VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...
Paweł K.:A kolejne uruchomienia wygenerują błąd :).
Najszybciej zrobisz to przy pomocy VBA. Wklej poniższy kod do modułu i uruchom (F5):
Sub ZmienNazwyArkuszy()
Dim Arkusz As Worksheet
Const WspolnaCzescNazwy As String = "wrzes"
For Each Arkusz In Worksheets
Arkusz.Name = WspolnaCzescNazwy & Arkusz.Index
Next Arkusz
End Sub
--
Paweł Kiraga, piszący blog o praktycznym wykorzystaniu pakietu Microsoft Office
konto usunięte
Sławomir Broda:
Paweł K.:A kolejne uruchomienia wygenerują błąd :).
Najszybciej zrobisz to przy pomocy VBA. Wklej poniższy kod do modułu i uruchom (F5):
Sub ZmienNazwyArkuszy()
Dim Arkusz As Worksheet
Const WspolnaCzescNazwy As String = "wrzes"
For Each Arkusz In Worksheets
Arkusz.Name = WspolnaCzescNazwy & Arkusz.Index
Next Arkusz
End Sub
--
Paweł Kiraga, piszący blog o praktycznym wykorzystaniu pakietu Microsoft Office
konto usunięte
Sławomir Broda:
For Each sh In Sheets
Renata
Dankiewicz
Operations Manage
System Clerk
Sławomir
Broda
VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...
Paweł K.:A proszę przestawić jedną zakładkę :).
Sławomir Broda:
Paweł K.:A kolejne uruchomienia wygenerują błąd :).
Najszybciej zrobisz to przy pomocy VBA. Wklej poniższy kod do modułu i uruchom (F5):
Sub ZmienNazwyArkuszy()
Dim Arkusz As Worksheet
Const WspolnaCzescNazwy As String = "wrzes"
For Each Arkusz In Worksheets
Arkusz.Name = WspolnaCzescNazwy & Arkusz.Index
Next Arkusz
End Sub
--
Paweł Kiraga, piszący blog o praktycznym wykorzystaniu pakietu Microsoft Office
Nie wydaje mie się ;-)
konto usunięte
Sławomir Broda:
Paweł K.:A proszę przestawić jedną zakładkę :).
Sławomir Broda:
Paweł K.:A kolejne uruchomienia wygenerują błąd :).
Najszybciej zrobisz to przy pomocy VBA. Wklej poniższy kod do modułu i uruchom (F5):
Sub ZmienNazwyArkuszy()
Dim Arkusz As Worksheet
Const WspolnaCzescNazwy As String = "wrzes"
For Each Arkusz In Worksheets
Arkusz.Name = WspolnaCzescNazwy & Arkusz.Index
Next Arkusz
End Sub
--
Paweł Kiraga, piszący blog o praktycznym wykorzystaniu pakietu Microsoft Office
Nie wydaje mie się ;-)
Marek
Zadęcki
pracownik biurowy i
kadrowy
konto usunięte
Marek Zadęcki:Nie będę czekał, aż pozwolą, dam małą podpowiedź ode mnie. Po drobnych modyfikacjach można zastosować kody do zmiany nazw podane przez piszących w tym wątku.
Jeśli pozwolicie ja zadam pytanie innego rodzaju.
Mam plik z arkuszami od styczeń do grudzień 2012 (poprawnie zapis wygląda styczeń_2012...grudzień_2012). Jak powinno wyglądać makro, które po zmianie roku w komórce A4 zmieni końcówkę nazwy wszystkich arkuszy?Wartość z komórki A4 aktywnego arkusza odczytamy za pomocą
W A4 mam link do listy rozwijalnej w innym arkuszu.
пропозиції роботи
Range("A4").ValueWorksheets("NazwaArkusza").Range("A4").ValueZ góry dziękuję za odpowiedź.Te wskazówki pozwolą napisać makro, które będzie działało również w tych starszych wersjach Excela.
I jeszcze jeden kłopot - używam Excela 2003 - bardzo proszę o makro, które będzie działać w tej wersji i w wersji 2002 (taką mam w pracy).
Marek
Zadęcki
pracownik biurowy i
kadrowy
Paweł K.:
Te wskazówki pozwolą napisać makro, które będzie działało również w tych starszych wersjach Excela.
--
Paweł Kiraga, piszący blog o praktycznym wykorzystaniu pakietu Microsoft Office
Sławomir
Broda
VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...
Marek Zadęcki:Nauka to chyba nie przyklejanie gotowego kodu? Bo o to po raz kolejny na tym forum Pan prosi.
Paweł K.:
Te wskazówki pozwolą napisać makro, które będzie działało również w tych starszych wersjach Excela.
--
Paweł Kiraga, piszący blog o praktycznym wykorzystaniu pakietu Microsoft Office
Bardzo przepraszam - czy mógłbym prosić o kod całego makra dostosowany do moich potrzeb.
Jestem ledwie raczkującym w dziedzinie pisania makr. Moje własne dokonania nie są warte publikacji. Wciąż się uczę wyznając zasadę, że najlepiej uczyć się od fachowców na ich przykładach.
Ideałem byłby załącznik. Ale o to nie śmiem prosić - poza tym skopiowanie i umieszczenie w module makra lub Worksheet to już nie jest filozofia.
Z góry dziękuję za poświęcony czas.
Marek
Zadęcki
pracownik biurowy i
kadrowy
Sławomir
Broda
VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...
Marek
Zadęcki
pracownik biurowy i
kadrowy
Tomasz
Gryzio
Dyrektor
zarządzający/Trener/
Konsultant - It
School
Sławomir
Broda
VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...
Tomasz Gryzio:Kurczę, a już wisiałem na telefonie do prawnika żeby pozew pisać :(.
Witam,
Panie Marku proszę bardzo kod całego makra - makra z pierwszego postu autorstwa Kolegi Sławka Brody (i tutaj podkreślam, że pełne prawa do kodu i pozdrowienia lądują u Kolegi) dostosowany do Pana Potrzeb.
Pozdrawiam!
Marek
Zadęcki
pracownik biurowy i
kadrowy
Tomasz Gryzio:
Witam,
Panie Marku proszę bardzo kod całego makra - makra z pierwszego postu autorstwa Kolegi Sławka Brody (i tutaj podkreślam, że pełne prawa do kodu i pozdrowienia lądują u Kolegi) dostosowany do Pana Potrzeb.
Pozdrawiam!
Array={styczeń, luty, marzec, kwiecień, maj, czerwiec, lipiec, sierpień, wrzesień, październik, listopad, grudzień}
Tomasz
Gryzio
Dyrektor
zarządzający/Trener/
Konsultant - It
School
Następna dyskusja:
