Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

vba - Nazwa aktualnego arkusza jako numer kolumny

gentooo 22 Kwi 2012 14:26 2533 7
  • #1 22 Kwi 2012 14:26
    gentooo
    Poziom 9  

    Mam dwa arkusze (planuje więcej)
    Dane jako baza do wszystkiego
    w niej są kolejne dni jako kolumny
    próbuje wstawić w makro w akruszu o nazwie "1" skrypt czytający nazwę aktualnego arkusza (1) i zakreślić zakres dajmy na to 1 odpowiadający c:c w arkuszu Dane. Coś nie bardzo mi to wychodzi...

    odpowiednio później 2 d:d, 3 e:e: 4 f:f:

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Proszę o pomoc, z góry dziękuje


    calosc
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0 7
  • #2 22 Kwi 2012 23:48
    adamas_nt
    Moderator Programowanie

    Hmm... Set odnosi się do obiektów i takie przypisanie wyniku szukania czegoś w arkuszu skończy się błędem.
    Prawidłowo byłoby Np

    Kod: vb
    Zaloguj się, aby zobaczyć kod
    Dalej nie podpowiem, bo trudno się domyślić o co biega.

    0
  • #3 25 Kwi 2012 12:31
    walek33
    Poziom 28  

    Cytat:
    Set odnosi się do obiektów...

    I masz rację. Jednakowoż wynik wyszukiwania przez .Find() to nic innego jak obiekt typu Range. Korzystanie z Set jest więc możliwe. Potrzebna jest deklaracja zmiennej "znaleziona" jako Object.

    0
  • #4 25 Kwi 2012 12:32
    gentooo
    Poziom 9  

    wstawiłem nazwę arkusza do komórki, dalej funkcją poszło banalnie już.

    0
  • #5 25 Kwi 2012 17:40
    walek33
    Poziom 28  

    A czemu nie zastosujesz rozwiązania kol. adamas? W tym przypadku jest ono właściwym sposobem.

    0
  • #6 26 Kwi 2012 12:19
    gentooo
    Poziom 9  

    incalid use of Me keyword

    0
  • #7 27 Kwi 2012 13:55
    walek33
    Poziom 28  

    To nie używaj Me tylko elementu, który Me miało zastąpić.

    0
  • #8 30 Kwi 2012 11:52
    gentooo
    Poziom 9  

    ...
    If ActiveSheet.Name = 31 Then zmm = "ah"

    Set znaleziona = Worksheets("Dane").Range(zmm & ":" & zmm).Find(szukana

    tak zrobiłem.

    0