Excel'de iki tarih arasındaki tüm tarihleri nasıl listelersiniz?

Bazı durumlarda, belirli bir başlangıç tarihi ve bitiş tarihi varsa, Excel'de bu iki verilen tarih arasındaki tüm tarihleri listelemeniz gerekebilir. Şimdi bu eğitim, Excel'de iki tarih arasındaki tüm tarihleri listeleme yöntemlerinden bahsediyor.

Formüllerle iki tarih arasındaki tüm tarihleri listeleme

Kutools for Excel ile iki tarih arasındaki tüm tarihleri listeleme

VBA ile iki tarih arasındaki tüm tarihleri listeleme

Formüllerle iki tarih arasındaki tüm tarihleri listeleme

Burada size Excel'de iki verilen tarih arasında tüm tarihleri hızlıca listeleyebilecek formülleri tanıtacağım.

1. Başlangıç ve bitiş tarihlerini iki hücreye yazın, burada ben onları A1 ve A2 hücrelerine yazıyorum. Ekran görüntüsüne bakın:

2. Ardından C1 hücresine gidin ve şu formülü yazın =A1+1 içine yazdıktan sonra Enter tuşuna basın. Ekran görüntüsüne bakın:

3. Daha sonra C2 hücresinde şu formülü yazın =EĞER($A$1+SATIR(A1)>=$A$2-1;"";C1+1) içine yazdıktan sonra, otomatik doldurma tutamacını aşağı doğru sürükleyin ve boş bir hücre görününceye kadar devam edin. Ekran görüntülerine bakın:

Ardından iki verilen tarih arasındaki tüm tarihlerin sütunda listelendiğini görebilirsiniz.

Not:

Yukarıdaki formüllerde, A1 başlangıç tarihi, A2 bitiş tarihi ve C1 tarih aralığındaki ilk tarihtir.

Kutools for Excel ile iki tarih arasındaki tüm tarihleri listeleme

Aslında, Kutools for Excel'i kurduysanız – kullanışlı bir eklenti aracı – bu sorunu çözmek için Rastgele Veri Ekle özelliğini de kullanabilirsiniz.

Ücretsiz olarak Kutools for Excel'i kurduktan sonra lütfen aşağıdaki adımları izleyin:

1. İki tarih arasında tarihleri listelemek istediğiniz bir sütunu seçin ve Kutools > Ekle > Rastgele Veri Ekle'ye tıklayın. Ekran görüntüsüne bakın:

2. Ardından Rastgele Veri Ekle diyalog kutusunda Tarih sekmesine tıklayın, ardından başlangıç ve bitiş tarihlerini From ve To listesinden seçin, ardından Çalışma günü, Hafta sonu ve Benzersiz değerler oluştur onay kutularını işaretlemeyi unutmayın. Ekran görüntüsüne bakın:

3. Diyalog kutusunu kapatmak için Tamam'a tıklayın ve başka bir Kutools for Excel diyalog kutusu açılır, sadece Evet'e tıklayın. Ardından başlangıç tarihi ve bitiş tarihi arasındaki tarihlerin listelendiğini görebilirsiniz. Ekran görüntülerine bakın:

4. Şimdi tarih listesini ihtiyacınız olan bir sırayla sıralamanız gerekiyor. Veri > En Eski Tarihten En Yeni Tarihe Sırala'ya tıklayın. Ardından tarihlerin en eski tarihten en yeni tarihe sıralandığını görebilirsiniz. Ekran görüntülerine bakın:

Rastgele Veri Ekle aracıyla rastgele tam sayı, rastgele metin ve rastgele saat gibi daha fazla rastgele veri ekleyebilirsiniz. Rastgele Veri Ekle hakkında daha fazla bilgi almak için buraya tıklayın.

VBA ile iki tarih arasındaki tüm tarihleri listeleme

Makro kodlarına ilgi duyuyorsanız, Excel'de iki verilen tarih arasındaki tüm tarihleri listelemek için aşağıdaki VBA'yı kullanabilirsiniz.

1. Başlangıç tarihini ve bitiş tarihini iki hücreye yazın, burada ben A1 ve B1 hücrelerine yazıyorum. Ekran görüntüsüne bakın:

2. Microsoft Visual Basic for Applications penceresini açmak için Alt +F11 tuşlarına basın.

3. Ardından Ekle > Modül'e tıklayın ve aşağıdaki VBA kodunu çıkan Modül penceresine kopyalayıp yapıştırın.

VBA: İki tarih arasındaki tüm tarihleri listeleme.

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. VBA'yı çalıştırmak için Çalıştır veya F5'e tıklayın ve başlangıç tarihini seçmek için bir diyalog kutusu açılacak, ardından Tamam'a tıklayın, ardından ikinci açılan diyalogda bitiş tarihini seçin. Ekran görüntüsüne bakın:

5. Tamam'a tıklayın, ardından tarihleri çıkarmak için bir hücre seçin ve ardından Tamam'a tıklayın. Şimdi iki tarih arasındaki tüm tarihlerin listelendiğini görebilirsiniz. Ekran görüntülerine bakın:

Not: Bu VBA tarafından oluşturulan liste başlangıç tarihini ve bitiş tarihini içerir.

İki tarih arasındaki tüm tarihleri listeleme

İlgili Makaleler:

• Çalışma sayfası adlarının dinamik listesini oluşturma