MS Excel

Téma: OptionButton-Prepínač

Zaslal/a Dunkaninko 5.10.2010 16:46

Zdravím.
Mám na list1 3 OptionButton s manuálne zmeneným textom na T1, T2, T3. Pomocou prepínačov vyberám (označujem) hodnotu jednej z troch buniek. T1 vyberie D5, T2 - D6, T3 - D7.
Pomocou makra by som chcel zaškrtnúť prepínač len vtedy, ak obsah zodpovedajúcej bunky je > 0. Bunky D5, D6 a D7 môžu obsahovať len kladné čísla. V opačnom prípade prepínač nepovoliť zaškrtnúť.
Je to vôbec možné? Ak áno, je makro iné pre prepínač z formuláru ako z ActiveX
Ďakujem

Zaslat odpověď >

Strana: « předchozí 1 2

jeza.m(7.10.2010 17:14)#002670

šlo:

If Range("Q14") > 0 Then
For i = 1 To 2
ActiveSheet.Shapes("OptionButton" & i).Visible = True
Next
Else
For i = 1 To 2
ActiveSheet.Shapes("OptionButton" & i).Visible = False
Next
End If
M@citovat

Dunkaninko(7.10.2010 17:37)#002672

To ale nie je ono. Toto makro podľa hodnoty jednej buňky (Q14) zviditeľňuje prepínače 1 a 2. Správne to má byť tak, že jedna buňka zviditeľňuje jeden prepínač 1, druhá buňka zviditeľňuje prepínač 2, tretia buňka prepínač 3, ... Buňky môžu nasledovať zasebou napr. v riadku (D5, D6, D7, ...)a im zodpovedajúce prepínače OB1, OB2, OB3, ...citovat

Jeza.m(7.10.2010 20:07)#002676

No dobře, tak třeba takhle:

For i = 5 To 20
If Range("D"& i) > 0 Then
ActiveSheet.Shapes("OB" & i-4).Visible = True
Else
ActiveSheet.Shapes("OB" & i-4).Visible = False
End If
Next

napsal jsem si to jen tak bez odzkoušení, ale myslím, že by to jít mělo ;-).

M@citovat

Dunkaninko(7.10.2010 20:57)#002679

To je jedna cast problemu. Zatial nie je cyklom riesena pomenovacia cast prepinacov
ActiveSheet.Shapes(Application.Caller).Name = "OB1". Ako je v zadani uvedene jednotlive prepinace su oznacene textom T1, T2, ... (cez pravy klik a Upravit text). Nejde cez tento text odlisit jednotlive prepinace a na zaklade tohoto textu potom nejakym makrom pomenovať prepinace OB1, OB2, ....? Alebo kazdy prepinac musi byt manualne pomenovany vyssie uvedenym makrom? Dakujemcitovat

Strana: « předchozí 1 2

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.