Fórum Živě.cz

Pro tisk bianco cislovanych formularu (Excel 2007; formular!A1:AI23) pouzij proceduru:
Option Explicit

Sub TiskCislovaneKopie()
' nastavit ve vzhledu stranky tiskarnu, papir
Dim PocetKopii As Integer, CislovatOd As Long
Dim CislovatDo As Long
Dim i As Integer, Tmp As Integer
With Worksheet...

adresu mas v SZ

Tedy se jedna o tisk cislovanych bianco formularu pro rucni vyplneni?
Cislo ma byt umisteno v zapati listu (vlevo, vpravo, uprostred) nebo v urcite bunce? Uved, napr. E49,
Formular je tvoren blokem bunek, uved adresu, napr.: A1:F50.

Upresni:
očíslovat (pořadové číslo kopie) a tisknou s pořadový, číslem
Jedna se vicenasobny tisk (tedy kopie) jedne a teze stranky (formulare) excelovskeho listu (ted vytisknout 20 cislovanych kopii) nebo postupne behem doby tisknout formular a tomuto tisku formulare (s jinym obsahem, neco jako st...

Ve funkci:
Function Slovy1(Cis) As String ' bez mezer mezi slovy
uprav predposledni radek takto:
...
Slovy1 = Trim(Slovy1) & " Kč" ' & " " & Right(StrCis, 2) ' pridani destinne casti
End Function

Pokud potrebujes vlozit i desetinny oddelovac a 00 haleru, pak ...

Tedy jeste jednou:
Jmeno vyskytujici se v zaznamu na hlavnim listu se nevyskytuje na nekterem z 36-ti listu - odstranit na listech, kde se vyskytuje vcetne hlavniho listu ?
Jmeno se vyskytuje pouze na nekterych listech z 36-ti listu, odstranit na techto listech?

Pokud plati vyse uvedene, pak to zn...

Combobox je na listu1. Pridany list je aktivni list. Takze combobox opet "zobrazis" aktivaci listu 1.
V modulu listu 1 je procedura: Private Sub Worksheet_Activate(), ktera vola proceduru Public Sub InitCmb() naplnujici (aktualizujici) seznam comboboxu.
Viz odpoved 17. 2. 2011 13:05

Proceduru Public Sub InitCmb() pro nezarazeni do seznamu urcitych listu uprav takto (pokud tech zarazenych listu bude podstane vice nez nezarazenych; listy, jez nemaji byt zarazeny, pripadne nemusi v sesitu existovat):
....
For Each Wsht In ActiveWorkbook.Worksheets
If Wsht.Name <&g...

Nejak mi unika smysl tveho snazeni.
Drive uvedena procedura Public Sub InitCmb() vlozi do seznamu comboboxu nazvy pouze a jen existujicich listu v sesitu (mimo List1), takze proc
chtěl jsem aby se mi v comboboxu nezobrazoval třeba list 10 ( aniž by byl eště vytvořen - třeba ) ?
Cose tyce "n...

Filtraci listu do seznamu vloz do procedury InitCmb, v ni je jiz fitrovan List1. Jak filtrovat dalsi listy zalezi na kriteriich filtrovani a potazmo nazvech listu.

Na listu 1 TextBox nahrad ComboBoxem z ovladacich prvku ActiveX.
Vlastnost ComboBox1.MatchEntry nastavit na True , lze vybrat data pouze ze seznamu!
Inicializaci seznamu zajistuje procedura ve standardnim modulu :
Option Explicit

Public Sub InitCmb()
' naplnit combobox1 pri aktivaci listu
' jmen...

Na cilovem listu (list1) vytvor tlacitko (CommandButton1) a textbox (TextBox1) z ovladacich prvku ActiveX . Z ukazky vyplyva, ze prenesena data maji byt vkladana do bloku pocinaje adresou D7.
Do modulu listu List1 vloz nasledujici procedury(Z ukazky vyplyva, ze prenesena data maji byt vkladana do b...

fce Rank(). A podivej se i do napaovedy k funkci.
Take se podivej na a analyzuj fce SMALL() a LARGE().

Puvodni popis pozadavku (znacne zmatecny) po prilozeni dema lze upravit podle list2; pokud se mylim v definici pravidel, oprav:
Kdyz je bunka B6 prazdna, jsou bunky A5:A6 a B5:C5 nepodbarvene.
Kdyz je do B6 vlozena hodnota shodna s D2, jsou bunky A5:A6 podbarveny oranzove.
Kdyz je do B6 vlozena hodn...

Zmena barvy pozadi je mozna rucne, docasne po dobu splneni podminky podminenym formatovanim, procedurami VBA.
Funkce odkazuji na bunky, tudiz hodnota vracena funkci v podmince podmineneho formatovni reaguje na okamzity stav odkazovanych bunek. Zmenit format bunky na zaklade urite kombinace stavu bun...