Zdravím,
co to udělat přes ověření dat viz. příloha
co to udělat přes ověření dat viz. příloha
Příloha: 
29846_sesit2.zip (6kB, staženo 21x)
citovat29846_sesit2.zip (6kB, staženo 21x)
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: Posloupnost
MS Excel
Téma: Posloupnost 
Zaslal/a mikikapik 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
Dvojklik v naformátovanej bunke
Příloha: 29847_pocitadlozlomkove.zip (51kB, staženo 20x)
citovat29847_pocitadlozlomkove.zip (51kB, staženo 20x)
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
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: 29851_billa-jazlovice-ricany-u-prahy.zip (96kB, staženo 20x)
citovat29851_billa-jazlovice-ricany-u-prahy.zip (96kB, staženo 20x)Nefungovalo to, lebo si súbor neuložil ako podporujúci makrá, t.j. nie xlsx ale xlsm 
Musel som zrušiť zlúčené bunky kde je zlomok, tak si to nejak graficky vylepši.
Musel som zrušiť zlúčené bunky kde je zlomok, tak si to nejak graficky vylepši.
Příloha: 29852_pocitadlo.zip (100kB, staženo 21x)
citovat29852_pocitadlo.zip (100kB, staženo 21x)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
Jak to ještě bude vypadat, když tam bude palet jen 6?
Bude to to samé formátování??
Díkycitovat
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
a v makre prepíšeš všade 1/12 na 1/6citovat
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ě??
Kliknu do buňky, a zobrazí se mě akorát podíl.
Co dělám špatně??
Příloha: 29856_alimpex-food-horni-pocernice.zip (95kB, staženo 29x)
citovat29856_alimpex-food-horni-pocernice.zip (95kB, staženo 29x)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 Subcitovat
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 Subcitovat
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
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
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