• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Ověření dat

Zaslal/a bloom 24.6.2014 15:53

Ahoj, potřeboval bych poradit s nastavením ověření dat v excelu. Nastavil jsem v několika buňkách ověření dat ze seznamu (seznam obsahuje možnosti "ano", "ne"). Potřeboval bych, aby v těchto buňkách uživatel mohl nastavené hodnoty změnit jen výběrem ze seznamu a ne např. vepsáním hodnoty "ano" do buňky. V podstatě bych potřeboval buňku nastavit tak, aby se v ní dala nastavit hodnota ze seznamu, ale nedal se její obsah změnit vepsáním hodnoty. Doufám, že jsem vše formuloval srozumitelně. Budu velmi vděčný za jakoukoliv pomoc. bloom

Zaslat odpověď >

---

Strana:  « předchozí  1 2

eLCHa(25.6.2014 12:19)#020131

Nerozumím
ked chci editovat zvnutra bunku tak zmaze datumcitovat

Palooo(25.6.2014 12:25)#020132

eLCHa napsal/a:

Nerozumím
ked chci editovat zvnutra bunku tak zmaze datum

skuste postupne do praznych buniek rucne dopisovat ano .... niekedy to da datum niekedy to neda datum ... aspon umna to robicitovat

eLCHa(25.6.2014 12:36)#020135

Já s tím nedělám a nevím jak se s tím pracuje - co když vymaže několik buněk najednou (což nebylo ošetřeno ani v původním kódu)?
Určitě je pár věcí na odladění...

Pomůže toto?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then
If Len(ActiveCell.Value) = 0 Then
Target.Cells(1).Offset(0, 1).ClearContents
Target.Cells(1).NumberFormat = "General"
Else
If Not Target.Cells(1).NumberFormat = ";;;""" & Target.Cells(1).Value & """" Then
Target.Cells(1).Offset(0, 1).Value = Now
Target.Cells(1).NumberFormat = ";;;""" & Target.Cells(1).Value & """"
End If
End If
End If
End Subcitovat

Palooo(25.6.2014 12:48)#020139

urcite to posiela User-om, takze tam treba ratat so vsetkym ... tj. podla mna excel natoto nieje este pripraveny :) .... ale to je len moj nazorcitovat

Palooo(25.6.2014 13:24)#020148

pokus c.5.
- uz nieje potreba exit sub ked nieje seleknuty 15 column
- pracuje to v range
- myslim ze to ani bug nevyhadzuje
- minus ked sa selecne cely column tak to asi 2s nacitava

.... a asi aj final verzia

edit. ostatne verzie z tejto temy som vymazal aby som nerobil zbytocne bordel na fore

Příloha: 20148_mydata.zip (21kB, staženo 18x)

citovat

bloom(25.6.2014 14:51)#020150

Díky za pomoc, sice to bohužel nefunguje (stále to jde vepsat). Ale pokusím se s to nějak obhájit bez toho. ;)citovat

marjankaj(25.6.2014 15:09)#020152

bloom napsal/a:

Díky za pomoc, sice to bohužel nefunguje (stále to jde vepsat). Ale pokusím se s to nějak obhájit bez toho. ;)

No overenie tak funguje. Niečo tam vpíšeš a ono to skontroluje, či vyhovuje podmienke. Ak vyhovuje, tak zápis je povolený.
Ak tam chceš zakázať vpisovanie, tak tú bunku zamkni a rob to cez makro.citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse