< návrat zpět

MS Excel


Téma: Posloupnost rss

Zaslal/a 4.2.2016 9:54

Dobrý den,

Prosím o pomoc s následujícím - v tabulce ve sloupci B je zadáno číslo palety z daného počtu - 1/12.
Potřebuji, abych po vytištění mohl toto číslo změnit jedním kliknutím na 2/12. Pak na 3/12, pak na 4/12, pak na 5/12 ...atd. až po 12/12.
Ušetřilo by mě to čas neustálým vstupováním do buňky a neustálým přepisováním.

Děkuji
Michal

Zaslat odpověď >

Strana:  1 2   další »
#029846
avatar
Zdravím,

co to udělat přes ověření dat viz. příloha
Příloha: zip29846_sesit2.zip (6kB, staženo 21x)
citovat
#029847
Hav-Ran
Dvojklik v naformátovanej bunke
Příloha: zip29847_pocitadlozlomkove.zip (51kB, staženo 20x)
citovat
#029849
avatar
Díky kluci,

parádně funguje 5citovat
#029851
avatar
Dobrý den,

dnes jste mi odpověděl na dotaz posloupného počítání zlomku. Poslal jste mi tabulku, ve které se při dvojkliku na buňku změní posloupnost o jeden bod nahoru.
Bohužel se mi nedaří tuto změnu aplikovat do mého sešitu.
Byl by jste tak laskavý, a pomohl mě s tímto problémem?

Děkuji
Michal
Příloha: zip29851_billa-jazlovice-ricany-u-prahy.zip (96kB, staženo 20x)
citovat
#029852
Hav-Ran
Nefungovalo to, lebo si súbor neuložil ako podporujúci makrá, t.j. nie xlsx ale xlsm 1
Musel som zrušiť zlúčené bunky kde je zlomok, tak si to nejak graficky vylepši.
Příloha: zip29852_pocitadlo.zip (100kB, staženo 21x)
citovat
#029854
avatar
Ok, díky. To si pořeším.
Jak to ještě bude vypadat, když tam bude palet jen 6?
Bude to to samé formátování??

Díkycitovat
#029855
Hav-Ran
Ak bude paliet 6, tak cez Format Bunky Vlastní zmeníš ###?/12 na ###?/6
a v makre prepíšeš všade 1/12 na 1/6citovat
#029856
avatar
Tak jsem udělal vše, jak píšeš, a fůůůrt nic...
Kliknu do buňky, a zobrazí se mě akorát podíl.

Co dělám špatně??
Příloha: zip29856_alimpex-food-horni-pocernice.zip (95kB, staženo 29x)
citovat
#029858
Hav-Ran
Nedávaš procedúru do List1 vo VBA. Vlastne tam to makro nemáš.
Stlač súčasne Alt-F11, uvidíš editor VBA. V ňom vľavo nájdi List1 a dvakrát klikni. Vlož tam procedúru:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Range("Pocitadlo")
.Value = .Value + 1 / 6
On Error Resume Next
If .Value > 1 Then .Value = 1 / 6

End With
Range("D20").Select
End Sub
citovat
#029869
elninoslov
Váš kód ale neumožňuje prípadnú ďalšiu prácu s číslom palety. Navyše funguje pri dvojkliku hocikde, čo spôsobuje problém pri potrebe prepísať nejaké iné dáta na liste. Skôr by som to upravil na niečo takéto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = Range("Pocitadlo").Address Then
With Range("Pocitadlo")
If .Value = 6 Then .Value = 1 Else .Value = .Value + 1
Application.Goto Range("Pocitadlo").Offset(1)
End With
End If
End Sub

A formát bunky
###?"/6"
Prepínanie zo 6 na 12 by som riešil netlačiteľným zaškrtávacím políčkom.citovat

Strana:  1 2   další »

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

Čas od do

lubo • 19.4. 16:30

Makro smyčka

MilanKop • 19.4. 10:46

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32