Příspěvky uživatele
< návrat zpět
Ak urobil to čo som navrhoval (odstránenie riadkov/stĺpcov, nie iba vymazanie), a tvrdí že urobil, tento prípad by mal byť vylúčený.
Myslíte aby bol znížený výsledok na maximum, nie časť výsledku.
A1=1
B1=5
C1=MIN(A1+B1;4)
teda ak súčet A1+B1 bude väčší ako maximálna prípustná hodnota 4, tak je výsledok 4. Ale ak by bola B1=2 výsledok by bol 3.
EDIT: Ak to myslíte inak, uveďte príklad normálnej a upravenej hodnoty (hodnôt).
Pozrite prípadne, či tam nemáte ešte nejaké
-Prepojenia (Údaje - Prepojenia)
-PQ dotazy (Údaje - Zobraziť dotazy)
-Skryté listy (Alt F11 - pod VBA projektom s názvom Vašeho zošita bude zoznam listov (aj skrytých) v "Microsoft Excel Objects")
Už sa tu obdobné veci riešili, no nepamätám s akým výsledkom...
a) niesú na listoch nejaké skryté objekty ?
Karta Domov - skupina Úpravy - tlačítko Nájsť a filtrovať - položka Tabla výberu.
b) niekedy použité, ale už nepoužívané stĺpce a riadky. Ide posuvníkom (nie scrolovaním) posúvať riadky/stĺpce ďaleko za posledný reálne zaplnený riadok/stĺpec? Ak áno tak v prípade riadkov:
-Ctrl+šípka dole Vás dá na posledný riadok Excelu. Označte ho celý za jeho uško.
-Posunte sa za posledný vyplnený dátový riadok a s podržaným Shift-om označte aj ten za jeho uško.
-Ostali všetky označené, teraz na niektoré z označených ušiek pravý klik a vybrať Odstrániť.
-V prípade stĺpcov je postup analogický, šípku dole nahradíte šípkou vpravo, a označenie riadkov nahradíte označením stĺpcov.
Súbor uložte, zatvorte, skontrolujte veľkosť.
Zabráneniu vymazania posledného stĺpca ste neporozumel. Ja nemám na mysli posledný stĺpec v poradí v tabuľke, ale posledný zostávajúci (nevymazaný) stĺpec tabuľky. Logická úvaha: Načo spúšťam makro na vymazanie 5 stĺpcov z 5-stĺpcovej tabuľky ??? Aby som spracovával "žiadne" dáta ??? Teda ak je zostávajúci počet stĺpcov tabuľky 1, nedovolí Vám ho zmazať. On samozrejme zmazať ide, ale je to logický nezmysel.
Doplnené nejaké kontrolné podmienky na existenciu dát, na nemožnosť vymazať posledný stĺpec, na kontrolu stĺpcov s nejakými číslami a následné vkladanie súčtov, atď.
Ale upraviť Vám tie hlavičky, to sa nedá. Nevieme čo z toho množstva parametrov potrebujete nastavovať. Vyremoval som pár riadkov, ktoré si podľa názvu myslím, že nepotrebujete. Ale to si musíte sám určiť. My nevieme či chcete vynútenú BW tlač, tlač na A4 či A3, Zoom, párne hlavičky iné ako nepárne, a pod. Treba si vygoogliť (alebo vyskúšať) čo tie parametre všetky robia. Keď som tieto vyremoval, nezdá sa mi, že by nastala nejaká zmena.
-Pklik "Upraviť komentár"
-Pklik na okraj komentára - "Formátovať komentár"
-Záložka "Farby a čiary"
-"Výplň" - "Farba" - "Efekty výplne" - "Obrázok"
-"Vybrať obrázok" - pri tomto kroku požaduje internetové spojenie, ale asi iba kvôli Bing a OneDrive (?)
-"Prehľadávať" - nájdite obrázok na disku - "Vložiť" - "OK" - "OK"
Mizerné možnosti úprav...
Pridané aj makro aj vzorce ako príklad. U vzorcov bude záležať aj na tom, či je ten stĺpec premiestnený.
V tom prípade by som použil to druhé riešenie čo som spomínal. Prekopať ten export v Accese tak, aby dával dáta pod seba, nie vedľa seba. A obídete sa potom bez makra. Ja Vám kľudne makro na to urobím (možno iba vzorce, pozriem na to podľa času), ale ako lepšie riešenie mi to nepripadá.
Každopádne úpravu exportu z Accesu Vám nikto neurobí, lebo nemáme tú DB. Ak by ste mohol dať tú DB k dispozícii (čo pochybujem), tak by možno niekto urobil aj priame dotazovanie na tú DB (to ale zadara asi nebude).
Uveďte ešte manuálne vyrobený príklad pre 3 mená, ako má vyzerať výsledkový list, a výsledné CSV.
Rozumiem tomu tak, že už nechcete používať ten Access ale Excel ? Ak áno, ja by som tú vyexportovanú tabuľku jednorázovo prerobil tak, aby som mal data pod sebou. Potom môžem použiť jednoduché filtre, pár na ukážku (použijem len tie ktoré chcem, dajú sa nastaviť aby zobrazovali aj nezahrnuté položky atď.).
Ak chcete aj naďalej používať aj Access aj Excel, tak prerobte ten Export tak, aby dával data pod seba,a pokračujte v Exceli obdobne ako v tomto návrhu.
KT ?
Vy chcete uchovávať predošlé výsledky KT, a niekde za ne (v tej istej KT) vložiť nové výsledky z nových vstupných dát ? To nejde. Jediné riešenie je, že si na iný list po aktualizovaní KT odkladajte jej výsledok (celú oblasť KT), a takto dokola. A budete mať všetky výsledky KT pod sebou. Makrom poriešte nejaké optické oddelenie výsledkov, formát a pod.
No problema...
Sub Vymaz_nezamcene_bunky()
Dim c As Range, v As Range
For Each c In ActiveSheet.UsedRange.Cells
If c.Locked = False Then
If v Is Nothing Then Set v = c.MergeArea Else Set v = Union(v, c.MergeArea)
End If
Next c
If Not v Is Nothing Then v.ClearContents
Set c = Nothing: Set v = Nothing
End Sub
EDIT: Ešte som upravil
v.ClearContents
na
If Not v Is Nothing Then v.ClearContents
aby nedalo chybu, keď žiadne také bunky nebudú.
Tá stránka neexistuje, ale aj tak, prečo doplnok mne všade funguje ?
Trochu som si o tom počítal, ale k ničomu som sa nedočítal... Spôsobilo to docela poprask... Ale ako to u MS býva, tak vlastne zbytočný.
No veru neviem. Teraz som to skúšal na 3 mašinách (W10x64 + Off2016x64, W7x64 + Off2007, W7x32 + Off2016x32) a všade OK, nikde doplnok po exnutí Excelu nemizne.. Len pre použitie tlače na Off2007 som zabudol, že treba zmeniť procedúru
Sub TiskniData(control As IRibbonControl)
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub
na
Sub TiskniData(control As IRibbonControl)
If Val(Application.Version) > 12 Then
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Else
ActiveSheet.PrintPreview
End If
End Sub
lebo Off2007 ešte neobsahuje Mso "PrintPreviewAndPrint".
Ono by sa tam ešte šiklo pár veci, ako napr. kontrola, či vôbec nejaké dáta sú, a pod. Len som navrhol, či by sa dalo týmto smerom doplnku isť.
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