Nerozumím
ked chci editovat zvnutra bunku tak zmaze datumcitovat
ked chci editovat zvnutra bunku tak zmaze datumcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Ověření dat
skuste postupne do praznych buniek rucne dopisovat ano .... niekedy to da datum niekedy to neda datum ... aspon umna to robicitovat
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
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
Strana: « předchozí 1
2
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
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
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
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
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
- 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)
citovat20148_mydata.zip (21kB, staženo 18x)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
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)
\n
\nMenu
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.
RSS nejnovější články