Příspěvky uživatele


< návrat zpět

Strana:  1 2 3 4 5 6 7 8 9   další » ... 29

Dobrý deň.

Prikladám prílohu.

Jedná sa o makro v tlačítku ZARADIŤ.
Toto makro je funkčné.

Potrebovala by som ho upraviť aby fungovalo aj vtedy, keď skryjem riadky.

Funguje to tak, že prvý stĺpec A sa nevypĺňa. Vyplní sa od stĺpca B do J.
Potom sa stlačí tlačítko ZARADIŤ a zaradí ich podľa príslušného oddelenia v stĺpci I. a začísluje ich v stĺpci A.

Napr. Skryjem riadky s odd. JOCK, aby som videla odd. OČNÉ a zaradí mi riadky pod OČNÉ, napriek tomu, že sú riadky s odd. JOCK skryté. Ale nemusí ísť vyslovene len o jedno oddelenie. Môžem ich skryť viac, bez ohľadu na to, čo a koľko riadkov skryjem, makro bude naďalej fungovať.

Lugr napsal/a:

Mě ale funkce SUMIFS v příloze funguje.


Ospravedlňujem sa. Nevšimla som si, že aj SUMIFSové vzorce sú prerobené.
Tie som nechala svoje. Samozrejme funguje to. Prerobím si to. Ďakujem.

elninoslov napsal/a:

Pri pokuse o stiahnutie súboru dostávam hlášku (ale counter sa zvyšuje):Příloha: 55059_errdownload.png (10kB, staženo 12x)


Zaujimavé. Ani mne nejde.
Priložila som nový súbor. Je upravený podľa Lugra.

Lugr napsal/a:

Makro jsem upravil, ale nezkoušel. Taky jsem udělal pár úprav v tabulce, snad to navadí.Příloha: 55060_statistika-instrumentarok-pri-operacnych-vykonoch-2023-wall.zip (241kB, staženo 8x)


Ďakujem pekne. Makro nefunguje vyhodí chybu.

Ak je sobota, nedeľa a sviatok v jednej zlúčenej bunke, tak mi nefunguje funkcia SUMIFS. Spočítava len sviatok C, sobota, C, nedeľa C, nespočítava sviatok N, sobota N, nedeľa N.

Predtým som to mala zdvojené. Sobota, sobota, nedeľa, nedeľa, sviatok, sviatok.
Upravila som si tak aj pracovné dni.

Priložený nový súbor. Takto mi makro funguje.
Som spokojná. Pokladám za vyriešené a uzatváram toto vlákno.

Dobrý deň!

V sumáre v hárku 2023 mám funkcie SUMIF a SUMIFS, ktoré spočítavajú hárky 01-12. Funkcie fungujú.

Problém je, že v rámci mesiaca sa mená menia pribúdajú, ubúdajú a to znamená, že mená nie sú na rovnakej pozícii. Neviem ich správne zadefinovať, aby ťahali to čo majú.

Potom mám v hárku NEMAZAT tlačítko, ktoré aktivuje makro nový rok. Uloží aktívny súbor a vytvorí nový. Vymaže vypĺňanú oblasť vo všetkých hárkoch 01-12.

Problém je, že neviem ako ošetriť, aby vymazalo oblasť aj v hárkoch, ktoré majú viac ako 28 dní (nastavená oblasť podľa februára).

DOPLNENIE
Do makra som doplnila oblasť na mazanie. Je to kostrbaté, ale spĺňa účel.

Ešte neviem ako dosiahnúť, aby zmenilo automaticky aj dátum v bunke B70, ktorý sa mení číselníkom pri zmene roku v každom hárku.

Ďakujem

DOPLNENIE
Priložený nový súbor

Zatiaľ som to vyriešila najjednoduchšie ako som vedela.
Doplnila som stĺpce a riadky.

Tým pádom spočítavaná oblasť sa posunula na BN.
Rovnako sa maže rovnaká oblasť v hárkoch 01-12
V sumári 2023 som to spočítala bez funkcie.
='01'!BN4+'02'!BN4+'03'!BN4+'04'!BN4+'05'!BN4+'06' !BN4+'07'!BN4+'08'!BN4+'09'!BN4+'10'!BN4+'11'!BN4+ '12'!BN4

Len ešte makro Nový rok potrebujem ošetriť, aby sa menil automaticky.

Ako zabezpečiť aby sa súbor xlsm dal otvoriť len v Exceli od MS?
A nie v iných príbuzných programoch, open office, libre office, google tabulky, v androide a iných aplikáciách?

Makro je zaheslované, ale pri otvorení zošitu v libre office je možné ho preuložiť do iného formátu a vymazať makro bez potreby zadania hesla.

Chcem rozšíriť toto makro. Toto makro zabezpečuje, že sa súbor nedá uložiť do iného formátu ako xlsm. Ale potrebujem, aby sa dal otvoriť len Excelom od MS,
lebo inak to stráca význam.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "Podklady spracovala: menopriezvisko, uloženie nie je možné", vbInformation
Cancel = True
End If
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
ActiveSheet.PageSetup.CenterFooter = "Podklady spracovala: menopriezvisko"
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
ActiveSheet.PageSetup.CenterFooter = ""

End Sub


Ďakujem

lubo napsal/a:

Stačí poskládat pořadí.

1. Konec měsíce
2. so, ne
3. svátky

(Samozřejmě nastavit konec, pokud podmínka splněna)


Presne tak som to spravila.
Najprv koniec mesiaca, potom so,ne a sviatky.
Funguje to.

Jiří497 napsal/a:

V podmíněněm formátu se pravidla zpracovávají odshora dolů. Když se posune pravidlo pro svátky za sobotu a neděli, tak to bude fungovat.

Nebo nechat svátek jako první, ale pak nesmí být zaškrtnutá volba vpravo "zastavit, pokud platí".


Ďakujem, funguje to. A tiež ďakujem za vysvetlenie.

Dobrý deň

Mám kalendár s podmieneným formátom na soboty nedele a sviatky.

Problém, je že mi to robí šarapatu, keď sviatok pripadne na sobotu, alebo nedeľu. Potrebujem, aby víkend bol podfarbený ako sobota a nedeľa bez ohľadu, nato, že je tam sviatok.

A tiež ošetriť koniec mesiaca.
Pri podmienenom formáte sa mi zobrazí aj ďalší mesiac.

Ďakujem za rady.

elninoslov napsal/a:

"A tým sa dostávam k otázke: Prečo nemôžete použiť v Exceli jeho základnú funkcionalitu, na ktorú bol navrhnutý - počítanie v bunkách ???


Máte pravdu, zbytočne si to komplikujem.
Je to škriabanie sa cez hlavu.
Nakoniec je to iba pre mňa.
Ostávam pri starom.

elninoslov napsal/a:




Ďakujem, veľmi pekne, len ak s tým budem ďalej pracovať, tak to bude komplikované takto.

Našla som toto:

https://www.extendoffice.com/documents/excel/4481-excel-sum-of-textbox-values.html

Spočítanie texboxov, ale nefunguje to automaticky, ale na kliknutie vo VBA na RUN zelené tlačítko.

Ako o čo najjednoduchšie napísať VBA kód do ovládacieho prvku texbox4 na prenásobenie dvoch hodnôt v texboxe2 a texboxe3?

Chcem si vytvoriť niečo podobné.
https://ipdf.sk/uctovne-tlaciva/vyplatna-paska-mzdova-kalkulacka

Ďakujem za nástrel a nasmerovanie.

VYRIEŠENÉ
Ostávam pri starom klasickom spôsobe. Žiadne formuláre.

eLCHa napsal/a:

Pokud tu dáváte nějaký tip a chcete, aby si ho někdo našel v budoucnu tak vlákno lépe pojmenujte. Tuším, že 'kuleha' tady nikdo hledat nebude.

A jen poznámka k tomu zákazu ukládání. Zakázat to makrem je nejméně bezpečná cesta jak toho dosáhnout.


Ďakujem za upozornenie, premenovať sa mi to už nedá.
A k tej poznámke, ďakujem za doplnenie a informácie.

1. Vloženie textu do pätičky: Podklady spracoval/a: Meno, priezvisko
2. Zakázaný príkaz Uložiť ako, vyskakujúce okno: Podklady spracoval/a: Meno, priezvisko, uloženie nie je možné
3. Zaheslované makro
(Ďakujem elninoslov)

Excel (2007) - ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "Podklady vypracoval/a: Meno, priezvisko, uloženie nie je možné", vbInformation
Cancel = True
End If
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
ActiveSheet.PageSetup.CenterFooter = "Podklady vypracoval/a: Meno, priezvisko"
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
ActiveSheet.PageSetup.CenterFooter = ""
End Sub


Word (2007) - ThisDocument
Option Explicit

Private Sub Document_Open()
Dim Doc As Document
Dim wSection As Section
Set Doc = ThisDocument
For Each wSection In Doc.Sections
With wSection.Footers(wdHeaderFooterPrimary)
.Range.Text = "Podklady vypracoval/a: Meno, priezvisko"
End With
Next wSection
Set Doc = Nothing
End Sub

Sub FileSaveAs()
MsgBox ("Podklady vypracoval/a: Meno, priezvisko, uloženie nie je možné")
End Sub


VBA projekt - makro - zaheslovanie
Celý projekt zbalený-klik pravým tlačidlom myši-Project Properties-Properties
(alebo Tools-Project Properties-Properties)
Zaškrtneme možnosť Lock project for wieving a 2x napíšeme heslo.

Nemusí sa to ukladať, nie je to nutné, ja len skúšam ako to dosiahnúť, pätička sa vloží automaticky pred tlačou, a potom chcem aby sa aj automaticky odstránila a to neviem dosiahnúť. Bez zásahu užívateľa. Dám tlač, vytlačí sa a vymaže sa.

Príkazy tam nemusia byť
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Save


Myslím, že to vypínanie príznaku úplne stačí.
Pretože sa vytlačí, v ukážke pred tlačou síce vidno text v pätičke, ale pri Vložiť-pätička nie je žiaden text a nemožno ho prepísať.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
ActiveSheet.PageSetup.CenterFooter = "Podklady spracovala: meno,priezvisko"
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
ActiveSheet.PageSetup.CenterFooter = ""
End Sub


Ďakujem


Strana:  1 2 3 4 5 6 7 8 9   další » ... 29

Uživatelské menu

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

Menu

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.

Aktivní diskuse

náhled web stránek v Excelu

elninoslov • 23.2. 11:17

náhled web stránek v Excelu

zdena • 23.2. 10:01

Timeplan

CMM-Team • 23.2. 9:21

Nechci při importu odebírat prázdné řádky

elninoslov • 23.2. 9:19

náhled web stránek v Excelu

elninoslov • 23.2. 9:13

náhled web stránek v Excelu

zdena • 22.2. 17:08

náhled web stránek v Excelu

Nahled-WEB • 22.2. 13:12