Makrom vo VBA.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: Přičtení hodnoty k aktuální buňce
MS Excel
Téma: Přičtení hodnoty k aktuální buňce 
Zaslal/a bobika99 2.5.2016 15:53
Dobrý den,
potřeboval bych vytvořit k určitým buňkám, v kterých už jsou hodnoty nějaké tlačítko pro přidání hodnoty. Po klepnutí na toto tlačítko be se zobrazilo textové pole a do něj by se zapsala hodnota, která by se po potvrzení přičetla k aktuální buňce. Nevím jestli jsem to napsal srozumitelně a už vůbec nevím jak to udělat.
Díky
Tak ?
Reaguje iba na označené čísla, nie text ani prázdne bunky. Môžu byť označené nesúvislé mnohonásobné oblasti atď.
Reaguje iba na označené čísla, nie text ani prázdne bunky. Môžu byť označené nesúvislé mnohonásobné oblasti atď.
Příloha: 
31355_prirastok-k-cislam.zip (15kB, staženo 30x)
citovat31355_prirastok-k-cislam.zip (15kB, staženo 30x)To přičítání funguje OK tak by mi to stačilo.
Co bych potřeboval vylepšit:
- aby se tlačítko zobrazilo pokud možno jen vedle té buňky, na které je kurzor
- dialogové okno pro přidání lze nějak upravit? Stačí jen textbox s tlačítkem OK (klepnutím mimo textbox by se zrušilo)citovat
Co bych potřeboval vylepšit:
- aby se tlačítko zobrazilo pokud možno jen vedle té buňky, na které je kurzor
- dialogové okno pro přidání lze nějak upravit? Stačí jen textbox s tlačítkem OK (klepnutím mimo textbox by se zrušilo)citovat
(4.5.2016 21:04)#031372
Nebo např:
v "SelectionChange" ukládat hodnotu aktuální buňky a v "Change" vyhodnotit validitu hodnot a pak sečíst, nebo vložit původní hodnotu.citovat
v "SelectionChange" ukládat hodnotu aktuální buňky a v "Change" vyhodnotit validitu hodnot a pak sečíst, nebo vložit původní hodnotu.citovat
No veľký zmysel zadania nevidím.
Ale toto by šlo.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If IsNumeric(Target) And Not IsEmpty(Target) Then
On Error Resume Next
Target = Target + InputBox("zadaj prírastok") * 1
End If
End If
End Subcitovat
Ale toto by šlo.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If IsNumeric(Target) And Not IsEmpty(Target) Then
On Error Resume Next
Target = Target + InputBox("zadaj prírastok") * 1
End If
End If
End Subcitovat
Myslel jsem to nějak takto. Upozorňuji, že neprogramuji ve VBA, takže tam budou nejspíš nesmysly takže mi to můžete případně opravit. Ještě nevím jak udělat border tlačítka a potom jestli jde nějak upravit to dialogové okno pro přidání čísla.
Díky
Díky
Příloha: 31382_test.zip (20kB, staženo 28x)
citovat31382_test.zip (20kB, staženo 28x)Obdobne to mám pre Vás už urobené. Tak skúste.
Příloha: 31383_prirastok-k-cislam.zip (25kB, staženo 32x)
citovat31383_prirastok-k-cislam.zip (25kB, staženo 32x)To vypadá taky dobře. Jen otázka kde změním tu zelenou barvu, popř. přidám border a bordercolor? Díkycitovat
menu Vývojár - Režim návrhu - označte TextBox
ďalej buď
1.) - spustite Editor VBA (ľavý Alt+F11) - záložka Properties (ak ju nevidíte tak menu View - Properties Window)
alebo
2.) - pravý klik na TextBox - Vlastnosti
- a tam položky začínajúce na B..., prípadne Font atď.
Nezabudnite potom vypnúť Režim návrhucitovat
ďalej buď
1.) - spustite Editor VBA (ľavý Alt+F11) - záložka Properties (ak ju nevidíte tak menu View - Properties Window)
alebo
2.) - pravý klik na TextBox - Vlastnosti
- a tam položky začínajúce na B..., prípadne Font atď.
Nezabudnite potom vypnúť Režim návrhucitovat
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