< návrat zpět

MS Excel


Téma: Přičtení hodnoty k aktuální buňce rss

Zaslal/a 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

Zaslat odpověď >

#031351
avatar
Makrom vo VBA.citovat
#031355
elninoslov
Tak ?
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: zip31355_prirastok-k-cislam.zip (15kB, staženo 30x)
citovat
#031357
avatar
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
#031364
avatar
Zdravím,
může někdo pomoci? Díkycitovat
#031372
avatar
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
#031378
avatar
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 Sub
citovat
#031382
avatar
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
Příloha: zip31382_test.zip (20kB, staženo 28x)
citovat
#031383
elninoslov
Obdobne to mám pre Vás už urobené. Tak skúste.
Příloha: zip31383_prirastok-k-cislam.zip (25kB, staženo 32x)
citovat
#031407
avatar
To vypadá taky dobře. Jen otázka kde změním tu zelenou barvu, popř. přidám border a bordercolor? Díkycitovat
#031411
elninoslov
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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

Tlac s farebneho

ivana1 • 19.6. 22:16

GRAF teploty

Scraper • 18.6. 15:34

Vyhledat dnešní datum když je číslo jako text

veny • 17.6. 13:56

Vyhledat dnešní datum když je číslo jako text

Ontik • 17.6. 12:07

Zaokrouhlování

lubo • 17.6. 12:03

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52