MS Excel

Zdravím potřeboval bych od vás poradit.

Mám sloupec kde zadávám datum z pracovního výkazu.
Jde mi o to, jestli lze urychlit zadáváním tím způsobem, že napíšu datum ve tvaru 1.8.2018 a teď třeba 5x odentruji a automaticky se vyplní stejné datum v odentrovaných buňkách. Dále pokračuji tak, že napišu 2.8.2018 tentokrát 3x odentruji a automaticky se dopíše datum 2.8.2018.

Děkuji za případné rady :)

Zaslat odpověď >

eLCHa(7.8.2018 10:44)#041064

Označte si všechny buňky, které chcete vyplnit stejnou hodnotou.

Napište 1.8 - pouze první tečku (pak se vyplní datum včetně aktuálního roku)

Stiskněte CTRL + ENTER - vyplní se do všech vybraných buněkcitovat

Draincz(7.8.2018 11:46)#041066

Děkuji za odpověď ale tento způsob je pomalejší než klasickým zadáváním :(citovat

xlnc(7.8.2018 12:04)#041067

Výběr buněk, zápis 1.8 a Ctrl+Enter (tj. hromadný zápis do všech vybraných buněk naráz). Není nic rychlejšího, než píše kolega.citovat

marjankaj(7.8.2018 13:52)#041070

Draincz napsal/a:

Děkuji za odpověď ale tento způsob je pomalejší než klasickým zadáváním :(

Hmm... A prečo to teda nezadávaš klasicky?

Možno ti robí problém označovať bunky? SHIFT+klik myškou alebo CTRL+ klik myškou ťa nenaučili? Najvyšší čas ísť na nejaké školenie excelu.citovat

Draincz(8.8.2018 7:37)#041081

Diky za info ... a označování buňek mi fakt problém nedělá :D. označím dám CTRL + ENTER a musím šipkami dojet dolů na prázdný řádek takže to je pomalejší než klasické zadávaní. je potřeba zmáčknout mnohem víc kláves.

Nevadí ale děkuji za rady :)citovat

Draincz(8.8.2018 7:40)#041082

Jen mě zajímá jestli není nějaký vzoreček nebo macro které by vynechaná odentrovaná místa automaticky dopsal od prvního zadaného datumu.citovat

eLCHa(8.8.2018 8:37)#041084

Aha. Takže se ptáte na něco jiného.

Dobře tedy
Vyplňte si pouze první hodnoty (tedy s vynecháním těch opakujících se).

Potom vyberte celý sloupec (ne milion řádků ale oblast, kterou chcete vyplnit)

Stiskněte CTRL+G, Pak tkačítko 'Jinak...' a označte 'Prázdné' a dejte OK. Označí se vám pouze nevyplněné buňky.

Stiskněte '=' a posuňte o jedno nahoru, odešlěte pomocí CTRL+ENTER

Znovu vyberte všechny hodnoty a převeďte na hodnoty.citovat

elninoslov(8.8.2018 9:22)#041085

Alebo skúste takúto prkotinku s makrom pomocou Application.OnKey. Urobil som to tak, aby sa to aktivovalo len pri A3:Axxx, aby sa to deaktivovalo pri presune na iné stĺpce, iný list, iný dokument, a pri zatrovení dokumentu. Funguje to na obidva Enter. No skúste :)

Modul:
Public bZapnute As Boolean, bBoloPredtymZapnute As Boolean

Sub OnEnterSub()
Application.EnableEvents = False
With ActiveCell
If IsEmpty(.Value) Then .Value = .Offset(-1, 0)
.Offset(1, 0).Select
End With
Application.EnableEvents = True
End Sub

Sub ZapnutOnEnter()
Application.OnKey "~", "OnEnterSub"
Application.OnKey "{ENTER}", "OnEnterSub"
End Sub

Sub VypnutOnEnter()
bZapnute = False
Application.OnKey "~"
Application.OnKey "{ENTER}"
End Sub

List:
Private Sub Worksheet_Activate()
bZapnute = bBoloPredtymZapnute
If bZapnute Then ZapnutOnEnter
End Sub

Private Sub Worksheet_Deactivate()
bBoloPredtymZapnute = bZapnute
VypnutOnEnter
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 2 Then
If Not bZapnute Then bZapnute = True: ZapnutOnEnter
Else
If bZapnute Then VypnutOnEnter
End If
End Sub

Zošit:
Private Sub Workbook_Activate()
bZapnute = bBoloPredtymZapnute
If bZapnute Then ZapnutOnEnter
End Sub

Private Sub Workbook_Deactivate()
bBoloPredtymZapnute = bZapnute
VypnutOnEnter
End Sub

Příloha: zip

41085_kopirovanie-predoslej-bunky-pri-stlaceni-enter.zip (18kB, staženo 40x)

citovat

Draincz(8.8.2018 9:50)#041087

Pane vy jste bůh! Děkuji mockrát za macro!
Šlape jak hodinky, neskutečně jste mi urychlil práci!

Děkuji všem zúčastněným za pomoc!

VYŘEŠENO PROSÍM O LOCK. :)

citovat

Draincz(8.8.2018 10:26)#041088

Lze nastavit nějaké okno nebo zaškrtávací políčko aby bylo vidět, že je zapnutý režim ENTER, že by tam byla fajfka při zapnutém režimu a při vypnutém prázdný čtvereček.

A nebo lze nastavit aby jméno toho tlačítka při zapnutí změnil název na ENTER ZAPNUT/VYPNUT ale to bych mluvil o jednom tlačítku který by měl dvojí funkci jak vypínač.

Je to už jen kosmetický detail. A pouze v případě pokud by se vám chtělo pomoct nechci už vás okrádat o čas. :)

Díkycitovat

Téma: Automatické doplňování datumu. NE POSLOUPNOUST

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje