< návrat zpět

MS Excel


Téma: Kopírování polí rss

Zaslal/a 25.1.2016 15:22

Dobrý den,
nedaří se mi operace: z listu 1 pomocí VBA vykopírovat textové hodnoty z buněk G5 až dokud není prázdná buňka(třeba do G50) do druhého listu 2, první hodnota v bunce A1 další do B1 pak C1 pak A2,B2,C2,A3,B3,C3... v podstatě se to bude kopírovat pouze do prvních 3 sloupců.
Věděl by někdo jak na to ? :/
Děkuji


Sub Copy()

Dim i As Integer
Dim j As Integer

Dim q As Range, r As Long, s As Range

For j = 1 To 10
For i = 1 To 3

With Worksheets("Data")
For r = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row Step 1
Set q = .Range(.Cells(r, 7), .Cells(r, .Cells(r, .Columns.Count).End(xlToLeft).Column))
With Worksheets("Copy")
Set s = .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
q.Copy s

Cells(j, i).Value = q

Next r
End With
Next i
Next j

End Sub

Zaslat odpověď >

Strana:  « předchozí  1 2
#029567
avatar
Úvaha k napsaným kódům: sešlo se tu několik rozdílných kódů k řešení stejného problému. Všechny jsou zřejmě plně funkční a poskytují totožný výsledek. To jen ukazuje, jak mnohotvárný je jazyk VBA a jaká náhoda je, když dva lidi napíší shodný algoritmus.
Zákonem č.1 je samozřejmě to, že kód funguje správně, tj. že poskytuje správné výsledky a není háklivý na chybové stavy. Sem patří kvalitní ošetření okrajových podmínek (co se stane, když..).
Za touto povinností podle mne následuje čitelnost, pochopitelnost a opravitelnost kódu. Kódy, ve kterých musíme už měsíc po jejich napsání luštit, jak byly míněny, nejsou moc dobré kódy.
Teprve pak následuje elegance a úpravnost kódu, spojená s výběrem a využitím použitých technik. Není asi dobré tomuto kriteriu podřizovat pochopitelnost kódu. Hrátky typu napsání algoritmu pomocí minimálního počtu příkazů patří podle mého názoru do křížovkářské oblasti a s kvalitou kódu to má jen málo společného. Spíš to dokáže ocenit programátorskou kvalitu autora řešení.
Pouze pro rozsáhlé úlohy s významnou dobou odezvy, což bývají úlohy velkými oblastmi zpracování, případně kódy s hlubokým vnořením částí algoritmu, přichází do hry otázka jejich rychlosti. Tam se může ukázat i řádový rozdíl v rychlosti zpracování v závislosti na použitých technikách. Opravdu existují úlohy, kde hodiny zpracování lze zkrátit na minuty (případně minuty na sekundy), a to vhodným výběrem technik. Tuto charakteristiku napsaného kódu je ale vhodné vzít v potaz až v případě, když nás délka zpracování u vytvořeného kódu nemile zaskočí.citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21