Note: The other languages of the website are Google-translated. Back to English

Jak vypsat všechna data mezi dvěma daty v aplikaci Excel?

V některých případech, pokud máte konkrétní počáteční a konečné datum, možná budete muset uvést všechna data mezi těmito dvěma danými daty v aplikaci Excel. Nyní tento tutoriál hovoří o metodách pro výpis všech dat mezi dvěma daty v aplikaci Excel.

Seznam všech dat mezi dvěma daty podle vzorců

Seznam všech dat mezi dvěma daty podle VBA

Seznam všech dat mezi dvěma daty podle Kutools pro Excel dobrý nápad3


Zde představuji vzorce, které pro vás mohou rychle vypsat všechna data mezi dvěma danými daty v aplikaci Excel.

1. Zadejte počáteční a koncové datum do dvou buněk, zde je zadávám do buněk A1 a A2. Viz snímek obrazovky:
doc-list-all-dates-Between-two-dates-1

2. Poté přejděte do buňky C1 a zadejte tento vzorec = A1 + 1 do něj a poté klikněte vstoupit klíč. Viz snímek obrazovky:
doc-list-all-dates-Between-two-dates-2

3. Do buňky C2 zadejte tento vzorec =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) do ní, potom táhněte úchyt automatického vyplňování dolů do buněk, dokud se neobjeví prázdná buňka. Zobrazit snímky obrazovky:

doc-list-all-dates-Between-two-dates-3       doc-list-all-dates-Between-two-dates-4

Pak můžete vidět, že ve sloupci jsou uvedena všechna data mezi dvěma danými daty.
doc-list-all-dates-Between-two-dates-5

Poznámka:

Ve výše uvedených vzorcích je A1 počáteční datum, A2 je koncové datum a C1 je první datum v období.


Pokud vás zajímá kód makra, můžete pomocí níže uvedeného VBA vypsat všechna data mezi dvěma danými daty v aplikaci Excel.

1. Zadejte počáteční a koncové datum do dvou buněk, zde zadávám buňky A1 a B1. Viz snímek obrazovky:
doc-list-all-dates-Between-two-dates-6

2. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

3. Pak klikněte na tlačítko Vložit > Modul a zkopírujte a vložte pod kód VBA do praskání Modul okno.

VBA: Seznam všech dat mezi dvěma daty.

Sub WriteDates()
	'Updateby20150305
	Dim rng As Range
	Dim StartRng As Range
	Dim EndRng As Range
	Dim OutRng As Range
	Dim StartValue As Variant
	Dim EndValue As Variant
	xTitleId     = "KutoolsforExcel"
	Set StartRng = Application.Selection
	Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type: = 8)
	Set EndRng   = Application.InputBox("End Range (single cell):", xTitleId, Type: = 8)
	Set OutRng   = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
	Set OutRng   = OutRng.Range("A1")
	StartValue   = StartRng.Range("A1").Value
	EndValue     = EndRng.Range("A1").Value
	If EndValue - StartValue <= 0 Then
		Exit Sub
		End If
		ColIndex = 0
		For i = StartValue To EndValue
			OutRng.Offset(ColIndex, 0) = i
			ColIndex = ColIndex + 1
		Next
	End Sub

4. cvaknutí Běh or F5 spusťte VBA a objeví se dialogové okno, kde můžete vybrat počáteční datum a poté kliknout OK, pak ve druhém vyskakovacím dialogovém okně vyberte datum ukončení. Viz snímek obrazovky:

doc-list-all-dates-Between-two-dates-7          doc-list-all-dates-Between-two-dates-8

5. cvaknutí OK, poté vyberte buňku, z níž budou data, a poté klikněte OK. Nyní můžete zobrazit všechna data mezi dvěma daty. Zobrazit snímky obrazovky:

doc-list-all-dates-Between-two-dates-9         doc-list-all-dates-Between-two-dates-10

Poznámka: Seznam vygenerovaný tímto VBA obsahuje počáteční a konečné datum.


Vlastně, pokud jste nainstalovali Kutools pro Excel - šikovný nástroj pro přidání, můžete také použít Vložte náhodná data k vyřešení tohoto problému.

Kutools pro Excel, s více než 300 užitečné funkce aplikace Excel, zvýší vaši efektivitu práce a ušetří váš pracovní čas.

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte sloupec, ve kterém chcete vypsat data mezi dvěma daty, a klikněte na Kutools > Vložit > Vložte náhodná data. Viz snímek obrazovky:
doc vložte náhodná data 1

