[turbine]

#vba #programowanie #pytanie #excel

czesc, potrzebuje w vba zmienic liste numerow (kazdy numer jest oddzielony enterem, w osobnej komorce) na jeden ciag znakow oddzielony przecinkiem. wiem juz jak to zrobic, wygooglalem taki kod:

Range("L2").Value = Join(Application.Transpose(Range("A2", Range("A" & Rows.Count).End(xlUp))), ",")

ale problem jest taki ze jak mam malo numerow to formatuje mi ta komorke np. tak 2.71860370261271E+59

jak dodam wiecej to jest ok, pojawia sie w komorce l2 caly zakres ladnie po przecinku. Czy mozna jakos do tego kodu co podalem wyzej dodac aby przy wykonywaniu np. zmienial formatowanie?

[ck__]

@turbine: sprobuj tak:

Range("L2").Value = "" & Join(Application.Transpose(Range("A2", Range("A" & Rows.Count).End(xlUp))), ",")
albo ustaw formatowanie komorki l2 jako Text

[turbine]

albo ustaw formatowanie komorki l2 jako Text

@ck__: wlasnie to mi nie dzialalo, zaraz sprawdze to pierwsze

[turbine]

Range("L2").Value = "" & Join(Application.Transpose(Range("A2", Range("A" & Rows.Count).End(xlUp))), ",")

@ck__: lipa :/

[ck__]

@turbine: w sumie tak patrze na kodzik i teoretycznie join juz tobie powinien zwrocic stringa, to moze sprobuj jescze ustawic kolumne A jako tekstowa i na swiezo powprowadzaj liczby

[turbine]

@ck__: od a2 do a6 mam liczby 12 cyfrowe, posortowane po kolei. dalej NIE wywala mi to po przecinku (chyba ze mam wiecej numerow, ale chce zeby to dzialalo gdy jest duzo i gdy jest malo numerkow).

gdy dodam do tego kodu apostrof

Range("L2").Value ="'"& Join(Application.Transpose(Range("A2", Range("A" & Rows.Count).End(xlUp))), ",")

to dziala, tylko wskkuje mi apostrof na poczatku tego wygenerowanego stringa a chcialbym zeby ladnie wygladalo bez ;p.

[cohontes]

@turbine: musi to być w vba? w miarę szybko przecież możesz to formułami ogarnąć

[turbine]

albo ustaw formatowanie komorki l2 jako Text

@ck__: kurka, teraz dziala, zrobilem tak:

Range("L2").NumberFormat = "@"
Range("L2").Value = Join(Application.Transpose(Range("A2", Range("A" & Rows.Count).End(xlUp))), ",")

potestuje zobaczymy czy zda egzamin.

@cohontes: musi ;p

[ck__]

@turbine: nice!

[turbine]

@cohontes: @ck__:

A takie pytanko. Bo przerobilem sobie ten kod na takie cos ze robie sobie zaznaczenie kilku numerow i wlaczam makro i automtycznie kopiuje mi tego stringa po przecinku do schowka (kod nizej). Czy jest mozliwosc aby zrobic ta operacje w makro bez korzystania z komorki L2 (ze robi to sie wszystko w pamieci tak jakby). Moge miec raport w excelu ktory bedzie cos miec w komorce L2 i

[ck__]

@turbine: czemu to nazwales SQL ? :<

no ba, mozesz sobie z-dim-owac zmienna typu string i tam zapisac do pamieci.

dim s as string

potem robisz po prostu

s = join(application.transpose(selection),",")

co do zapisu do schowka to bedzie nieco problemem, probowalbym od dataobject:

tu jest opisane
https://www.thespreadsheetguru.com/blog/2015/1/13/how-to-use-vba-code-to-copy-text-to-the-clipboard