Příspěvky uživatele
< návrat zpět
Toto ukladanie je podľa mňa iba na účely zálohy, v prípade pádu aplikácie, či výpadku prúdu apod. Robí záložný súbor, z ktorého môžete po následnom štarte obnoviť posledné uložené verzie.
Ak si urobíte pokus, že súbor uložíte klasicky, potom na ňom niečo zmeníte a počkáte nastavený interval a zatvoríte Excel, vypíše, že nieje súbor uložený. Čo je jasná známka toho ako to funguje.
https://support.office.com/cs-cz/article/Automatick%C3%A9-ulo%C5%BEen%C3%AD-a-obnoven%C3%AD-soubor%C5%AF-syst%C3%A9mu-Office-5baa2030-9768-4c6c-8d2a-1e10a8d741b1?ui=cs-CZ&rs=cs-CZ&ad=CZ
Vyskúšaj toto
Tu máš 3 druhy SaveAs.
Len pozor na to, či potrebuješ určite SaveAs a nie náhodou SaveAsCopy ?
No teraz to máš tak nastavené, že po kliku na tovar s nulovým počtom v ListBoxe, sa ti otvorí link priradený k danému tovaru. Len nejde natívne priradiť listboxu kurzor RUKA. Dá sa cez Custom ale to sa mi nechce.
A ak chceš tento hyperlink mať aj priamo v liste (nielen v Listboxe), tak to buď
A) vytvoríš cez pravý klik pri každom tovare
B) urobím ti makro, ktoré to buď urobí jednorázovo, alebo sa nastaví OnChange, že keď zmeníš bunku v stĺpci s linkami, tak automaticky ju zmení na hyperlink. Excel to premení automaticky len keď to píšeš, nie keď to tam vložíš kopírovaním.
K tým počtom by som dospel asi aj takto, ale "nejjednodušší řešení" mi to teda naozaj nepripadá, navyše netuším ako to s tou KT poriešiť.
Snáď by to niekoho mohlo nakopnúť...
??? Takto ???
Čo myslíš tým "HyperLink" ? Internetovú stránku ? Mailový odkaz ?
Len taký návrh. Ak by mohlo byť aj makro, tak je to jednoduché (makro vložiť do listu "Data"):
Sub bActualSize_Click()
Dim RT As Long, CT As Long
'Tu môžeme vykonať import dát od niekiaľ a vložiť ich do Tabuľky DataTab
On Error Resume Next 'Ak je chyba (nieje zaplnený žiadny riadok) pokračuj s 0
RT = ListObjects("DataTab").Range.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row - 1 'Nájdi počet zaplnených riadkov v Tabuľke DataTab
On Error GoTo 0 'Obnov štandardný odchyt chýb
With ListObjects("DataTab")
CT = .ListRows.Count
If RT <> CT Then 'Ak je rozdiel medzi zaplnenými riadkami a riadkami DataTab
.Resize .Range.Resize(RT + IIf(RT = 0, 2, 1)) 'tak uprav veľkosť tabuľky DataTab podľa zaplnených riadkov
Worksheets("KT").PivotTables("KTTable").PivotCache.Refresh 'a aktualizuj kontingenčnú tabuľku KTTable na liste "KT"
End If
End With
End Sub
Bolo by všetko na jeden klik, jednorázovo. Kedykoľvek potrebuješ aktuálne data, klikneš na tlačítko, a to importuje aktuálne data (to treba do makra samozrejme dorobiť ešte, keďže neviem zdroj), vloží ich do Tabuľky DataTab na liste "Data", a urobí Refresh kontingenčnej tabuľky KTTable na liste "KT". Makrom by sa zabezpečilo aj ponechanie vzorcov v prvom riadku DataTab.
Ak niekto hľadá podobné riešenie, tak toto je môj počin, ako jedno z možných riešení toho druhého problému. Možno pre Mischell pomôžete odhaliť mušky.
Takto ?
Máš tam 3 riešenia. S tabuľkou, bez tabuľky, a bez ničoho, iba s číslom tabuľky.
A ak by si chcel mať výsledok vždy iba v jednej bunke, tak napr. takto.
A ešte malá poznámka : netreba tak na začiatku započítať aj počiatočný zostatok ?
Tu som ti navrhol ešte riešenie vytvárania listov.
V zlúčenej "superbunke" orámovanie medzi zlúčenými bunkami urobiť nejde. Ani makrom. Ide meniť iba okrajové rámy, nie vnútorné, čiže zlúčená superbunka môže mať rôzne orámovanie na vonkajších zlúčených bunkách, ale nie vnútorné. Teraz som to vyskúšal.
Teraz som to chcel akurát napísať - pád aplikácie. Prosím ešte raz nám podrobnejšie (resp. úplne dopodrobna) popíš čo chceš aby to presne urobilo pri presne akej udalosti. Pretože z tohoto popisu to tiež nechápem, no ...
Tlačidlo môžeš ľahko premenovať aj takto - nastavíš mu makro na toto, a je premenované:
Sub Premenuj()
Dim o As Object
Set o = ActiveSheet.Buttons(Application.Caller)
o.Name = "bNazovBTN"
End Sub
V kóde by som doporučil asi použiť pri názve Label notáciu "lblNieco", tlačidlo "bNieco" / "btnNieco".
Na formulári má byť len to jedno "Výberové pole" v ktorom nieje na výber?
Na čo je tam tá schovaná hodnota v AH1?
A prosím daj ešte aspoň 1 riadok s reálnymi údajmi, aby sme videli Wo Co Tady Go.
Snáď to nejako doriešime...
Maticový vzorec (Ctrl+Shift+Enter)
=SUM(IF(MONTH($A$1:$A$10)=$D$1;1;0))
$A$1:$A$10 - tabuľka dátumov
$D$1 - sledovaný mesiac
EDIT: Ešte ma napadá, ak by si potreboval spočítať len záznamy určitého mesiaca v určitom roku, tak takto
=SUM(IF((MONTH($A$1:$A$10)=$D$1)*(YEAR($A$1:$A$10)=$E$1);1;0))
$E$1 - sledovaný rok
... ostatné detto
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