Note: The other languages of the website are Google-translated. Back to English

วิธีย้ายเคอร์เซอร์ไปยังเซลล์เฉพาะใน Excel โดยอัตโนมัติ

บางครั้งคุณอาจต้องข้ามไปยังเซลล์เฉพาะเพื่อจุดประสงค์บางอย่าง บทความนี้จะแสดงวิธีการย้ายเคอร์เซอร์ไปยังเซลล์เฉพาะโดยละเอียด

เลื่อนเคอร์เซอร์ไปยังเซลล์ที่ต้องการโดยอัตโนมัติด้วยกล่องชื่อ
เลื่อนเคอร์เซอร์ไปยังเซลล์ที่ระบุโดยอัตโนมัติด้วยรหัส VBA


เลื่อนเคอร์เซอร์ไปยังเซลล์ที่ต้องการโดยอัตโนมัติด้วยกล่องชื่อ

กล่องชื่อสามารถช่วยให้คุณย้ายเคอร์เซอร์ไปยังเซลล์ใดเซลล์หนึ่งใน Excel ได้อย่างง่ายดาย

1 ใน ชื่อ - นามสกุล ป้อนการอ้างอิงเซลล์เฉพาะที่คุณจะข้ามไปจากนั้นกดปุ่ม เข้าสู่ กุญแจ

จากนั้นเคอร์เซอร์จะย้ายไปยังเซลล์ที่ระบุทันที

หมายเหตุ: หากคุณต้องการข้ามไปยังเซลล์ที่ระบุในแผ่นงานอื่นตัวอย่างเช่นข้ามไปที่เซลล์ C30 ของ Sheet2 โปรดพิมพ์ Sheet2! C30 ลงในกล่องชื่อจากนั้นกดปุ่ม Enter


เลื่อนเคอร์เซอร์ไปยังเซลล์ที่ระบุโดยอัตโนมัติด้วยรหัส VBA

รหัส VBA ต่อไปนี้ช่วยให้คุณย้ายไปยังเซลล์เฉพาะพร้อมกันใน Excel

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก Tสมุดงานของเขา ในบานหน้าต่างด้านซ้ายเพื่อเปิด ThisWorkbook (รหัส) หน้าต่าง. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง

รหัส VBA: ย้ายไปที่จุดเริ่มต้นหรือจุดเริ่มต้นของแถวถัดไปเพื่อป้อนข้อมูล

Sub jumpnext()
    Range("F100").Select
End Sub

หมายเหตุ: ในรหัส F100 คือเซลล์ที่คุณจะข้ามไป คุณสามารถเปลี่ยนได้ตามต้องการ

3 กด F5 เพื่อรันโค้ดจากนั้นเคอร์เซอร์จะย้ายไปที่เซลล์ F100 ในแผ่นงานปัจจุบันทันที


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


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (13)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการสร้างมาโครที่ย้ายจากเซลล์หนึ่งไปยังเซลล์ถัดไป ทีละขั้นตอน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นั่นเป็นประโยชน์ ขอบคุณ อย่างไรก็ตาม ฉันอยากได้สูตรเป็นอาร์กิวเมนต์สำหรับฟังก์ชัน 'ช่วง' สิ่งนี้อนุญาตหรือไม่ สิ่งที่ฉันต้องการทำคือให้ผู้ใช้ป้อนตัวเลขในกล่องโต้ตอบ จากนั้นค้นหาการเกิดขึ้นครั้งแรกของตัวเลขนั้นในช่วงของเซลล์ จากนั้นข้ามเคอร์เซอร์ไปที่เซลล์นั้น...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีสตีฟ
ขออภัยไม่สามารถช่วยคุณในเรื่องนั้นได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะให้เคอร์เซอร์ย้ายจากเซลล์ E6 เป็น F8 ได้อย่างไรเมื่อป้อนข้อมูลลงใน E6 แล้ว ฉันต้องการให้เคอร์เซอร์ละเว้นบรรทัดอื่นๆ ทั้งหมดในคอลัมน์ E และข้ามไปที่ E6 ทันที
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขออภัย ฉันหมายถึงการพิมพ์ "กระโดดไปที่ F8 ทันที"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เจมส์ hi,
โปรดลองรหัสด้านล่าง หลังจากป้อนข้อมูลลงใน E6 แล้ว ให้กดแป้น Tab หรือแป้น Enter แล้วเคอร์เซอร์จะข้ามไปที่ F8 ทันที

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)

