Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  10 11 12 13 14 15 16 17 18   další »

Ne, tím to není, automatický přepočet zapnutý, zoufalé mačkání F9, nic nepomáhá. 6
edit doplnění. Funguje mi to, když "oťukám" všechny text.pole, do zavření excelu. Ale mě jde hlavně o stav po načtení, aby se hned při první změně buňky objevila hodnota v text.poli a nemusely se podnikat jiné akce.

Ahoj, mám potíž. V Excelu 2007 se mi neaktualizuje textové pole, které mám propojené s buňkou. Při prvním pokusu to asi nějak fungovalo, udělal jsem náročné schema, asi den práce, s několika text.poli, které mají zobrazovat hodnoty z buněk.
A teď je to na nic, po novém načtení a změně buněk se to nezobrazí. Až po klepnutí, někdy druhém, na pole
Pak třeba zázrakem některé fungují, jiné ne. Chová se mi to divně. Myslel jsem, že je to zamknutým listem, pak že seskupením pole s dalšíma a s kresbama.
Ale nakonec mi nejde ani jedno jediné v čistém sešitě, po načtení nereaguje. Co s tím můžu dělat?
V Excel2010 funguje OK. Zkuste to prosím někdo ve 2007.

Pardon, ještě k té vlastní funkci, aby to fungovalo pro víc cifer, je třeba změnit definovaný výstupní formát, v 1.řádku vynechat "As Integer"
Function najdi_cislo(retez As String) a pak dát formát buňky na číslo, ne obecný. Jinak Poki, Megavzorec: 9

Co si napsat vlastní funkci, je to sice jako makro, ale zase člověk aspoň vidí vzoreček v buňce 5 .
Function najdi_cislo(retez As String) As Integer
' najde prvni souvislou radu cisel v retezci
Dim delka As Integer, i As Integer
Dim cifry As String, znak_x As String
delka = Len(retez)
cifry = ""
For i = 1 To delka
znak_x = Mid(retez, i, 1)
If IsNumeric(znak_x) Then
cifry = cifry + znak_x
Else ' neni cislo
If Len(cifry) > 0 Then ' uz ne znak zkraje retezce
Exit For
End If
End If
Next i
najdi_cislo = Val(cifry)
End Function
edit: zapsáno samozřejmě do modulu ve vba (Alt+F11)
Ukázka i v příloze, neošetřené např. pro číselnou buňku

Pravda, druhý sešit musí být otevřený, to není nej řešení. Ale píšeš ... časem se změní. Když změny nebudou příliš časté, zvolil bych řešení nedělat to takhle v buňce, ale nechat odkazy na soubor ve vzorcích tak jak jsou a potom: karta Data / Upravit odkazy / Změnit zdroj ....

Něco takového dělám nepřímým odkazem, napsal jsem tam i ten vzorec, ale s jiným sešitem jsem to netestoval. Pro stejný sešit - jiný list tam je ukázka a funguje v Excelu 2007-2010. U staršího to může být ale jinak.

Zkusím to já. Konečně můžu s něčím pomoct.
Nejlíp bude použít vba kód do události listu. Postup:
V Excelu pomocí Alt+F11 skočit do editačního okna vba, vlevo nahoře dvakrát poklepat na jméno listu, ve kterém chceš mít tuhle funkci. V hlavním okně vpravo nahoře místo "General" zvolit "Worksheet" a vedle navolit událost "Change". Pak nakopírovat celý kód. Zavřít editor. Sešit musí být pak uložený jako .xlsm ve v.2007 a novější.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim radek As Long
If Target.Address = "$A$1" Then
If Len(Target) > 0 Then
If IsEmpty(Cells(1, 2)) Then
Cells(1, 2) = Target
Else
radek = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(radek, 2) = Target
End If
End If
End If
End Sub

K tomu Runtime Error bych měl jednu poznámku. Stahuju někdy do excelu data z www jistého cyklo webu, asi 700-800 adres stránek a trvá to asi 2.5hod. Tuhle chybu mi to hlásí když tam uploadují web a asi zrovna ta stránka není k dispozici. Mám to vyzkoumané. V čase kdy určitě vím že se tam výsledky nemění to celé jede bez chyby. Tak třeba....

