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
 
 » Zbyszek.J 00:04
 » Wolf 00:02
 » Mariosti 23:59
 » lcf 23:51
 » rainy 23:44
 » Hitman 23:27
 » Fl@sh 23:17
 » DJopek 23:08
 » petropank 23:07
 » rarek 23:06
 » b0b3r 22:58
 » cVas 22:56
 » dugi 22:51
 » Dexter 22:50
 » Soulburne 22:44
 » stefan_nu 22:41
 » Brauni 22:41
 » maddog 22:39
 » Kenny 22:36
 » toledo 22:35

 Dzisiaj przeczytano
 335 postów,
 wczoraj 42635

 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