VBA.Mania

Dziś jest wtorek, 14 maja 2024 roku.

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Problem z nietypową konwersją danych i odwołaniami obiektu otwarty rozpoczął: Szalony postów: 2

napisał: Trebor postów: 1209 umieszczony: 8 czerwca 2011 18:55
	Wypróbuj poniższy kod. Sub michal() Dim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If IsNumeric(Cells(i, 1)) And Cells(i, 1) <> "" Then Cells(i + 19, "I") = "=average(H" & i & ":H" & i + 15 & ")" Cells(i + 20, "I") = "=STDEV(H" & i & ":H" & i + 15 & ")" Cells(i - 5, 4) = Cells(i + 16, 9) Cells(i - 5, 5) = Cells(i + 17, 9) Cells(i - 5, 6) = Cells(i + 18, 9) Cells(i - 5, 7) = Cells(i + 19, 9) Cells(i - 5, 8) = Cells(i + 20, 9) i = i + 19 End If Next i End Sub

napisał: Szalony
postów: 1

umieszczony:
8 czerwca 2011
12:48

nazwa pliku	rozmiar
TESTY vba.xls	57.00 kB

Witam Wszystkich,

kilka dni temu spadło na mnie zadanie przekonwertowania dużej tabeli. Nie jestem expertem VBA i niestety nie mam za dużo czasu aby poznać szczegóły programowania choć wiem co chcę zrobić. Fragment tabeli podaje w pliku. I w czym tkwi problem:

Każdy z arkuszy składa się z ciągu danych w postaci pewnego obszaru liczb i tekstu ( jest tego z 15 tyś.).
Potrzeba jest aby z kolumny H6:H21 wyliczyć średnią i wpisać do I25, a do I26 SD z tego samego zakresu - zrobiłem to.
Druga sprawa przekonwertować poziomo zakres I22:I26 do J22 lub najlepiej do D1 - częściowo się udało.

I jak to zapętlić aby działało w kolumnie I do końca arkusza dla każdego takiego obszaru danych. Tzn. by obiekt odwoływał się bezwzględnie do danego zakresu/wartości komórek a nie do położenia opartego na numerach wierszy.

Będę wdzięczny za uwagi i pomoc !
Szalony

wstecz 1 dalej

wszystkich stron: 1