ส่งข้อมูลไปในตารางแบบมีปุ่มกด

[intint]

คือ ต้องการ ส่งข้อความโดยใช้ปุ่มกด แยกข้อความลงไปในคอลัมน์ โดยเริ่มจากคอลัมน์ที่1 ลงมาแล้วขึ้นไปเริ่มใหม่ คอลัมน์ที่ 2 .....ไปจนถึง คอลัมน์ที่ 10 ต้องทำอย่างไรบ้างครับ

[intint]

ผมทำได้แค่ลงอย่างเดียว ขึ้นไปคอลัมน์ทางซ้ายไม่ได้

[parakorn]

คำถามเกี่ยวกับ VBA ให้แนบไฟล์ และ โค้ดมาด้วยเพื่อง่ายต่อการเข้าถึงปัญหา และ ช่วยเหลือครับ

[intint]

ปัญหาของผม คือ เวลามีตารางที่มากเพิ่มขั้น การทำงานช้ามากกว่าจะแสดงผล ผมใช้คำสั่งพื้นฐานซึ่งมันยาวมาก แล้วผมจะลบข้อความล่าสุดยังไงได้บ้างครับ ขอบคุณครับ

[snasui]

ช่วยอธิบายโดยยกตัวอย่างมาด้วยครับว่าส่งไปยังพื้นใด ลักษณะการส่งที่ว่านั้นเป็นอย่างไร จะได้เข้าถึงปัญหาโดยไวครับ

[intint]

ทำแบบไฟล์ที่แนบไปครับ ที่ผมเขียนมันทำงานได้ช้ามาก
ตัวอย่าง กดปุ่ม A หรือ B ก็ใส่ข้อความลงในช่องตาราง เรียงลงมา แล้วขึ้นไปคอลัมน์ใหม่ครับ

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub SendData_A()
    On Error Resume Next
    i = Range("e5:n7").SpecialCells(xlCellTypeBlanks).Areas.Count
    Range("e4:n7").SpecialCells(xlCellTypeBlanks).Areas(i).Cells(1).Value = "A"
End Sub