VBA [Excel] Generowanie tabeli danych na podstawie tabeli 2-wymiarowej
otwarty rozpoczął: jlz1
postów: 4
napisał: Trebor postów: 1209
umieszczony: 25 maja 2011 18:44
Sprawdź poniższą wersję - minimum.
Sub herbata() Dim i As Long, j As Integer, wiersz AsLong
Sheets("Arkusz2").Activate
wiersz = 1 With Sheets("Arkusz1") For i = 5 To 13 For j = 4 To 17 If .Cells(i, j) <> "" Then
wiersz = wiersz + 1
Cells(wiersz, 1) = .Cells(i, 3)
Cells(wiersz, 2) = .Cells(4, j)
Cells(wiersz, 3) = .Cells(i, j) EndIf Next j Next i EndWith EndSub
Bez załącznika - przynajmniej skoroszytu - będzie trudno udzielić właściwej pomocy.
hej
napisał: jlz1 postów: 2
umieszczony: 25 maja 2011 15:17
Witam,
Mam wykonać zadanie o podanej treści: Cytat:
Celem zadania jest zaprojektowanie makra, które w nowym arkuszu o nazwie Arkusz2
wygeneruje tabelę danych o strukturze przedstawionej na rys.2 na bazie danych
zgromadzonych w Arkusz1 (rys.1). Dla każdej wartości kilogramów zamówionej
herbaty makro powinno odczytać z tego samego wiersza nazwisko pracownika i z tej
samej kolumny nazwę herbaty i zapisać te trzy dane w poszczególnych wierszach
nowej tabeli. W wygenerowanej tabeli powinno być zatem tyle wierszy ile jest
niezerowych liczb określających ilość sprzedanej herbaty.
Pracownik
Niestety moje umiejętności ograniczają się jedynie do wypisania wszystkich nazwisk w Arkuszu2.
Sub zad() Dim i As Integer, j As Integer, n AsInteger Set pracownik = Worksheets("Arkusz1").Range("c5:c13") Set herbata = Worksheets("Arkusz1").Range("d4:q4") Set ilosc = Worksheets("Arkusz1").Range("d5:q13") Set a2 = [a2]
For i = 1 To pracownik.Count
a2(i) = pracownik(i) Next i
EndSub
To co zrobiłem do tej pory oraz plik znajdują się w załączniku.
wstecz 1 dalej
otwarty rozpoczął: jlz1
postów: 4
