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
Váš průvodce programem Microsoft Excel a programováním maker ve 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
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Vynásobit hodnoty kurzem - Power Query
Alfan • 26.4. 7:56
Relativní cesta - zdroje Power Query
Alfan • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
elninoslov • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
lubo • 25.4. 19:18
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 15:12
Relativní cesta - zdroje Power Query
Alfan • 25.4. 15:08
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 14:21
RSS nejnovější články