Twoje PC  
Zarejestruj się na Twoje PC
TwojePC.pl | PC | Komputery, nowe technologie, recenzje, testy
B O A R D
   » Board
 » Zadaj pytanie
 » Archiwum
 » Szukaj
 » Stylizacja

 
M E N U
  0
 » Nowości
0
 » Archiwum
0
 » Recenzje / Testy
0
 » Board
0
 » Rejestracja
0
0
 
Szukaj @ TwojePC
 

w Newsach i na Boardzie
 
OBECNI NA TPC
 
 » ghost12 07:25
 » alkatraz 07:24
 » Miron 07:16
 » P@blo 07:09
 » Zbyl 07:07
 » DYD 07:06
 » XepeR 07:05
 » Syzyf 07:02
 » PaKu 07:01
 » leosh 06:55
 » AfiP 06:36
 » KHot 06:35
 » DJopek 06:29
 » Killer 06:19
 » Dexter 06:00
 » Kenny 05:55
 » hokr 05:45
 » @GUTEK@ 05:23
 » PeKa 05:07
 » cVas 05:05

 Dzisiaj przeczytano
 87626 postów,
 wczoraj 92849

 Szybkie ładowanie
 jest:
włączone.

 
ccc
TwojePC.pl © 2001 - 2026
A R C H I W A L N A   W I A D O M O Ś Ć
    

Excel - tworzeni arkuszy na podstawie listy danych - proszę o pomoc , Janusz 11/01/10 14:35
Mam prośbę, może ktoś mógłby mi pomoc bo VBA, to jeszcze nie jest mój poziom znajomości excela. Chodzi mi o utworzenie makra, które na podstawie listy danych /komórki zawierające Id klientów/ tworzy dla każdego klienta nowy arkusz kalkulacyjny i nazywa go tak samo jak Id klienta zapętlone od pierwszego id klienta z zakresu do ostatniego. Wszystko w ramach jednego skoroszytu /arkusz z listą i nowopowstałe arkusze również/. Z góry dziękuję za pomoc.

Zawsze warto być człowiekiem,
choć tak łatwo zejść na psy.
/Autsajder, Dżem/

  1. Hmmm... , ligand17 11/01/10 14:43
    Wpisz w Google "VBA Excel new worksheet" i masz wszystko pod ręką.
    W szczególności takie komendy, jak:
    Workbooks.Add

    ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

    ActiveWindow.Close

    + pętla:
    For i = 1 To liczbaklientów
    ...
    ...
    ...
    Next i

    No i podstawy operacji na komórkach.

    1. Acha , ligand17 11/01/10 14:45
      Chcesz mieć wszystko w jednym pliku? Bo jeżeli tak, to pamiętaj, że liczba możliwych "worksheets" jest ograniczona wielkością pamięci - więc czasem może działać, a czasem nie.

    2. Grrrrr , ligand17 11/01/10 14:46
      Błąd, zamiast Workbooks.Add powinno być:

      Worksheets.Add (After:=Worksheets(Worksheets.Count)).Name = IDKlienta

    
All rights reserved ® Copyright and Design 2001-2026, TwojePC.PL