🚀 go-pugleaf

Natomiast taka próba:

For i = LBound(Parametry) To UBound(Parametry)
    Range(1, i).Value = Parametry(i)   /lub Cells(1, i).value
    Next i
kończy się błędem: Method Range of object '_Global" failed

W dniu piątek, 28 września 2012 14:02:08 UTC+2 użytkownik Bear napisał:
> Mam taki kod:
> 
> --------------------------------------------------------------------------
> 
> Dim Parametry As Variant
> 
> Parametry = Array("Time", "tzewn", "tzas_msc", "tpow_msc")
> 
> Range("A1:D1").Value = Application.WorksheetFunction.Transpose(Parametry)
> 
> --------------------------------------------------------------------------
> 
> Wstawienie skutkuje wypełnieniem całego zakresu A1:D1 pierwszym elementem z tablicy. Jak wypełnić zakres prawidłowymi elementami tablicy?
> 
> 
> 
> Dzięki za wszelkie sugestie (:

Use the loop, Bera...

W dniu piątek, 28 września 2012 14:22:04 UTC+2 użytkownik Bear napisał:
> Natomiast taka próba:
> 
> 
> 
> For i = LBound(Parametry) To UBound(Parametry)
> 
>     Range(1, i).Value = Parametry(i)   /lub Cells(1, i).value
> 
>     Next i
> 
> kończy się błędem: Method Range of object '_Global" failed

Dodaj 1 do LBound i UBound...

Taki kod działa poprawnie:
---------------------------------
    For i = LBound(Parametry) To UBound(Parametry)
    k = i + 1
    MsgBox (k)
    Cells(1, k) = Parametry(i)
    Next i

i przyjmuje wartość 0 jako pierwszą dlatego druga zmienna k

> Mam taki kod:
> --------------------------------------------------------------------------
> Dim Parametry As Variant
> Parametry = Array("Time", "tzewn", "tzas_msc", "tpow_msc")
> Range("A1:D1").Value = Application.WorksheetFunction.Transpose(Parametry)
> --------------------------------------------------------------------------
> Wstawienie skutkuje wypełnieniem całego zakresu A1:D1 pierwszym elementem z tablicy. Jak wypełnić zakres prawidłowymi elementami tablicy?
>
> Dzięki za wszelkie sugestie (:
>

Zupełnie nie rozumiem co Wy kombinujecie ... :( (we wszystkich 
pozostałych odpowiedziach)

jak chcesz wstawić tablicę do zakresu, robisz to wprost:
Range("A1:D1").Value = Parametry

jeśli chcesz odwrócić (przez .Transpose) zakres by mieć wartości w 
wierszach, robisz to tak:
Range("A1:A4").FormulaArray = 
Application.WorksheetFunction.Transpose(Parametry)

Po co te pętle i liczniki ? :)
Pozdrawiam

-- 
IDKrzych

"Jakkolwiek będzie - będzie inaczej, aniżeli sobie wyobrażamy
- ponieważ między Dobrem a Złem znajdujemy się w życiu i w świecie
wielowymiarowym,
w którym dokumentnie pomieszane jest Przypadkowe z Nieuchronnym."
(S. Lem 1999)

W dniu piątek, 28 września 2012 16:00:27 UTC+2 użytkownik IDKrzych napisał:
> > Mam taki kod:
> 
> > --------------------------------------------------------------------------
> > Dim Parametry As Variant
> > Parametry = Array("Time", "tzewn", "tzas_msc", "tpow_msc")
> > Range("A1:D1").Value = Application.WorksheetFunction.Transpose(Parametry)
> > --------------------------------------------------------------------------
> > Wstawienie skutkuje wype�nieniem ca�ego zakresu A1:D1 pierwszym elementem z tablicy. Jak wype�ni� zakres prawid�owymi elementami tablicy?
> 
> > Dzi�ki za wszelkie sugestie (:
> 
> Zupe�nie nie rozumiem co Wy kombinujecie ... :( (we wszystkich 
> pozosta�ych odpowiedziach)
> 
> jak chcesz wstawiďż˝ tablicďż˝ do zakresu, robisz to wprost:
> 
> Range("A1:D1").Value = Parametry
> 
> je�li chcesz odwr�ci� (przez .Transpose) zakres by mie� warto�ci w 
> wierszach, robisz to tak:
> 
> Range("A1:A4").FormulaArray = 
> 
> Application.WorksheetFunction.Transpose(Parametry)
> 
> Po co te p�tle i liczniki ? :)

Tym się różni programowanie od magii :D

Kilka(dziesiąt) prostych komend, którymi można zrobić co się chce,
zamiast odpowiedniego zaklęcia na każdą czynność :P

Dzięki za wszystkie odpowiedzi.
> > Zupełnie nie rozumiem co Wy kombinujecie ... :( (we wszystkich 
> > pozostałych odpowiedziach) Po co te pętle i liczniki ? :)
O coś takiego chodziło: Range("A1:U1").Value = Parametry
W sumie najprostsze rozwiązanie.
Pętla pojawiła się jak nie zadziałało pierwsze podejście do rozwiązania (jak się nie zna metody do obiektu to czasami ciężko znaleźć, dlatego liczyłam na grupę)

> Tym się różni programowanie od magii :D
> Kilka(dziesiąt) prostych komend, którymi można zrobić co się chce,
> zamiast odpowiedniego zaklęcia na każdą czynność :P
To są wady i zalety programowania obiektowego, jak znasz zaklęcie to wstawiasz i już, jak nie znasz to pozostaje tradycyjny sposób (:

Dzięki i pozdrawiam