MS Excel

Zdravím,

snažím se vyřešit následující problém: Chci pomocí tlačítka měnit hodnotu buňky vždy o jeden krok dopředu či zpět. Teď mám řešení, které sice pracuje, ale ne přesně tak, jak bych si představoval, jelikož pracuje v číselné řadě 1,2,3... nicméně bych potřeboval, aby kroky nabývaly hodnot 0001,0002,0003...Zatím mám kód:

Private Sub CommandButton1_Click()
a = Range("Q3").Value
b = a + 1
Range("Q3").Value = b
End Sub
Private Sub CommandButton2_Click()
a = Range("Q3").Value
b = a - 1
Range("Q3").Value = b
End Sub

Mohl by mě někdo z vás alespoň navést na možná řešení problému? Díky

Zaslat odpověď >

eLCHa(9.12.2015 8:17)#028580

Nepoužívejte tlačítko, ale Spin (Číselník). A nepotřebujete kód - vše nastavíte ve vlastnostech.

Příloha: zip

28580_ciselnik.zip (8kB, staženo 34x)

citovat

Vovka(9.12.2015 8:43)#028581

Přechod na ovládací prvek Číselník je krok správným směrem. Přesto váš kód je přímo použitelný beze změn. Pro zobrazení "0001" v buňce Q3 stačí nastavit formátování Q3 na "0000".citovat

Pavel852(9.12.2015 10:25)#028584

Díky, takhle rychlé odpovědi jsem ani nečekal, nicméně když nastavím formátování na "0000" tak se sice hodnota na pozadí buňky mění, nicméně je stále zobrazeno 0000. Tedy pokud nastavuji formátování správně v kontextové nabídce Formátování dále Vlastní a "0000". Stejné i pro spin, kde nelze nastavit hodnotu na 0001, nuly automaticky odebere, ale jinak pěkná funkce.citovat

Vovka(9.12.2015 10:40)#028585

Zkuste si znovu ověřit, jestli v požadované buňce je požadovaný formát. Ať dělám, co dělám, mně to funguje!citovat

lubo(9.12.2015 14:45)#028586

Možné řešení problému najdete v nápovědě k uživatelským formátům. Vřele doporučuji prostudovat.

Předpokládám, že jste do formátu opsal vše, včetně uvozovek.citovat

Téma: Změna hodnoty buňky pomocí tlačítka

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje