Příspěvky uživatele
< návrat zpět
Okrem vyššie spomínaných môžete použiť aj ďalšie spôsoby naväzujúce na fakt, že tam máte smerodajný dátum, podľa ktorého môžete vyhľadávať hodnoty. Najvyšší dátum = posledná hodnota. Zakomponoval som tam výber stĺpca pomocou Overenia dát.
Zatiaľ som urobil jeden príklad tak, že sa hľadané hodnoty proste iba pridávajú a uberajú počtom oddelených parametrov funkcie. Dalo by sa to prerobiť aj na oblasť hodnôt ako jeden parameter. Popis je v makre. Je tam príklad v makre "Priklad" aj ďalší na použitie ako UDF v liste.
Pozrite si popis, doplňte požiadavky, a najlepšie priložte aj prílohu.
Napr. neviem, čo to má vracať, ak nenájde nič, čo má urobiť pri chybe parametrov, pole horizontálne/vertikálne, čo ak bude oblasť viacoblastná (multiareas), ...
Nejaký ten príklad. Nieje to merná minca, len pár návrhov. Každopádne by som na Vašom mieste používal radšej nejakú rozumne definovanú oblasť, ako celý stĺpec s miliónom riadkov a ešte vylučovaním prvého riadku...
To pomocou Find možné nieje. Použil by som InStr() v cykle nad poľom. Ak si nebudete vedieť rady, pozriem na to ak bude čas.
1. Ide iba o nájdenie prvej spĺňajúcej bunky ?
2. Počet parametrov je dynamický či statický ?
3. Parametre sa berú z premenných, alebo to chcete dostať do nejakej bunky pomocou UDF a parametre sú odkazy na bunky ?
Teda nedozvedeli sme sa:
-Koľko bude +- kategórií
-Koľko bude +- max položiek na kategóriu
-Čo ešte obsahuje tá tabuľka kategórií/položiek ? Pochybujem, že je to len takto. Nieje tam náhodou napr. cena, balenie, stav skladu, popis, ... ?
Priložte reálne vyzerajúcu prílohu. Ak nechcete zverejniť reálne názvy položiek, tak ich zmente. Ponechajte ale typ, rozumné množstvo, rozloženie...
Tieto informácie sú potrebné na nasimulovanie a vyskúšanie toho, čo bude ešte dopočítateľné maticovými vzorcami v RealTime, a čo už bude lepšie riešiť občasnou aktualizáciou napr. KT.
Primárne je to určené samozrejme na premenovanie súborov, nie na zmenu prípony, čo vo väčšine prípadov znamená nutnosť konverzie súboru na daný typ. A to sa asi deje u Wordu. DOC nieje DOCX, je to iná štruktúra dokumentu. To že to Word dokáže otvoriť viac druhov súborov, je tak naprogramované, to neznamená, že sú súbory rovnaké. Podobnosť XLS a XLSX je
a) asi väčšia ako Doc vs. Docx
b) alebo je Excel naprogramovaný tak, že si sám zistí bez ohľadu na príponu Xls/Xlsx, podľa štruktúry súboru, ako ho má spracovať.
Tomuto sa vôbec nemôžete čudovať.
Skúste toto.
EDIT: Teraz si uvedomujem, že tie výberové zoznamy asi budete chcieť na viac buniek ako len A2:B2. A to je problém pri podmienenom výberovom zozname. Ten musí byť totiž načítavaný z nejakých buniek, nemôže byť len vypočítané pole. Teda by ste musel pre každú kategóriu zaviesť jeden stĺpec, ktorý by hľadal všetky jej položky.
Ako často budú pribúdať či už nové položky alebo nové kategórie ? Ak iba občas, na jedinečné zoznamy by sa dala použiť KT. Ak príliš často, tak by sa musela urobiť maticová tabuľka napr. 20 stĺpcov (kategórie) x 500 riadkov (položky), a počtom sa zvyšuje náročnosť až do neúnosnej miery. Teda - Koľko môže byť najviac kategórií a koľko najviac položiek ?
Ďalej, koľko bude takých výberových riadkov ? Ak to je napr. nejaká obyč. fakturácia a pod, tak býva do 20 položiek.
...
Priamo na C:\ dostanete chybu "Permission denied", čo je presne to, čo som spomínal. V Roote iného disku je to OK. Ale tento prípad obmedzených práv vráti výsledok "ERROR". Výsleodk "IGNOR" by mal nastať v prípade, ak nový názov = starý názov. Čo máte v stĺpci "Zmena" ?
Ak to nieje priamo Root "C:\" ale je to "C:\premen" - bez lomítka na konci, tak to musí dať "ERROR".
Priložte súbor, kde máte presne vyplnené dáta, a presnú adresárovú štruktúru (súbory neposielajte, len štruktúru, ja si súbory vytvorím).
Budem musieť na to asi niekedy lepšie pozrieť, a možno aj prepracovať logiku.
Keď prídem a bude sa mi chcieť, vyskúšam nasimulovať. Ale ak je to skutočne rovno pod C:\ tak vidím problém v prístupových právach. Windows totiž väčšinou požaduje práva správcu na priamy prístup do koreňu C:\. Skúste to dať do nejakého adresáru napr. C:\Pokus\
"...zastavilo asi na to formuláři..." - čo to presne znamená ? Hodí chybu na nejakom riadku ? Na akom ? Nenaštartuje sa vôbec ? Formulár ste tam vlastne do toho Vašeho súboru prekopíroval (stačí ho vo VBA iba pretiahnuť na Váš súbor v okne "Projekt - VBAProjekt"). V mojej prílohe Vám to funguje, alebo ani to nie ?...
PS: Ešte ma napadá, že vlastnosť Enabled tlačítka btnExport vo formulári si treba vo VBA zmeniť na False. Lebo keď je True, tak tlačítko je aktívne hneď po spustení formulára a to aj bez vybraných listov.
Heh, samozrejme :)
Ja nemám žiaden taký súbor v danom umiestnení, tak som si vyremoval apostrofom riadok, kde sa načíta obsah toho súboru. Odstránte si apostrof na začiatku riadku
'Signature = CreateObject(...
Vyššie som to už urobil.
Mne to robí takto OK:
Sub mail()
'-----------------------------------------
'DECLARE AND SET VARIABLES
Dim otlApp As Object
Dim OtlNewMail As Object
Dim Signature As String
Set otlApp = CreateObject("Outlook.Application")
Set OtlNewMail = otlApp.CreateItem(olMailItem)
'-----------------------------------------
'GET DEFAULT EMAIL SIGNATURE
Signature = Environ("appdata") & "\Microsoft\Signatures\"
If Dir(Signature, vbDirectory) <> vbNullString Then
Signature = Signature & Dir$(Signature & "*.htm")
Else
Signature = ""
End If
Signature = CreateObject("Scripting.FileSystemObject").GetFile(Signature).OpenAsTextStream(1, -2).ReadAll
'-----------------------------------------
'CREATE EMAIL
'OtlNewMail.HTMLBody = Signature
With OtlNewMail
.To = "menopriezvisko@.firma.sk"
.CC = ""
.Subject = "dodatok do MOSu!"
.HTMLBody = "<HTML><BODY><P STYLE='font-family:Times New Roman;font-size:16'>Dobrý deň!<br>Prosím o nahodenie dodatku do MOSu!<br>Ďakujem. <br><br><br><br><br> " & Signature
.Display
'.Send
End With
'-----------------------------------------
'CLEANUP
Set OtlNewMail = Nothing
Set otlApp = Nothing
End Sub
Inak mali ste tam zle nadefinované premenné.
Ale neviem, čo s tým medzerami pred a za odsekmi, ako ich zrušiť...
Vy chcete mať v žltých bunkách listu Data vzorce (ako text rovnice na výpočty plochy, hmotnosti a neviem čo je Názov - akože to čo je v liste Výrobek v D ???) ? To nejde. Veď tie vzorce keď majú počítať vždy niečo iné podľa toho, aký materiál je vyplnený, tak použite obdobný CHOOSE/ZVOLIT, a pre každý mat. dajte teda správny výpočet. Priamo do vzorca. Proste nemôžete mať niekde uloženú rovnicu na výpočet nejakej hodnoty, a tú rovnicu si podľa potreby vyvolať, ani nemôžete mať niekde uložený univerzálny vzorec (už nie text, ale skutočný Excelovský vzorec), lebo tie výpočty sú parametrizované vzhľadom na riadok, na ktorom sa nachádzajú. Tu som Vám upravil pár vzorcov, ale NEKONTROLOVAL som, či počítate správne, lebo ani neviem čo chcete kde a za akých okolností počítať. A premýšľať, čo by ste tak asi mohol chcieť a danou bunkou mal na mysli, sa mi vážne nechce. 
Možno Vám bude stačiť riešenie od Ron de Bruin. Má ale svoje muchy. Prenesie iba niektoré orámovania (bodkočiarkované nie), niektoré podmienené formáty neprenesie (napr. údajový pruh) ale napr. farebné škály áno. Písmo a veľkosť prenáša, no celá bunka má parametre prvého písmena. Neprenáša nakreslené objekty (ovál a pod). Zlúčené bunky sú OK. Treba vyskúšať, či to bude Vám dostačovať.
Zaujímavá by mohla byť aj možnosť MailEnvelope, ktorá zachová rôzne písmo v jednej bunke aj nakreslené objekty, ale stále nedá to bodkočiarkované orámovanie alebo údajové pruhy. Táto metóda ihneď mail odosiela predvoleným kontom.
A hneď pod tým je zaujímavá možnosť, ktorá ešte potrebuje nakopírovať jednu funkciu od Ron de Bruin (to čo je pod "Test the code").
Tak skúste toto. Makro sa volá Export_Sheets, spustí formulár s výberom, vyberiete, kliknete na čudlík, exportuje vybrané do súboru, na ktorého názov sa opýta. Vysporiada sa to aj so skrytými listami v zdroji (v cieli budú zobrazené).
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články