Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • Excel
  • วิธีสร้างวันธรรมดาหรือวันหยุดสุดสัปดาห์แบบสุ่มใน Excel

วิธีสร้างวันธรรมดาหรือวันหยุดสุดสัปดาห์แบบสุ่มใน Excel

บทช่วยสอนนี้พูดถึงการสร้างเฉพาะวันธรรมดาแบบสุ่มหรือเฉพาะวันหยุดสุดสัปดาห์แบบสุ่มใน Excel ทำตามขั้นตอนด้านล่างเพื่อรับรายละเอียดเพิ่มเติม

สร้างเฉพาะวันธรรมดาแบบสุ่มใน Excel

สร้างเฉพาะวันธรรมดาแบบสุ่มหรือเฉพาะวันหยุดสุดสัปดาห์แบบสุ่มด้วย Kutools for Excel ความคิดที่ดี 3


ลูกศรสีฟ้าฟองขวา สร้างเฉพาะวันธรรมดาแบบสุ่มใน Excel

ใน Excel มีสองวิธีที่ช่วยให้คุณสุ่มเฉพาะวันธรรมดาในช่วงวันที่ได้ตามที่คุณต้องการ

วิธีที่ 1 สร้างวันธรรมดาแบบสุ่มด้วยสูตร

เลือกเซลล์และพิมพ์สูตรนี้ = DATE (2014, 1, 1) + LARGE (IF (WEEKDAY (DATE (2014, 1, 1) + ROW ($ 1: $ 365) -1, 2) <6, ROW ($ 1: $ 365) -1, "" ), RANDBETWEEN (1, SUM (- (WEEKDAY (DATE (2014, 1, 1) + ROW ($ 1: $ 365) -1, 2) <6))))จากนั้นกด Shift + Ctrl + Enter พร้อมกันจากนั้นลากที่จับเติมไปยังช่วงที่คุณต้องการสร้างวันธรรมดา ดูภาพหน้าจอ:
doc-randomoze- วันธรรมดา - สุดสัปดาห์ -1

เคล็ดลับ:

1. หากคุณต้องการสร้างวันธรรมดาแบบสุ่มที่ไม่ซ้ำกันคุณสามารถใช้สูตรนี้ =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))))) และอย่าลืมกด Shift + Ctrl + Enter.

2. ในสูตรข้างต้น 2014,1,1 คือวันที่เริ่มต้นของช่วงวันที่ที่คุณต้องการ 365 คือจำนวนวันในช่วงวันที่ของคุณคุณสามารถเปลี่ยนแปลงได้ตามต้องการ

3. คุณไม่สามารถใส่สูตรที่สร้างวันธรรมดาแบบสุ่มเฉพาะใน A1 ได้

วิธีที่ 2 สร้างวันธรรมดาแบบสุ่มภายในหนึ่งปีด้วย VBA

หากคุณต้องการสุ่มวันธรรมดาภายในหนึ่งปีและคุ้นเคยกับ VBA คุณสามารถทำได้ดังนี้:

1 กด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงในหน้าต่างที่โผล่ขึ้นมา

VBA: สุ่มวันธรรมดาภายในหนึ่งปี

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. บันทึกรหัสและปิดหน้าต่างเพื่อย้อนกลับแผ่นงานของคุณและพิมพ์สูตรนี้= RandomizeDates (2014) ลงในเซลล์จากนั้นกด เข้าสู่ คีย์และลากจุดจับเติมไปยังช่วงที่คุณต้องการ ดูภาพหน้าจอ:
doc-randomoze- วันธรรมดา - สุดสัปดาห์ -2


ลูกศรสีฟ้าฟองขวา สร้างเฉพาะวันธรรมดาแบบสุ่มหรือเฉพาะวันหยุดสุดสัปดาห์แบบสุ่มด้วย Kutools for Excel

Kutools สำหรับ Excel, ที่มีมากกว่า
300
ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1. เลือกช่วงที่คุณต้องการสร้างวันธรรมดาหรือวันหยุดสุดสัปดาห์จากนั้นคลิก Kutools > แทรกข้อมูลสุ่ม. ดูภาพหน้าจอ:
doc-randomoze- วันธรรมดา - สุดสัปดาห์ -4

2 ใน แทรกข้อมูลสุ่ม โต้ตอบคลิก วันที่ และจากนั้น ปุ่มปฏิทิน เพื่อเลือกวันที่เริ่มต้นและวันที่สิ้นสุดที่คุณต้องการจากนั้นเลือก วันทำงาน or สุดสัปดาห์ ตัวเลือกที่คุณต้องการหากคุณต้องการสร้างวันที่ที่ไม่ซ้ำกันคุณสามารถตรวจสอบได้ เป็นเอกลักษณ์ ตัวเลือก ดูภาพหน้าจอ:
doc-randomoze- วันธรรมดา - สุดสัปดาห์ -4

3 คลิก Ok เพื่อใช้และปิดกล่องโต้ตอบจากนั้นในการเลือกจะมีการสร้างวันหยุดสุดสัปดาห์ที่ไม่ซ้ำกัน
doc-randomoze- วันธรรมดา - สุดสัปดาห์ -5

เคล็ดลับ: หากคุณได้รับอนุญาตให้แทรกข้อมูลที่ซ้ำกันให้ยกเลิกการเลือก ค่าเฉพาะ ในกล่องโต้ตอบ

ด้วยฟังก์ชันแทรกข้อมูลแบบสุ่มคุณยังสามารถสุ่มจำนวนเต็มเวลาสตริงและรายการแบบกำหนดเองได้ คลิกที่นี่สำหรับข้อมูลเพิ่มเติม



เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • กว่า
    300
    คุณสมบัติอันทรงพลัง
    . รองรับ Office/Excel
    2007-2019 และ 365
    . รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติครบถ้วน
    30
    วันทดลองใช้ฟรี รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL