สอบถามเรื่องกดปุ่มใส่ตัวเลขใน Excel ครับ

[Remnant]

ผมจะสร้างปุ่มตัวเลข 0 - 9 ครับ พอใส่กดปุ่มใด ก็จะคีย์ตัวเลขนั้นในช่อง A1

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

จะใช้โค้ดอะไรครับ เช่น กด 100 ครั้ง ก็จะมีตัวเลขขึ้นในช่อง A1:A100 ครับ

ขอบคุณครับ

[snasui]

สำหรับ Code จะต้องเขียนมาเอง ติดตรงไหนแล้วค่อยถามกันตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

[Remnant]

ไฟล์ก่อนที่แนบมา ผมลองเขียนแล้วครับ แต่งงตรงที่ทำไมมันเซฟไม่ติด

อันนี้ไฟล์ใหม่ครับ ลองเขียนแล้ว มันจะเริ่มกรอกข้อมูล ตรงที่ Cell เราเลือกไว้ แล้วมันจะเลื่อนไปเรื่อยๆ ครับ

แต่ที่ผมอยากได้คือ ให้มันเริ่มที่ A1 แล้วไล่ลงไปเรื่อยๆ ครับ

Sub Insert_Value_0()

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = 0

End Sub

Sub Insert_Value_1()

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = 1

End Sub

Sub Insert_Value_2()

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = 2

End Sub

[snasui]

ให้เปลี่ยน Code จาก ActiveCell.Offset(1, 0).Select เป็น range("a" & rows.count).end(xlup).offset(1,0).select แทนครับ

[Remnant]

ขอบคุณมากครับ ได้แล้วครับ

จะพยายามเรียนรู้ไปเรื่อยๆ ครับ

[Remnant]

รบกวนอีกเรื่องครับ ตอนนี้ผมจะเปลี่ยนให้ใส่ข้อมูล จากบนลงมาด้านล่างไปเรื่อยๆ

ผมเลยลองใส่เป็น

Sub Insert_Value_0()

Range("A1" & Columns.Count).End(xlLeft).Offset(0,1).Select

ActiveCell.Value = 0

End Sub

เพื่อให้ใส่ข้อมูลจาก A1 แล้วเลื่อนไปด้านขวาเรื่อยๆ ครับ แต่มัน Error ครับ

พยายามตีความหมายของโค้ดว่า ตรงไหนคืออะไรแล้ว ก็พยายามดู Help ก็งงครับ

[snasui]

เปลี่ยนจาก Range("A1" & Columns.Count).End(xlLeft).Offset(0,1).Select เป็น Cells(1, Columns.Count).End(xlLeft).Offset(0,1).Select

[Remnant]

เปลี่ยนจาก Range("A1" & Columns.Count).End(xlLeft).Offset(0,1).Select เป็น Cells(1, Columns.Count).End(xlLeft).Offset(0,1).Select

แก้ตามที่บอกแล้ว Error ครับ

[snasui]

Code เดิมเขียนมาผิด ผมไม่ได้สังเกต ให้เปลี่ยนจาก xlleft เป็น xltoleft แล้วแจ้งมาอีกรอบว่าได้ผลหรือไม่ อย่างไร

ควรมีไฟล์ตัวอย่างแนบมาด้วยเสมอจะได้ช่วยทดสอบได้

[Remnant]

ได้แล้วครับ ขอบคุณมากครับ