Příspěvky uživatele

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.

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

Toto makro mi vloží do pätičky text.

Sub patickatext()
Worksheets("Hárok1").PageSetup.CenterFooter = "Podklady spracovala: meno priezvisko"
End Sub

Už som nato prišla.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call patickatext
End Sub

DOPLNENIE
Už som vyriešila ako vložiť text do pätičky pred tlačou, teraz potrebujem text z pätičky po tlači následne vymazať. Súbor sa automaticky makrom uloží a pred uložením vymaže text. Ale nefunguje mi to, funguje mi to len keď ťuknem na disketku uložiť.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call vlozitpaticku
End Sub

Sub vlozitpaticku()
Worksheets("Hárok1").PageSetup.CenterFooter = "Podklady spracovala: meno,priezvisko"
ActiveWorkbook.Save
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call odstranitpaticku
End Sub
Sub odstranitpaticku()
With Sheets("Hárok1").PageSetup
.CenterFooter = ""
End With
End Sub

V bunke K2 mám rozbaľovací zoznam Oddelení a potrebovala by som podľa vybratého oddelenia skočiť na posledný záznam v prvom stĺpci A, kde je poradové číslo.

Ďakujem

Existuje nejaká aplikácia v mobile, ktorá podporuje VBA v Androide?

Pozrite

https://www.porada.sk/t300425-vlookup-vyhladanie-udaju-s-mensou-hodnotou.html

office? Prilož prílohu

http://wall.cz/index.php?m=topic&id=3195

Funkcia COUNTIF - počíta počet.

Dobrý je aj doplnok RJ Tools od Radka Jurečka, ktorý počíta počíta farebné bunky.
Buď počet alebo sumu.

https://www.rjurecek.cz/excel/rj-tools/

https://www.porada.sk/t277092-scitanie-buniek-podla-farby.html

Alebo makro
http://excelprekazdeho.blogspot.com/2013/07/ako-scitat-hodnoty-podla-farby-bunky.html

Obrázok

Nová príloha doplnená o Vysunuté pracoviská.

To číslo s poslednom riadku sa tam dostáva z exportu zo serveru, nechávam ho tak. Vymaže sa pri aplikácii makra. Súbor je zložený z dvoch textových súborov importovaných do excelu (COS a Vysunuté pracoviská)

Po aplikácií makra sa vytvorí hlavička pre Vysunuté pracoviská, ale keďže neviem, koľko riadkov bude vo Vysunutých pracoviskách, tak sa nepresúvajú v makre, presúvajú sa ručne.

Na obrázku vidieť, čo všetko môže byť na Vysunutých pracoviskách.
To čo tam nemusí byť, sa odstraňuje v makre.
Dôležité sú hlavne gyn sály, OMFCH, OAIM a RTG-AG, tie musia ostať.

Makro funguje, len neviem ako zabezpečiť, aby sa zafarbili LEN konštanty: služba, príslužba, dodatok, neop., správne meno:, správne priezvisko:, správne R.č.:

Podfarbí sa celý text v bunke.
Všetky ostatné poznámky potrebujem bez farby.

Tu som riešila úpravu makra.
https://wall.cz/index.php?m=topic&id=52385

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje