วิธีการข้ามไปยังเซลล์ที่อยู่ติดกันอย่างรวดเร็วตามการเลือกในรายการแบบเลื่อนลงของ Excel
คุณเคยถ่ายภาพเพื่อข้ามไปยังเซลล์ที่อยู่ติดกันตามการเลือกในรายการแบบเลื่อนลงใน Excel หรือไม่? ตัวอย่างเช่นที่นี่ฉันมีรายการแบบหล่นลงในเซลล์ C1 ซึ่งมีชื่อวันทำงานคอลัมน์ A คือรายการวันที่และคอลัมน์ B คือรายการเวลา ตอนนี้เมื่อฉันเลือกชื่อวันทำงานในรายการแบบเลื่อนลงเช่นวันพฤหัสบดีเคอร์เซอร์จะข้ามไปที่ B5 ซึ่งอยู่ติดกับวันพฤหัสบดีในคอลัมน์ A ใน Excel ไม่มีคุณสมบัติในตัวที่จะแก้ปัญหานี้ แต่ด้วย รหัส VBA ที่มีประสิทธิภาพสามารถ
ข้ามไปยังเซลล์ที่อยู่ติดกันตามค่าในรายการแบบเลื่อนลงโดย VBA
ข้ามไปยังเซลล์ที่อยู่ติดกันตามค่าในรายการแบบเลื่อนลงโดย VBA
1. เลือกวันที่คุณต้องการใช้จากรายการดรอปดาวน์จากนั้นกด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลวางโค้ดด้านล่างลงในไฟล์ โมดูล.
VBA: ข้ามไปยังเซลล์ที่อยู่ติดกันตามค่า
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
If Target.Address <> [C1].Address Then
Exit Sub
Else
JumpToCell
End If
End Sub
Sub JumpToCell()
Dim xRg, yRg As Range
Dim strAddress As String
strAddress = ""
Set yRg = Range("A2:A8")
For Each xRg In yRg
'MsgBox Cell.Value
If xRg.Value = ActiveCell.Value Then
strAddress = xRg.Address
End If
Next
If strAddress = "" Then
MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
vbInformation, "Kutools for Excel"
Exit Sub
Else
Range(strAddress).Offset(0, 1).Select
End If
End Sub
3 กด F5 จากนั้นเคอร์เซอร์จะข้ามไปยังเซลล์ที่อยู่ติดกันตามค่าในรายการแบบเลื่อนลง
ในรหัส VBA A2: A8 คือรายการที่มีค่าที่ตรงกับค่าในรายการแบบหล่นลงคุณสามารถเปลี่ยนการอ้างอิงนี้ได้ตามต้องการ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
