< návrat zpět
MS Excel
Téma: podmíněný zápis do buňky 
Zaslal/a mikrob 17.6.2015 10:13
mám 4 buňky, do jedné vložím znak a chci aby když do některé jiné vložím znak tak v té předcházející se zrušil, prostě může být obsazena jen jedna buňka ze čtyř,
jak to provést, jde to vůbec?
Palooo(17.6.2015 11:55)#025585 
to pojde asi len makrom napr. takto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C6" Then Range("D6,E6,F6") = ""
If Target.Address(0, 0) = "D6" Then Range("C6,E6,F6") = ""
If Target.Address(0, 0) = "E6" Then Range("D6,C6,F6") = ""
If Target.Address(0, 0) = "F6" Then Range("D6,E6,C6") = ""
End Sub
citovat
eLCHa(17.6.2015 13:47)#025586
Řekl bych, že se Vám to zacyklí ;)
Kdyby to nechtělo tu omáčku kolem, tak stačí 1 řádek ;)
Private Sub Worksheet_Change(ByVal Target As Range)
Const sADDRESS As String = "$H$12:$K$12"
With Range(sADDRESS)
If Union(.Cells, Target.Cells(1)).Address = .Address Then
Dim bEvents As Boolean
bEvents = Application.EnableEvents
Application.EnableEvents = False
.Value = Evaluate("=IF(COLUMN(" & .Address & ")=" & Target.Cells(1).Column & "," & Target.Cells(1).Value & ","""")")
Application.EnableEvents = bEvents
End If
End With 'Range(sADDRESS)
End SubcitovatPalooo(17.6.2015 14:08)#025587 nezacykli sa ... lebo sa nespusti event :)
citovatmarjankaj(17.6.2015 14:30)#025589 No mne sa aj tak "podarilo" vyplniť všetky štyri bunky.;)
citovatPalooo(17.6.2015 14:33)#025590 podmienka bola taka ze ked vlozim znak tak v predchadzajucej sa ma zrusis .... tj. ked ich vlozil naraz do 4roch nema co rusit :))) ... aspon takto alibiaticky sa vyhovaram ze je to spravne :)
citovat eLCHa(17.6.2015 20:45)#025591 máte pravdu, nezacyklí - teď to vidím
ale nemáte pravdu - event se spustí ;))
citovatmarjankaj(17.6.2015 23:24)#025592 eLCHa napsal/a:
máte pravdu, nezacyklí - teď to vidím
ale nemáte pravdu - event se spustí ;))
Jasné, event sa spustí. Znížil so počet buniek zo 4 na 2 a zacyklilo sa to.
Ale to by vyriešilo
Application.EnableEvents = False/True
citovat eLCHa(18.6.2015 4:45)#025593 @marjankaj
U řešení od palooo to není potřeba. Podívejte se na to pořádně, popřípaě vyzkoušejte. Jen bych na jeho místě raději použil ClearContents.
Já chtěl vykoušet "jednořádkové řešení" a to se povedlo.
citovatPalooo(18.6.2015 8:59)#025595 hups spusti :) co uz betar jeden
oihladne riesenia tiez som povodne chcel dat jednoriadkove ale na znazornenie je to riesenie pre zacinajuceho uzivatela uplne idealne :) .... lahko sa cita
citovatmikrob(18.6.2015 9:06)#025596 já všem moc děkuji, nečekal jsem tak rychlou odezvu. teď se tím musím dál prokousat.
citovat
RSS nejnovější články