Milan-D: Interior.Color je lepší, nechápu ale, že ve všech podobných makrech, ze kterých jsem čerpal nápady je ColorIndex. Tak mě nenapadlo zkoumat všechny možnosti Interior.
Marjankaj: skvělé, funguje to jak potřebuju a navíc jsem se zase něco přiučil. Líbí se mi ta verze s "Array" a ohromil mě Intersect - to je to co mi chybělo, abych nějak pokročil sám při svých pokusech. Bylo jich dost, takové procházení slepých cestiček. Target vím co je, ale nedařilo se mi ho správně použít. Díky moc.

Zdravím, potřeboval bych pomoc. Mám makro, které mi kopií formátu barví řádky, podle jakéhosi vzorkovníku na listu. Ale chtěl bych stejnou činnost dát do události listu Worksheet change. Stejné makro mi tam nechodí, chtělo by to nějaký lepší postup a větší zkušenosti, rád bych se od někoho přiučil. Více vysvětleno v příloze, Excel 2007-2010. Dík.

Možná jsem úplně vedle, ale nemůže být na Win7 instalovaná 64-bit verze Excelu? Tam jsou potom různá omezení a spousta věcí tam není k dispozici.

Fajn, to od Jezy vyzkoušeno, funguje.
Poki, ty nejjednodušší věci člověka často nenapadnou. Taky jsem si myslel, že tím SET se mi označí oblast v listu, ale ona to vlastně není aktivace, takže to taky funguje jsem chtěl.
Překvapilo mě vbNewLine u komentáře, já používal "nahrané" Chr(10).
Ale celé makro už mám v kupě a funguje, je radost sledovat, jak se mi doplňují komentáře v oblasti 250ř./40sl. - hlavně při menší lupě.
Děkuji za pomoc a tohle téma může asi někdo zamknout.

Díky za trpělivost. Už vím co bylo špatně. S tím AND mi to fakt funguje, chvíli jsem kroutil hlavou, ale už je mi to jasné.
Autosize u komentáře vlastně znám, jen mě to nenapadlo použít ve vba.
Ještě se chci zeptat, potřebuju komentář smazat předtím, než v buňce založím nový, při dalším spuštění makra je jinak chyba. A celé tohle mám jako součást větší akce, kde obsah komentáře hledám jinde přes VLookUp a je pokaždé jiný. Ale když dám před AddComment řádek
bunka.Comment.Delete při prvním spuštění hodí chybu "Object variable or With block variable not set". Jak ale jednou makro projde, a řádek doplním později, už funguje. Bude tam asi chybět nějaké Dim, nebo jiná věc.
Jak byste komentář smazal Vy? Dík.

Ano, tohle funguje!! Díky. To je skvělá finta. Dokonce tu logiku i chápu :). Já zas nebyl tak daleko se svým zápisem, jak koukám, ale přivítal bych vysvětlení, proč to s tou prázdnou hodnotou nefunguje.
Můžu mít ještě otázku? Když chci přizpůsobit velikost komentáře, umím to jedině někde okoukaným zápisem:

bunka.Comment.Text Text:="KOMENTAR"
Set cmt = bunka.Comment
With cmt.Shape
.ScaleWidth 3.5, msoFalse, msoScaleFromTopLeft
End With

Nešlo by to napsat jednodušeji, jen pro tu šířku, něco jako
bunka.Comment.Shape.ScaleWidth ... atd ? Mě se to nepovedlo, ale nevím....
A k fóru: jak dostanu kód do zeleného pole?

Ahoj, jenom drobnost. U rozhodování IF se prý může použít složená podmínka s OR nebo AND.
Ale když to zkusím, stále hází chyby, asi mám špatný zápis. Poraďte někdo prosím. Excel 2007, 2010


Strana:  1 ... « předchozí  10 11 12 13 14 15 16 17 18   další »

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje