Příspěvky uživatele

Zkusil sem to pomocí VBA viz. příloha

Co zkusit podmíněné formátování. Nastavit např: když bude v buňce (A1) záporné číslo, změní se výplň buňky na červenou?

To co hledáš najdeš na kartě VÝVOJÁŘ - OVLÁDACÍ PRVKY - NÁSTROJE STARŠÍ VERZE - STARŠÍ FORMULÁŘE - ZAŠKRTÁVACÍ POLÍČKO.
Pokud nemáš aktivovanou kartu vývojář tak tlačítko Office - možnosti aplikace word - oblíbené - zobrazit na pásu kartu vývojář

Abych řek pravdu, pořádně netuším o co jde, ale vzpomněl jsem si na tohle:
http://office.microsoft.com/cs-cz/excel-help/prezentace-dat-v-kombinovanem-grafu-HA010007419.aspx

Ahoj, není za co hlavně, že je to podle představ. S tím VBA Ti bohužel neporadím. Jsem schopnej napsat nebo upravit jednoduchý makro, ale tohle už je mimo moje možnosti. Ve VBA jsem pouhý začátečník. Hold budeš mušet počkat na zdejší ostřílený borce

Ahoj tak sem zkusil "přetahat" hodnoty z nabídky do faktury pomocí vzorců. Nějak zvlášť sem to netestoval, ale mělo by to chodit (pokud nechtěně někdo nesmázne vzorec).
Hoď na to vočko. Snad se objeví někdo s elegantnějším řešením.
Ještě sem "poladil" tu větu co máš pod fakturou - bude uvádět aktuální datum vytvoření. Pokud se ti to nehodí tak to smaž.

Ahoj, tak sem si pročet znovu celé vlákno a velká omluva za mistifikaci, včera sem evidentně neměl svůj den

.
K políčku z ovládacích prvků formuláře jde samozřejmě přiřadit makro, ale né ve "stejném" svaru jako je makro pro ovlácí prvek ActiveX. V ActiveX je hodnota "vlastnost" políčka (zaškrtnuto, nezaškrtnuto) přímo vyjádřena v makru: CheckBox1.Value = True Then, CheckBox1.Value = False Then což u ovládacího prvku formuláře nelze - ten se musí propojit s libovolnou buňkou např: A1 (v buňce se mění hodnota PRAVDA a NEPRAVDA podle zaškrtnutí) a tuto buňku poté použít v makru: Range("A1").Value = True Then, Range("A1").Value = False Then. Takže to makro co si sem uvedl je schopno funkce pouze s ActiveX prvkem a po úpravě samozřejmě i s prvkem z formuláře.

Jen bych se zeptal proč trváš na prvku z formuláře ? U prvků ActiveX máš více možností si pohrát s jeho vlastnostmi, například barvou což u prvků z formuláře nelze.

OK tady máš novej kód:

Sub políčko1_Klepnutí()
'Skryt stlpce F a G
If Range("A1").Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If Range("A1").Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Select
End Sub

políčko je propojeno s buňkou A1
pravý tl. myši - formát ovládacího prvku - ovládací prvek

Tak jestli trváš na políčku z "formuláře" tak postup sem ti psal výše - Nakreslíš políčko, pravým tl. myši přidat makro, volba upravit otevře se VBA a vložíš kód.

'Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Select

A použil si to zaškrtávací políčko z ActiveX?
Zkoušel sem to do prázdnýho sešitu a nebyl problém

promiň myslel sem políčko a píšu tlačítko

. Samozřejmně můžeš políčku z ovládací prvky formuláře přidělit makro.
Nakreslíš políčko, pravým tl. myši přidat makro, volba upravit otevře se VBA a vložíš kód.
Právě, že mě zmátlo že v makru máš uvedeno "Private Sub CheckBox1_Click()" což je ActiveX, všimni si že když vybereš políčko z "formuláře" máš v makru "Sub políčko1_Klepnutí()"

Nejspíš máš vložený tlačítko z ovládací prvky formuláře, že?
Vlož si na list tlačítko z ovládací prvky ActiveX.
Vložíš tlačítko poklikáš na něj a otevře se ti VBA editor a jenom vložíš to makro.Private Sub CheckBox1_Click() a end sub už bude vloženo automaticky tak ho tam znovu nevkládej.

Ahoj tak sem vyzkoušel tvoje makro a po menší upravě "jede". Chybička je zde("F,G"), má tam být ("F:G").

Private Sub CheckBox1_Click()
' Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Select
With Selection.EntireColumn
.Hidden = True
End With
End If
'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F:G").Select
With Selection.EntireColumn
.Hidden = False
End With
End If
Range("A3").Select
End Sub

Edit: nebo kratší verze bez "blikání"

Private Sub CheckBox1_Click()
'Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Select
End Sub

Ano makro. Jestli je zadání takto jednoduché stačil by na to záznamník maker - zapneš záznam makra, označíš oblast buněk a vypneš záznam. Makro se poté přiřádí k určenému tlačítku.

Tomuto přání by mělo vyhovovat podmíněné formátování

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje