ส่งข้อมูลไปในตารางแบบมีปุ่มกด
Posted: Mon Nov 28, 2016 1:05 am
คือ ต้องการ ส่งข้อความโดยใช้ปุ่มกด แยกข้อความลงไปในคอลัมน์ โดยเริ่มจากคอลัมน์ที่1 ลงมาแล้วขึ้นไปเริ่มใหม่ คอลัมน์ที่ 2 .....ไปจนถึง คอลัมน์ที่ 10 ต้องทำอย่างไรบ้างครับ
Snasui Excel Forum
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
http://snasui.com/
ส่งข้อมูลไปในตารางแบบมีปุ่มกด
Page 1 of 1
Re: ส่งข้อมูลไปในตารางแบบมีปุ่มกด
Posted: Mon Nov 28, 2016 4:35 am
ผมทำได้แค่ลงอย่างเดียว ขึ้นไปคอลัมน์ทางซ้ายไม่ได้
Re: ส่งข้อมูลไปในตารางแบบมีปุ่มกด
Posted: Mon Nov 28, 2016 12:40 pm
คำถามเกี่ยวกับ VBA ให้แนบไฟล์ และ โค้ดมาด้วยเพื่อง่ายต่อการเข้าถึงปัญหา และ ช่วยเหลือครับ 
Re: ส่งข้อมูลไปในตารางแบบมีปุ่มกด
Posted: Mon Nov 28, 2016 3:05 pm
ปัญหาของผม คือ เวลามีตารางที่มากเพิ่มขั้น การทำงานช้ามากกว่าจะแสดงผล ผมใช้คำสั่งพื้นฐานซึ่งมันยาวมาก แล้วผมจะลบข้อความล่าสุดยังไงได้บ้างครับ ขอบคุณครับ
Re: ส่งข้อมูลไปในตารางแบบมีปุ่มกด
Posted: Mon Nov 28, 2016 7:36 pm
ช่วยอธิบายโดยยกตัวอย่างมาด้วยครับว่าส่งไปยังพื้นใด ลักษณะการส่งที่ว่านั้นเป็นอย่างไร จะได้เข้าถึงปัญหาโดยไวครับRe: ส่งข้อมูลไปในตารางแบบมีปุ่มกด
Posted: Mon Nov 28, 2016 10:10 pm
ทำแบบไฟล์ที่แนบไปครับ ที่ผมเขียนมันทำงานได้ช้ามาก
ตัวอย่าง กดปุ่ม A หรือ B ก็ใส่ข้อความลงในช่องตาราง เรียงลงมา แล้วขึ้นไปคอลัมน์ใหม่ครับ
ตัวอย่าง กดปุ่ม A หรือ B ก็ใส่ข้อความลงในช่องตาราง เรียงลงมา แล้วขึ้นไปคอลัมน์ใหม่ครับ
Re: ส่งข้อมูลไปในตารางแบบมีปุ่มกด
Posted: Tue Nov 29, 2016 6:50 pm
ตัวอย่าง 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