Excel VBA - การเลือกเซลล์ว่างถัดไปในแถว

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

ปัญหา

ฉันใช้ Excel 2002

รหัสด้านล่างใช้งานได้ดียกเว้นฉันต้องการเลือกเซลล์ว่างถัดไปทางด้านขวาในแถวทุกครั้งที่มีการป้อนคะแนนของผู้เล่นคนเดียวกัน

เมื่ออ่านแล้วมันก็จะเขียนทับรายการก่อนหน้า

 แผ่นงาน ("คลาสสิก") เลือก ActiveSheet ช่วงการป้องกัน ("B1") เลือกทำจนกระทั่ง ActiveCell.Value = Player.Value ActiveCell.Offset (1, 0) เลือก Loop ActiveCell.Value = Player.Value Activecell.offset 0, 4) .value = Score.value ActiveSheet.Protect GameNumber.Value = "" Player.Value = "" Score.Value = ""

สารละลาย

ลองวิธีนี้:

 ActiveCell.Value = Player.Value Activecell.offset (0, 4) .value = Score.value 'ค้นหาเซลล์ที่ใช้ล่าสุดในแถวทางด้านขวา ActiveCell.End (xlToRight) เลือก' ย้ายเซลล์หนึ่งไปทางขวาจากสุดท้าย ใช้เซลล์ ActiveCell.Offset (0, 1) เลือก