Ako vytvoriť makro?

16.03.15 11:23

petraexe

Prosím Vás, potrebovala by som poradiť v oblasti xls a word, a to konkrétne v tom, ako zo stĺpca usporiadaných čísel získam do jednej bunky hodnoty oddelené čiarkami. Ďakujem.

Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.

❤ Buďte priateľskí ❤

Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!

16.03.15 14:04

ivka70

Toto by ti nestacilo?

' =CONCATENATE(A1;",";A2;",";A3;",";A4)

Komentovať

Užitočné

3 komentáre - rozbaľ zbaliť

petraexe (17.03.15 07:15) Ďakujem, toto je super, funguje to, ale čo v prípade, ak tých čísel je 200, 500, 1000? Potrebovala by som, aby to bolo flexibilné.

marjankaj (17.03.15 08:18) Môžeš si urobiť makro.
Alebo
do B1 dáš =A1
do B2 dáš =CONCATENATE(B1;",";A2) a skopíruješ smerom dole. V poslednom riadku budeš mať to čo si chcela.
To si potom môžeš skopírovať a vložiť ako hodnotu kam potrebuješ.

17.03.15 13:07

PaloPa

Napr. takto:

Code:

Sub Bunky_do_jednej()
    Dim rngSrc As Range, rngTrg As Range, c As Range
    Dim tx As String
    
    Set rngSrc = Selection 'zdrojova oblast - vyznacene bunky
    Set rngTrg = rngSrc.Cells(1).Offset(0, 1) 'cielova oblast - bunka vpravo od prvej vyznacenej
    
    For Each c In rngSrc
        If c.Text <> "" Then
            tx = tx & IIf(Len(tx) > 0, ",", "") & c.Text
        End If
    Next c
    rngTrg.Value = tx
    
End Sub

prípadne cez takúto funkciu:

Code:

Function Spajaj(zdroj As Range) As String
    Spajaj = Join(Application.Transpose(zdroj.Value), ",")
End Function

Použitie: =Spajaj(A3:A7)

P.

Naposledy upravil PaloPa : 18.03.15 at 20:10

Bunky_do_jednej.xls (29.0 KB, 11 videní)

Komentovať

Užitočné

16.03.15 12:52

sthruska

Poradiť neviem, nakoľko presne nerozumiem otázke.
Ale oddeliť čísla čiarkami sa mi zdá ako nešťastné riešenie. Čo desatinné čísla. A to je ešte závislé na nastavení OS. Na to sa ako oddeľovač používa napríklad ; alebo iný znak.
To chceš vykonať v rámci jedného dokumentu, alebo medzi dokumentmi? Máš tam aj čosi iné - predpokladám, že áno?
Existuje export do csv súboru. To by za určitých okolností mohlo pomôcť.

Komentovať

Užitočné

petraexe (16.03.15 13:08) Ďakujem za odpoveď, uvediem Vám príklad, desatinné čiarky nepripadajú do úvahy:
1/15
2/15
3/15
4/15
5/15
z tohto formátu potrebujem formát
1/15,2/15,3/15,4/15,5/15.