Příspěvky uživatele
< návrat zpět
???
Tak ja Vám jasne poviem, že ste to popísal nedostatočne, a očakávam nápravu, a čo Vy na to ?
Jasne som Vám položil niekoľko otázok o tom, čo sa má diať s tým obrázkom, a kde sa to má diať. A čo Vy na to ?
Děkuji za pomoc
Toto je :
1. Môj posledný tip, čo by ste asi podľa mojich mimoriadne ne/vyvinutých vešteckých schopností mohol chcieť.
2. Môj posledný príspevok na Vašu akúkoľvek otázku, v tomto či inom vlákne na túto (či naschvál iba podobnú) tému.
Práve mi došli nervy.
HAWK
2 eLCHa: Stovka ? Z mojej strany rozhodne nie. Končím, sám sa čudujem, že som mal až doteraz duševnú silu.
A teď jak to mám změnit podle mého vzoru cesta je tučně.
To si robíte srandu ? Teraz je tam riadok:
Const Cesta = "Z:\Hľadaj obrázky v zložke\"
A Vy ho zmeníte na:
Const Cesta = "F:\Eros\Ames\001. Osobnosti\002. Fotky Osobností\"
je možné aby to vyhledávalo misto OP přímo v liště vyhledávání podle ID
Je to ale presne tak ako som písal. Toto makro nieje to, čo Vy budete nakoniec požadovať. Vy budete chcieť určite, aby Vám to pri výbere osobnosti cez to filtrovacie makro vložilo fotku. Toto makro to nerobí. Robí iba presne to čo ste popísal/a.
vyberu treba 001 a vyhledáto i obrázek
A čo s ním ? Nemáte doriešené kam ho vložiť. Aká bude výška riadku.
Popisujete to ako hotentót. Zle, po častiach, nelogicky. Lúštiť po Vás je ako skúmať "Paranormal Activity".
Bude sa mi musieť veľmi chcieť ... a dnes sa mi teda už rozhodne nechce.
Upravené, zmente v makre konštantu Cesta.
Napr. takto. Niečo mi ale hovorí, že to určite nebude to, čo chcete. Pretože takto musíte zadať presný názov obrázku (bez prípony).
V tom prípade Vám stačí aj toto:
Private Sub SectiBunky2()
Dim ws As Worksheet, r As Long
Application.ScreenUpdating = False
Range("E55:W64").ClearContents
r = 55
For Each ws In Worksheets
With ws
If LCase(.Name) <> "vyroba" Then
Range("E" & r) = .Range("E49") + .Range("K48")
Range("F" & r) = .Range("E50") + .Range("K47")
Range("G" & r & ":K" & r) = .Range("G50:K50").Value
Range("S" & r) = .Range("S50")
Range("T" & r) = .Range("S6")
Range("W" & r) = .Range("W50")
r = r + 1
End If
End With
Next ws
Application.ScreenUpdating = True
End Sub
Je to meniaci sa počet listov ?
Názvy listov sa menia ? (kvôli tomu, či by nestačil 3D vzorec)
Čo to je za skomolenú vetu o tých súčtoch ? Ktorá hodnota sa berie zo "zlúčeného" listu, a ktorá z dátových ???
Ak by bolo tých listov veľa, takýmto spôsobom to bude pomalé. Potom použite niečo takéto, ako posielam - polia. Škoda, že výsledok nieje súvislá oblasť, bolo by to ešte rýchlejšie. Akurát je to neprehľadnejšie.
Najlepšie urobíte, ak vložíte názornú prílohu. Aby som Vám mohol tie súčty doplniť.
súčet prázdnych
=SUMIFS(A1:A6;B1:B6;"="&"")
súčet neprázdnych
=SUMIFS(A1:A6;B1:B6;"<>"&"")
Nejaké riešenie som možno našiel, ale je problematické. Problémy s knihovňami, s x64 OS, s IE10 ...
http://stackoverflow.com/questions/10782394/pop-up-the-excel-statusbar/10787496#10787496
Ten kruhový diagram je tam robený presne tak, že sa načítajú obrázky z listu do formu.
lopi007: Ani sa mi to nechce popisovať. Nesedí Vám tam kooopec vecí. Niektoré zapísané údaje sa strácajú (neukladajú sa do DB), zbytočné prepočty, nevhodné textové formáty aj na dátumy, nešťastné dizajnové riešenia (spoločná poznámka ?), veľmi pomalé makro, obrovský počet Definovaných názvov, neustály prestup bunky/VBA (pomalé), zbytočný počet riadkov v DB ... atď.
Veľa vecí som Vám upravil, aby to fungovalo, a bolo to rýchlejšie. Ale je to za cenu neprehľadnosti makra (pre Vás). Viac sa mi nechce...
Tak len na rýchlo tú včerajšiu prílohu
Krucinál, čo je s tým serverom, zasa mi nevložilo prílohu v minulom príspevku.
Záleží na konkrétnom použití. Dal som návrh na INDEX a nie VLOOKUP/SVYHLEDAT, lebo mi pride fakt jednoduchý na pochopenie, a o niečo rýchlejší. Pri INDEXE na pozícii záleží, pri VLOOKUP nie. CHOOSE/ZVOLIT radšej nie - pri nutnej zmene na viacerych miestach by to bolo náročné. Máte výborný nápad s vynechanými riadkami. Vy to nepotrebujete, ale keď budem zajtra pri PC skúsim ešte poslať t ú prílohu ako som to myslel pre ostatnych.
Ak by sa jednalo o pevne dané jazyky (napr. tieto 2), tak stačí len INDEX. Nemusí sa vyhľadávať. Samozrejme, ak hrozí, že sa bude pozícia prekladov meniť, tak určite vyhľadať.
2 repty : ak by ste kvôli tomu nemal spávať, tak teda pošlite niečo na účet tohto fóra 
Málo informácií ...
Ak názov zošitu obsahuje medzeru musí sa dať do apostrofov, a v druhej časti reťazca máte za "!" medzeru tiež. Navyše nevieme čo je to za makro, či nieje na jednom PC náhodou volaná 64 bit API na 32 bit Exceli a pod. Musíte dať reálne prílohy (bez reálnych dát, ale s nejakými relevantnými dátami). Kód chyby ? A pod ...
Uživatelské menu
\nMenu
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.
RSS nejnovější články