MS Excel

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ěď >

Jiří497(17.5.2019 15:04)#043355

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

Jaroslav123456(17.5.2019 18:05)#043356

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: xlsx

43356_priklad_makro.xlsx (12kB, staženo 25x)

citovat

elninoslov(18.5.2019 17:06)#043360

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 Subcitovat

Jiří497(18.5.2019 19:22)#043361

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

Jaroslav123456(18.5.2019 19:31)#043362

Ďakujem. Jaroslav

citovat

elninoslov(19.5.2019 4:07)#043365

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: zip

43365_43356_priklad_makro.zip (20kB, staženo 24x)

citovat

Téma: Makro_vkladanie_údajov

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje