Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • Excel
  • จะแสดงปฏิทินเมื่อคลิกเซลล์ใดเซลล์หนึ่งใน Excel ได้อย่างไร?

จะแสดงปฏิทินเมื่อคลิกเซลล์ใดเซลล์หนึ่งใน Excel ได้อย่างไร?

สมมติว่ามีช่วงคอลัมน์ในแผ่นงานที่คุณต้องป้อนและเปลี่ยนวันที่ภายในบ่อยๆ แต่เบื่อที่จะป้อนหรือเปลี่ยนวันที่ด้วยตนเองต่อครั้ง วิธีป้อนวันที่อย่างรวดเร็วโดยไม่ต้องพิมพ์ลงในช่วงคอลัมน์ด้วยตนเอง บทความนี้พูดถึงการเปิดปฏิทินเมื่อคลิกที่เซลล์ในช่วงหนึ่งจากนั้นแทรกวันที่ลงในเซลล์ที่เลือกโดยอัตโนมัติหลังจากเลือกวันที่ในปฏิทิน


เปิดปฏิทินเมื่อคลิกเซลล์ที่ต้องการด้วยรหัส VBA

โปรดแก้ไขปัญหานี้ตามขั้นตอนต่อไปนี้

หมายเหตุ: วิธีนี้ใช้ได้กับ Microsoft Excel 32 บิตเท่านั้น

ขั้นตอนที่ 1: สร้าง UserForm ด้วยปฏิทิน

โปรดสร้าง UserForm ซึ่งมีปฏิทินที่คุณจะปรากฏขึ้นโดยคลิกที่เซลล์

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > แบบฟอร์มผู้ใช้.

3. จากนั้นก แบบฟอร์มผู้ใช้ และ กล่องเครื่องมือ หน้าต่างจะปรากฏขึ้นใน กล่องเครื่องมือคลิกปุ่มควบคุมใดปุ่มหนึ่งแล้วคลิกขวาจากนั้นเลือก การควบคุมเพิ่มเติม จากเมนูคลิกขวา ดูภาพหน้าจอ:

4 ใน การควบคุมเพิ่มเติม กล่องโต้ตอบเลื่อนลงเพื่อตรวจสอบไฟล์ การควบคุม Microsoft MonthView ตัวเลือกใน การควบคุมที่มีอยู่ จากนั้นคลิกที่ไฟล์ OK ปุ่ม

5. จากนั้นคุณจะเห็นไฟล์ มุมมองรายเดือน เพิ่มปุ่มในไฟล์ กล่องเครื่องมือ หน้าต่าง. โปรดคลิกปุ่ม MonthView นี้จากนั้นคลิกที่หน้าต่าง UserForm1 เพื่อสร้างปฏิทินใน Userform

หมายเหตุ: คุณสามารถปรับขนาดของหน้าต่าง UserForm ให้เหมาะกับปฏิทินที่แทรกได้โดยลากเส้นขอบของ UserForm

6. ดับเบิลคลิกที่ปฏิทินที่แทรกใน UserForm1 และในไฟล์ รหัส โปรดแทนที่รหัสเดิมด้วยสคริปต์ VBA ต่อไปนี้

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

หมายเหตุ: รหัสนี้สามารถช่วยในการแทรกวันที่ลงในเซลล์ที่เลือกหลังจากเลือกวันที่จากปฏิทิน

ขั้นตอนที่ 2: เปิดใช้งานปฏิทินเมื่อคลิกที่เซลล์

ตอนนี้คุณต้องระบุเซลล์ที่จะแสดงปฏิทินเมื่อคลิก กรุณาดำเนินการดังนี้

7. ดับเบิลคลิกชื่อแผ่นงานที่มีเซลล์ที่คุณจะคลิกเพื่อแสดงปฏิทินทางด้านซ้าย โครงการ บานหน้าต่างจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส ดูภาพหน้าจอ:

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

หมายเหตุ: ในรหัส A2: A10 คือเซลล์ที่คุณจะคลิกเพื่อแสดงปฏิทิน โปรดเปลี่ยนช่วงเซลล์ตามที่คุณต้องการ

8 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

จากนี้ไปเมื่อคลิกที่เซลล์ใด ๆ ภายในช่วงที่ระบุในแผ่นงานปัจจุบันปฏิทินจะปรากฏขึ้นตามภาพด้านล่างที่แสดง และวันที่จะถูกแทรกโดยอัตโนมัติในเซลล์ที่เลือกหลังจากเลือกวันที่จากปฏิทิน


เปิดปฏิทินเมื่อคลิกเซลล์ที่ต้องการด้วยรหัส VBA

ส่วนนี้จะแนะนำไฟล์ เลือกวันที่ ประโยชน์ของ Kutools สำหรับ Excel. หลังจากเปิดใช้งานคุณสมบัตินี้แล้วให้คลิกเซลล์วันที่จะแสดงปฏิทินขึ้นมาคุณสามารถแทนที่วันที่ที่มีอยู่ด้วยวันที่ใหม่ได้อย่างง่ายดาย โปรดทำตามขั้นตอนด้านล่างเพื่อใช้คุณสมบัตินี้

1 คลิก Kutools > เนื้อหา > เปิดใช้งานตัวเลือกวันที่.

2. หลังจากเปิดใช้งานคุณสมบัตินี้ให้คลิกที่เซลล์วันที่จากนั้นไอคอนปฏิทินจะปรากฏขึ้นที่เซลล์นั้น

3. คลิกไอคอนปฏิทินเพื่อเปิดไฟล์ เลือกวันที่ กล่องโต้ตอบจากนั้นคลิกวันที่ใหม่เพื่อแทนที่วันที่ในเซลล์ที่เลือก

หมายเหตุ:

  • ปุ่มเลิกทำ: คลิกปุ่มนี้เพื่อเลิกทำการเปลี่ยนวันที่
  • ปุ่มปิด: คลิกปุ่มนี้เพื่อปิดกล่องโต้ตอบตัวเลือกวันที่
  • ฟีเจอร์นี้ใช้ได้กับเซลล์ที่มีวันที่เท่านั้น

  หากคุณต้องการทดลองใช้ฟรี (

30
วัน) ของโปรแกรมอรรถประโยชน์นี้ กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


บทความที่เกี่ยวข้อง:


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (18)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการแสดงปฏิทินแบบผุดขึ้นใต้เซลล์ที่เลือก ฉันควรทำอย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้รหัส VBA เหล่านี้และทุกอย่างเรียบร้อยดี ช่วงคือ A2:A10 และปฏิทินจะปรากฏขึ้นเมื่อคุณเลือกเซลล์ในเซลล์นั้น แต่ถ้าคุณทำเครื่องหมายแถวจาก 2 ถึง 10 อีกครั้ง ปฏิทินจะปรากฏขึ้นอีกครั้ง เช่นเดียวกับคอลัมน์ "A" หากคุณทำเครื่องหมาย ปฏิทินจะปรากฏขึ้นอีกครั้ง ฉันควรดำเนินการอย่างไรเพื่อให้ได้ปฏิทินเฉพาะในช่วงที่ฉันกำหนดไว้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกๆคน,

ใครช่วยบอกวิธีป๊อปอัปปฏิทินในช่วงของเซลล์ได้ แต่เริ่มจากเซลล์ด้านขวาที่ร้อง ส่วนหัวของตารางและด้านล่างในคอลัมน์ excel


ขอขอบคุณล่วงหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอให้เป็นวันที่ดี,
ขออภัย ไม่พบคำถามของคุณ คงจะดีถ้าคุณสามารถให้ภาพหน้าจอของสิ่งที่คุณพยายามทำ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้เช่น: ช่วง ("B6:C30")
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้เช่น: ช่วง ("B6:C30")
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. ลำดับชั้น teşekkür ederim
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ถ้าฉันพยายามเลือกแถว ป๊อปอัปจะเปิดใช้งานและวันที่จะปรากฏในแต่ละเซลล์ในแถวนั้น


ฉันจะหลีกเลี่ยงสิ่งนี้ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแซม
รหัสได้รับการปรับปรุงในบทความเกี่ยวกับการแก้ปัญหา โปรดลองและขอขอบคุณสำหรับความคิดเห็นของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เป็นไปได้ไหมที่จะใส่ป๊อปอัปตัวเลือกวันที่สำหรับหลายคอลัมน์ เนื่องจากในแผ่นงานของฉัน ฉันมี "วันที่เริ่มต้น" "วันที่สิ้นสุด" และ "วันที่ข้อตกลง" ถ้าใช่แล้วอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะเจ๊ต
ทำตามขั้นตอนและแทนที่ช่วง "A2:A10" ในโค้ด VBA ที่สองด้วยช่วงคอลัมน์ของคุณ (เช่น C2:E2)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก! คำแนะนำเหล่านี้มีประโยชน์มาก :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ปฏิทินจะปรากฏขึ้น แต่เมื่อคลิกที่วันที่ เซลล์ไม่เติมข้อมูล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
รหัสทำงานได้ดีในกรณีของฉัน คุณใช้ Excel เวอร์ชันใดอยู่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่มี Microsoft MonthView Control อยู่ในรายการ (Office 365) และคำแนะนำในที่นี้ไม่ได้อธิบายว่าจะควบคุมได้อย่างไร ดังนั้นจึงไม่มีประโยชน์อย่างยิ่งเว้นแต่คุณจะใช้ Excel เวอร์ชันเก่า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันไม่เห็น Microsoft MonthView Control ในรายการ แต่อาจเป็นอย่างที่ Pete (#32847) พูดถึงว่าสิ่งนี้จะไม่ทำงานใน Office 365 หรือ Microsoft Office 64 บิต
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Teagan Caudle,
ฉันค้นหาและลองใช้วิธีการที่แนะนำใน Google แต่ในที่สุดก็ไม่สามารถลงทะเบียนการควบคุม MonthView ใน Microsoft 365 ได้
ขออภัยในความไม่สะดวก. บางทีคุณสามารถตรวจสอบสิ่งนี้ได้
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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