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
 
 » PeKa 18:16
 » PCCPU 18:10
 » Chan 18:07
 » wrrr 18:04
 » dugi 18:04
 » rainy 18:01
 » GLI 18:00
 » MARtiuS 17:59
 » KHot 17:49
 » Matti 17:46
 » Kenny 17:27
 » Emios 17:27
 » J@rek 17:23
 » emigrus 17:17
 » piszczyk 17:13
 » Katoda Lt 17:11
 » AfiP 17:09
 » rooter666 17:06
 » @GUTEK@ 16:47
 » myszon 16:47

 Dzisiaj przeczytano
 64041 postów,
 wczoraj 22848

 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