Excel'de rastgele hafta içi veya hafta sonu tarihi nasıl oluşturulur?
Bu öğretici, Excel'de yalnızca rastgele hafta içi günler veya yalnızca rastgele hafta sonu tarihleri oluşturmaktan bahsediyor, daha fazla ayrıntı almak için aşağıdaki adımları izleyin.
Excel'de yalnızca rastgele hafta içi günler oluşturun
Kutools for Excel ile yalnızca rastgele hafta içi veya yalnızca rastgele hafta sonu oluşturun
Excel'de yalnızca rastgele hafta içi günler oluşturun
Excel'de, ihtiyaç duyduğunuz tarih aralığında yalnızca hafta içi günlerini rastgele seçmenize yardımcı olabilecek iki yöntem vardır.
Yöntem 1, formülle rastgele hafta içi gün üret
Bir hücre seçin ve bu formülü yazın = TARİH (2014, 1, 1) + BÜYÜK (EĞER (HAFTA GÜNÜ (TARİH (2014, 1, 1) + SATIR (1 $: 365 $) -1, 2) <6, SATIR (1 $: 365 $) -1, "" ), RANDBETWEEN (1, SUM (- (WEEKDAY (TARİH (2014, 1, 1) + SATIR (1 $: 365 $) -1, 2) <6))))Tuşuna basın ve ardından tuşuna basın. ÜstKrktr + Ctrl + Enter tuşlarını aynı anda, ardından doldurma tutamacını hafta içi oluşturmak istediğiniz bir aralığa sürükleyin. Ekran görüntüsüne bakın:
Bahşiş:
1. Benzersiz rastgele hafta içi günler oluşturmak istiyorsanız, bu formülü kullanabilirsiniz =DATE(2014, 1, 1)+(LARGE(IF(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6, ROW($1:$365)-1, ""), RANDBETWEEN(1, SUM(--(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6))))) ve basmayı unutma ÜstKrktr + Ctrl + Enter.
2. Yukarıdaki formüllerde, 2014,1,1 gerekli tarih aralığınızın başlangıç tarihidir, 365 tarih aralığınızdaki gün sayısıdır, bunları istediğiniz gibi değiştirebilirsiniz.
3. Benzersiz rastgele hafta içi günler üreten formülü A1'e koyamazsınız.
Yöntem 2, VBA ile bir yıl içinde rastgele hafta içi günler oluşturur
Hafta içi günlerini bir yıl içinde rastgele hale getirmek istiyorsanız ve VBA'ya aşina iseniz, aşağıdaki işlemleri yapabilirsiniz:
1. Basın Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül, ardından açılan pencerelere VBA kodunun altına yapıştırın.
VBA: Hafta içi günü bir yıl içinde rastgele hale getirin.
Dim RandomizedYet As Boolean
'Updateby20150108
Function RandomizeDates(pYear As Long)
Dim i As Long
Dim DaysInYear As Long
Dim xIndex As Long
Dim RndIndex As Long
Dim Temp As Date
Dim Weekdays() As Variant
If Not RandomizedYet Then
RandomizedYet = True
Randomize
End If
DaysInYear = DateSerial(pYear + 1, 1, 1) - DateSerial(pYear, 1, 1)
ReDim Weekdays(1 To DaysInYear)
For i = 1 To DaysInYear
If Weekday(DateSerial(pYear, 1, i), vbMonday) < 6 Then
xIndex = xIndex + 1
Weekdays(xIndex) = DateSerial(pYear, 1, i)
End If
Next
ReDim Preserve Weekdays(1 To xIndex)
For i = xIndex To 1 Step - 1
RndIndex = Int(i * Rnd + 1)
Temp = Weekdays(RndIndex)
Weekdays(RndIndex) = Weekdays(i)
Weekdays(i) = Temp
Next
RandomizeDates = Application.WorksheetFunction.Transpose(Weekdays)
End Function
3. Kodu kaydedin ve çalışma sayfanıza geri dönmek için pencereyi kapatın ve bu formülü yazın= RandomizeDates (2014) bir hücreye girin, ardından Keşfet tuşuna basın ve doldurma tutamacını ihtiyacınız olan bir aralığa sürükleyin. Ekran görüntüsüne bakın:
Kutools for Excel ile yalnızca rastgele hafta içi veya yalnızca rastgele hafta sonu oluşturun
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. Hafta içi veya hafta sonu tarihleri oluşturmak istediğiniz bir aralığı seçin ve ardından Kutools > Rastgele Veri Ekle. Ekran görüntüsüne bakın:
2. içinde Rastgele Veri Ekle iletişim, tıklayın Tarih sekmesi ve ardından takvim düğmesi istediğiniz bir başlangıç tarihi ve bitiş tarihi seçmek için, ardından kontrol edin Iş günü or Hafta sonu İhtiyacınız olan seçenek, benzersiz tarih oluşturmak istiyorsanız, kontrol edebilirsiniz Benzersiz seçeneği. Ekran görüntüsüne bakın:
3. tık Ok iletişim kutusunu uygulamak ve kapatmak için, seçimde benzersiz hafta sonu tarihleri oluşturulur.
Bahşiş: Yinelenen verileri eklemenize izin veriliyorsa, işaretini kaldırın. Benzersiz Değerler iletişim kutusunda
Rastgele veri Ekle işlevi ile tamsayı, zaman, dizgi ve özel listeyi de rastgele hale getirebilirsiniz. Daha fazla bilgi için buraya tıklayın.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!