'ปรับปรุงโดย Extendoffice 2020087

Dim แท็บอาร์เรย์เป็นตัวแปร

มืดมนตราบนานเท่านาน

tabArray = Array("E6", "F8")

Application.ScreenUpdating = เท็จ

สำหรับผม = LBound(tabArray) ถึง UBound(tabArray)

ถ้า tabArray(i) = Target.Address(0, 0) แล้ว

ถ้าฉัน = UBound(tabArray) แล้ว

Me.Range(tabArray(LBound(tabArray))).เลือก

อื่น

Me.Range(tabArray(i + 1)).เลือก

End If

End If

ต่อไปฉัน

Application.ScreenUpdating = จริง

ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะย้ายเซลล์ที่ใช้งานอยู่โดยไม่ต้องกดปุ่มบนแป้นพิมพ์? ตัวอย่างเช่น ฉันขอให้เซลล์เลื่อนลงทันทีที่เซลล์ด้านบนเต็มได้ไหม ฉันกำลังมองหาฟังก์ชันหรือ VBA เพื่อเรียกใช้เมื่อเซลล์เต็ม ทันทีที่ A3 มีอักขระอยู่ จะมี VBA ให้ย้ายเซลล์ที่ใช้งานอยู่ลงไปที่ A4 หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีจอห์น,
ฉันสับสนในคำถามของคุณ เราจะทราบได้อย่างไรว่าเซลล์แก้ไขเสร็จแล้วหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณไม่ได้เซ็นรหัส F5 สำหรับรหัส มันจะทำงานอย่างไรเมื่อกด F5
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
กล่องข้อความ กล่องข้อความ แบบฟอร์ม ข้อมูล เซลล์/ชีต yg dipilih dgn kursor ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เลสสัน
ขอโทษ ฉันไม่เข้าใจสิ่งที่คุณหมายถึง คุณช่วยระบุภาพหน้าจอของข้อมูลของคุณได้ไหม หรือพยายามเจาะจงมากขึ้นเกี่ยวกับคำถามของคุณ ขออภัยในความไม่สะดวก.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

คุณช่วยขอรหัส VBA ต่อไปนี้ได้ไหม

แผ่นที่ 1 ชื่อ "สินทรัพย์หลัก" และอีก 100 แผ่นชื่อ "0001...0002...0003....0004 ~ 0100"

ในแต่ละแผ่น "0001 ~ 0100"
ฉันต้องการเลือกเซลล์ A4 ที่มีข้อความ "Back to Master Asset" อยู่แล้ว จากนั้นกด Enter เพื่อข้ามกลับไปที่เซลล์ J3 ใน "Master Asset" โดยอัตโนมัติ

ขอบคุณล่วงหน้า
แอนดี้ซี
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Andy Coghlan,
ฉันไม่สามารถหาวิธีทริกเกอร์มาโครด้วยปุ่ม Enter ได้ในขณะนี้ โค้ด VBA ต่อไปนี้สามารถแทรกไฮเปอร์ลิงก์เดียวกันใน A4 ของเวิร์กชีตทั้งหมดได้พร้อมกัน หลังจากคลิกไฮเปอร์ลิงก์ใน A4 แล้ว ระบบจะข้ามไปที่ J3 ใน "เนื้อหาหลัก" กรุณาให้มันลอง

Sub AddHyperlinks()
'Updated by Extendoffice 20220715
    Dim xRg, yRg As Range
    Set xRg = Worksheets("Master Asset").Range("J3")
    xStr = xRg.Address(External:=True)
    For Each Sh In Worksheets
        If Sh.Name <> "Sh.Name" Then
            Set yRg = Sh.Range("A4")
            yRg.Hyperlinks.Add anchor:=yRg, Address:="", SubAddress:=xStr, TextToDisplay:="Back to Master Asset"
        End If
    Next
End Sub
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