< návrat zpět

MS Excel


Téma: Makro_vkladanie_údajov rss

Zaslal/a 16.5.2019 21:23

Dobrý deň, poprosím o radu. Potrebujem vytvoriť makro pre automatické vkladanie údajov z viacerých stĺpcov do jedného stĺpca pod seba. Podmienka ale je že ak nájde v stĺpcoch rovnaký údaj tak to nenapíše a prejde do ďalšieho riadku a zapíše nasledujúce číslo.

Ďakujem.

Jaroslav

Zaslat odpověď >

#043355
avatar
Zkuste poslat nějaký příklad.

Kolik je sloupců? Je vždy stejný počet sloupců?
Kolik je řádků?
Pokud je počet sloupců různý, je možné říct maximální počet sloupců?
Co znamená "automaticky"? Vždy po zadání nějakého údaje? Nebo vždy po stisknutí tlačítka? Nebo...citovat
#043356
avatar
Dobrý deň,
prílohu ako vzor mi asi neodoslalo. Posielam znovu. Vždy bude 5 stĺpcov po 8 riadkov. Do jedného stĺpca kde sa budú čísla automaticky zapisovať bude max. 12 riadkov. Zapisovať bude iba vtedy ak zadám čísla do ľubovoľného z 5 stĺpcov. Čísla budú max. 3 ciferné. Môže sa stať že bude aj prázdne políčko v jednom z 5 stĺpcov. Jaroslav
Příloha: xlsx43356_priklad_makro.xlsx (12kB, staženo 11x)
citovat
#043360
elninoslov
Sub JedinecneHodnoty()
Dim Col As New Collection, D(), H(), x As Long, y As Long

D = Range("F5:N12").Value
On Error Resume Next
For x = 1 To UBound(D, 2) Step 2
For y = 1 To UBound(D, 1)
If Not IsEmpty(D(y, x)) Then Col.Add D(y, x), CStr(D(y, x))
Next y
Next x
On Error GoTo 0

If Col.Count > 0 Then
ReDim H(1 To Col.Count, 1 To 1)
For x = 1 To Col.Count
H(x, 1) = Col(x)
Next x
Range("B19").Resize(Col.Count).Value = H
End If
End Sub
citovat
#043361
avatar
elninoslov: díky za inspiraci. Dlouho jsem studoval, kde tam dochází k selekci jedinečných hodnot, až jsem si přečetl, že kolekce nemůže mít dva stejné názvy.
Alespoň doufám, že jsem pochopil ten princip.

Holt, v jednoduchosti je krása.citovat
#043362
avatar
Ďakujem. Jaroslav 1 1 1 1citovat
#043365
elninoslov
Pochopil ste to, ale nie celkom to platí tak ako ste napísal, že v kolekcii môže byť rovnaký iba jeden prvok. Toto platí iba ak použijem 2. parameter metódy Add - [Key]. Ak tam dám iba Add, tak v poho môžem pridať aj rovnaké. Ale to Key mi zabezpečí, že každé pridávanie položky s rovnakým Key neprebehne.

Tu je ešte jednoduchý príklad aj na vzorcové riešenie.
Příloha: zip43365_43356_priklad_makro.zip (20kB, staženo 7x)
citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse