vymysleli 'sme s milosem po icq
=CONCATENATE(IF(NOT(A1="");CONCATENATE(A1;",");"");IF(NOT(A2="");CONCATENATE(A2;",");"");IF(NOT(A3="");CONCATENATE(A3;",");""))
a v dalsi bunce
=IF(A7<>"";LEFT(A7;LEN(A7)-1);"")
ale definice vlastni funkce se mi teda libi vic :) da se nekde neco nacist k
tvorbe maker, nebo to proste zkousis dokud to nefunguje?
dup
----- Original Message -----
From: "Josef Cacek" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Thursday, January 03, 2008 3:47 PM
Subject: Re: calc - souhrn řetězců
Ahojte,
On Jan 3, 2008 10:05 AM, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
dup napsal(a):
> =CONCATENATE(A1;"oddelovac";A2;"oddelovac";A3)
Tak to pomohlo nicměně, takhle si to neporadí s tím, když v bunce není
hodnota, já bych ty prázdný vůbec nechtěl... jsou prázdný ve smyslu
obsahujou vzorec, co vyhodnotil podmínku jako že má vložit "".
vlozte si do dokumentu nasledujici makro:
Public Function MyConcat(aRange, aSplitter as String)
Dim tmpResult As String
Dim i, j as Integer
tmpResult = ""
For i = LBound(aRange(),2) To UBound(aRange(),2)
For j = LBound(aRange()) To UBound(aRange())
if aRange(j,i) <> "" And aRange(j,i) <> 0 then
if tmpResult <> "" then
tmpResult = tmpResult + aSplitter
end if
tmpResult = tmpResult + aRange(j, i)
end if
Next
Next
MyConcat = tmpResult
End Function
potom muzete pouzit nasledujici konstrukci:
=MyConcat(A1:A20;",")
-- pepa cacek
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