2. Pak v Vložte náhodná data dialog, klepněte na tlačítko Datum Na kartě vyberte počáteční a konečné datum z od a To seznam, pak nezapomeňte zkontrolovat Pracovní den, Víkend a Unikátní hodnoty zaškrtávací políčka. Viz snímek obrazovky:
doc-list-all-dates-Between-two-dates-12

3. cvaknutí Ok zavřete dialogové okno a další Kutools pro Excel objeví se dialogové okno, stačí kliknout Ano. Pak můžete vidět, že jsou uvedena data mezi počátečním a konečným datem. Zobrazit snímky obrazovky:

doc-list-all-dates-Between-two-dates-13           doc-list-all-dates-Between-two-dates-14

4. Nyní musíte seznam dat seřadit v pořadí, které potřebujete. Klepněte na Data > Řazení od nejstarších po nejnovější. Pak uvidíte, že data jsou řazena od nejstaršího po nejnovější datum. Zobrazit snímky obrazovky:

doc-list-all-dates-Between-two-dates-15          doc-list-all-dates-Between-two-dates-16

S Vložte náhodná data nástroj, můžete také vložit náhodné celé číslo, náhodný řetězec a náhodný čas atd. Kliknutím sem získáte další informace o vložení náhodných dat.


Relativní články:



Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (9)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Můžeme v makru použít textové pole místo in box
Tento komentář byl moderátorem webu minimalizován
Dobrý den, děkujeme za sdílení skvělého kódu. Rád bych se ale zeptal na jednu otázku. Používám tento kód VBA, který jste sdíleli. 1) Mohu uvést všechny ostatní buňky ve stejném řádku s daty? 2) Můžeme definovat buňku počátečního data a buňky koncového data a buňku, do které budou zapsány nové informace? Ptám se na tyto otázky, protože mám 30 řádků. Každý řádek obsahuje data pro různé osoby. Buňka G je počáteční datum a buňka H je koncové datum. Jiné buňky obsahují nějaké informace. Chtěl bych, aby to bylo uvedeno v nové buňce jako všechna data mezi těmito buňkami. Například (jen ukázka, takže pouze buňky G a H napsané pod-I jsou tam, kde se objeví seznam): Řádek 2 Osoba A 28. 05. 2017 05. 06. 2017 28. 05. 2017 Řádek 3 Osoba A 28. 05. /2017 05. 06. 2017 29. 05. 2017 Řada 4 Osoba A 28. 05. 2017 05. 06. 2017 30. 05. 2017 Řada 5 Osoba A 28. 05. 2017 05. 06. 2017 31 Řada 05 Osoba A 2017. 6. 28 05. 2017. 05 06. 2017. 01 Řada 06 Osoba A 2017. 7. 28 05. 2017. 05 06. 2017. 02 Řada 06 Osoba A 2017. 8. 28 /05 2017. 05. 06 Řada 2017 Osoba A 03. 06. 2017 9. 28. 05 2017. 05. 06 Řada 2017 Osoba A 04. 06. 2017 10. 28. 05 2017. 05. 06 2017. 05. 06 Řada B /2017/11 23/05/2017 31/05/2017 Řada 23 Osoba B 05 2017 12 Řada 23 Osoba B 05 2017 /31 Řada 05 Osoba B 2017 24 05 a tak dále...
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem kód VBA to fungovalo .. Díky za sdílení. Podobně je možné jej protáhnout podél sloupců/vodorovně?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, pokud chcete vypsat data v řadě vodorovně, stačí použít kód vba pro výpis dat a zkopírovat výsledky a vložit transponování.
Tento komentář byl moderátorem webu minimalizován
Firat – vyřešili jste svůj problém? Mám přesně stejný problém a nemohu získat výsledek v řádku namísto ve sloupci.
Tento komentář byl moderátorem webu minimalizován
Proč nezkusit transponovat výsledek sloupce do řádku?
Tento komentář byl moderátorem webu minimalizován
Pokud tento řádek převrátíte, můžete to zprovoznit:


OutRng.Offset(ColIndex, 0) = i až OutRng.Offset(0, ColIndex) = i
Tento komentář byl moderátorem webu minimalizován
Jak zacyklit tento kód vba (například 1000 řádků)?
Tento komentář byl moderátorem webu minimalizován
Omlouvám se, že odpovídám tak pozdě, ale nerozumím vaší otázce, VBA pouze pro výpis dat mezi časovým obdobím, proč je potřeba zacyklit kód?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL