Stránka 1 z 1

Excel - podmíněný obsah buňky

Napsal: 18 kvě 2012 14:26
od prs
Dobrý den,

je nějak možné v excelu vymyslet podmínený obsah buňky?

Příklad:
V rozhodovací buňce vybírám mezi "OK" a "NA" a chtěl bych v určitých buňkách s ohledem na tyto hesla toto:
v případě "NA" - automaticky vyplnit nějakým textem (jako "nepoužito" či tak něco)
v případě "OK" - ponechat políčko prázdé s možností zapisovat

Samozřejmě po změně rozhodovacího políčka z "OK" na "NA" ponechat automatické vyplnění buňky a naopak.

Děkuju moc

P.

Re: Excel - podmíněný obsah buňky

Napsal: 18 kvě 2012 14:50
od d1amond
Funkce =Když(podmínka; ano; ne). Problém je, že vzorec musí být v buňce, a když ho přepíšeš, už není - buď hodnota nebo vzorec.

Re: Excel - podmíněný obsah buňky

Napsal: 20 kvě 2012 11:51
od prs
No to je mi právě jasný, právě bych potřeboval, ať mi tam ta funkce zůstane, když zpět změním rozhodovací buňku...

Re: Excel - podmíněný obsah buňky

Napsal: 20 kvě 2012 11:55
od d1amond
Zkus nahodit v excelu příklad, a přilž ho sem. Nějak nechápu.

Re: Excel - podmíněný obsah buňky

Napsal: 20 kvě 2012 18:20
od pavel.lasak
Je možno použít další samostatný sloupec, který o tom bude rozhodovat? Je možno použít makro (VBA) - SheetChange? Jak psal d1amond pošli nějaký příklad, ze zadaní jsem to také úplně nepochopil.

Re: Excel - podmíněný obsah buňky

Napsal: 23 kvě 2012 15:02
od prs
Sand to bude z příkladu lépe pochopitelné.

Díky

P.

Re: Excel - podmíněný obsah buňky

Napsal: 23 kvě 2012 16:53
od guest
Data / Ověření, vyplnit a odškrtnout na poslední záložce varování. Tak to vidím já.

Re: Excel - podmíněný obsah buňky

Napsal: 23 kvě 2012 17:15
od pavel.lasak
No chtěl jsem něco v Excelu, ale zkusil jsem něco připravit, snad jsem pochopil dobře. Viz příloha - pokud Je v F3 OK vyplní se test, pokud NA vyplní se nepoužito. Používa makro a událost listu Change

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("F3").Value = "NA" Then
    Application.EnableEvents = False
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "Nepoužito"
    Application.EnableEvents = True
Else
    Application.EnableEvents = False
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "test"
    Application.EnableEvents = True
End If

End Sub

Re: Excel - podmíněný obsah buňky

Napsal: 24 kvě 2012 10:25
od prs
Koukal jsem na to a super, jenže já potřebuju, když je parametr "OK", aby bylo možno do buňky vpisovat libovolný text. Takhle ho tam sice napíšu, ale po potvrzení buňky se zobrazí ono nadefinované "test". Šla by třeba použít jen první půlka toho makra?

Díky

P.

--- Doplnění předchozího příspěvku (24 Kvě 2012 10:31) ---

Prubnul jsem to a jde. Děkuju moc. :)

P.

--- Doplnění předchozího příspěvku (24 Kvě 2012 10:33) ---

Poslední dotaz, šlo by tedy ještě sem:


Private Sub Worksheet_Change(ByVal Target As Range)



If Range("F3").Value = "NA" Then
Application.EnableEvents = False
Range("C5").Select
ActiveCell.FormulaR1C1 = "Nepoužito"
Application.EnableEvents = True

End If

End Sub

Přidat něco, co by mi při přepnutí z "NA" do "OK" vymyzalo text "Nepoužito"?


Děkuji

P.

Re: Excel - podmíněný obsah buňky

Napsal: 24 kvě 2012 11:06
od cmuch
Tak asi takto:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("F3") Then

    If Range("F3").Value = "NA" Then
        Application.EnableEvents = False
        Range("C5").Select
        ActiveCell.FormulaR1C1 = "Nepoužito"
        Application.EnableEvents = True
      ElseIf Range("F3").Value = "OK" Then
        Application.EnableEvents = False
        Range("C5").Select
        ActiveCell.FormulaR1C1 = ""
        Application.EnableEvents = True
    End If

End If

End Sub

Re: Excel - podmíněný obsah buňky

Napsal: 24 kvě 2012 12:34
od prs
Super,

díky moc.

P.