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
 
 » yeger 14:55
 » M@ryna 14:53
 » Ament 14:50
 » JE Jacaw 14:48
 » maddog 14:43
 » elliot_pl 14:37
 » KHot 14:37
 » [yureq] 14:37
 » 3kawki 14:25
 » Wedelek 14:17
 » rainy 14:15
 » Pio321 14:15
 » Sherif 14:08
 » El Vis 14:00
 » piwo1 13:57
 » Robek 13:56
 » alkatraz 13:56
 » adolphik 13:50
 » Hitman 13:47
 » NimnuL 13:40

 Dzisiaj przeczytano
 36880 postów,
 wczoraj 25433

 Szybkie ładowanie
 jest:
włączone.

 
ccc
TwojePC.pl © 2001 - 2025
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-2025, TwojePC.PL