Tomasz J.

Tomasz J. finanse,
rachunkowość,
podatki,
raportowanie

Temat: sheet/worksheet name wyciągana z komórki

W komórce arkusza mam wartość (czy string):

Testname = Sheets("Arkusz3").Range("b33").Value //lub .Text

który jest nazwą arkusza (niuanse w stylu czy to arkusz czy też wykres nieistotne)

jak w kolejnej linii odwołać się do obietku o arkusz Testname:

Sheets("Testname")

refers to? & ?

t

konto usunięte

Temat: sheet/worksheet name wyciągana z komórki

Nie wiem czy dobrze rozumiem o co pytasz.

Jezeli wykorzystujesz zmienną to bez cudzysłowiów.
zatem jezeli zmienna (string) testname przechowuje nazwe arkusa to

sheets(testname) zwróci arkusz o tej nazwie, oczywiscie o ile taki jest w aktywnym skoroszycie
Tomasz J.

Tomasz J. finanse,
rachunkowość,
podatki,
raportowanie

Temat: sheet/worksheet name wyciągana z komórki

faktycznie, najprostszego rozwiązania nie sprawdziłem.
dzięki

Henryk Kutypera:
Nie wiem czy dobrze rozumiem o co pytasz.

Jezeli wykorzystujesz zmienną to bez cudzysłowiów.
zatem jezeli zmienna (string) testname przechowuje nazwe arkusa to

sheets(testname) zwróci arkusz o tej nazwie, oczywiscie o ile taki jest w aktywnym skoroszycie
Tomasz J.

Tomasz J. finanse,
rachunkowość,
podatki,
raportowanie

Temat: sheet/worksheet name wyciągana z komórki

jeszcze jedno lamerskie pytanie

Testname = Sheets("Arkusz3").Range("b33").Value

działa, ale jak z tego zrobić:

Set Testarkusz = Sheets(Testname)

w helpie o takich banalnych problemach nawet nie wspominają..
Mariusz Jankowski

Mariusz Jankowski Programista
Excel/VBA

Temat: sheet/worksheet name wyciągana z komórki

Tomasz J.:
jeszcze jedno lamerskie pytanie

Testname = Sheets("Arkusz3").Range("b33").Value

działa, ale jak z tego zrobić:

Set Testarkusz = Sheets(Testname)

Zadeklaruj sobie wcześniej zmienną TestArkusz
np.
Dim TestArkusz As Worksheet

Reszta jest OK, pod warunkiem, że istnieje arkusz o nazwie podanej w komórce B33.
Tomasz J.

Tomasz J. finanse,
rachunkowość,
podatki,
raportowanie

Temat: sheet/worksheet name wyciągana z komórki

Ta.. zadeklarowałem as Sheets
Działa
thanks.

Mariusz Jankowski:
Tomasz J.:
jeszcze jedno lamerskie pytanie

Testname = Sheets("Arkusz3").Range("b33").Value

działa, ale jak z tego zrobić:

Set Testarkusz = Sheets(Testname)

Zadeklaruj sobie wcześniej zmienną TestArkusz
np.
Dim TestArkusz As Worksheet

Reszta jest OK, pod warunkiem, że istnieje arkusz o nazwie podanej w komórce B33.



Wyślij zaproszenie do