Pro tento konkrétní příklad mě napadá jedině řešení makrem - událost listu Worksheet_Change.
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Výchozí hodnota
MS Excel
Téma: Výchozí hodnota 
Zaslal/a 26.1.2017 11:56
Zdravím,
chtěl bych se zeptat, zda jde nastavit do buňky výchozí hodnota. Dám příklad. Budu mít v buňce číslo "200kč" a když jej vymažu, chtěl bych, aby tam nebyla prázdná buňka ale "0kč". Pomůžete mi s tím prosím někdo?
Principiálně třeba nějak takto (pro B1 až B10):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
For i = 1 To 10
If Cells(i, 2).Value = "" Then
Cells(i, 2).Value = 0
End If
Next i
End If
End SubP.citovat
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
For i = 1 To 10
If Cells(i, 2).Value = "" Then
Cells(i, 2).Value = 0
End If
Next i
End If
End SubP.citovat
(26.1.2017 23:36)#034717
Ach jo, co je to za Pavlusi zase za kód?
V událostní proceduře Change nemůžete jen tak měnit buňky. Protože co? Protože ti za hodinu jede vlak, vole :-D No protože vyvoláte další událost Change a spoléháte na to, že po několika opakováních tohle zacyklení Excel zastaví sám.
Takže
a) Musíte události dočasně vypínat (Application.EnableEvents = False).
b) Prázdná buňka se testuje na IsEmpty (Kč je tam samozřejmě formátem).
c) Ideálně žádný cyklus, prostě rovnou Target a Value hromadně, jenže tady holt je ten test realizovaný na každé buňce z Target.Cells zvlášť. No ale předpokládejme, že někdo na Targetu udělal hromadnou změnu (Del nebo přes CTRL+ENTER), tudíž podle mě stačí provádět test pouze na Target.Cells(1).citovat
V událostní proceduře Change nemůžete jen tak měnit buňky. Protože co? Protože ti za hodinu jede vlak, vole :-D No protože vyvoláte další událost Change a spoléháte na to, že po několika opakováních tohle zacyklení Excel zastaví sám.
Takže
a) Musíte události dočasně vypínat (Application.EnableEvents = False).
b) Prázdná buňka se testuje na IsEmpty (Kč je tam samozřejmě formátem).
c) Ideálně žádný cyklus, prostě rovnou Target a Value hromadně, jenže tady holt je ten test realizovaný na každé buňce z Target.Cells zvlášť. No ale předpokládejme, že někdo na Targetu udělal hromadnou změnu (Del nebo přes CTRL+ENTER), tudíž podle mě stačí provádět test pouze na Target.Cells(1).citovat
Pokial ale udalost nastane z dovodu nakopirovania hodnot napr. zo schranky, ktora bude obsahovat i obsah prazdnych buniek, tak cyklus asi nutny bude, pletiem sa?citovat
(27.1.2017 0:24)#034721
@Al
Ano, to už bude problém. Na druhou stranu, ani tak bych neházel flintu do žita a spíš než cyklus bych ještě zkusil SpecialCells a Replace.citovat
Ano, to už bude problém. Na druhou stranu, ani tak bych neházel flintu do žita a spíš než cyklus bych ještě zkusil SpecialCells a Replace.citovat
Jj, to by slo 
. Eventualne nie replace, ale do prazdnych rovno zapisat nulu.citovat
. Eventualne nie replace, ale do prazdnych rovno zapisat nulu.citovatUživatelské menu
Nejste přihlášen(a)
\n
\nFormulář 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