Snasui Excel Forum

โดยผมนำตัวบันทึกข้อมูลของพี่ๆสมาชิกมาประยุกต์ใช้ โดยผมสร้าง Sheet Input และ Sheet Database เพื่อเวลาเรากดปุ่มบันทึกแล้วข้อมูลที่อยู่ใน Sheet Input จะส่งเข้าสู่ตาราง Sheet Database เช่น กดบันทึกเคสหมายเลข 1 จะเก็บข้อมูลให้ทันที เรียงคอลัมภ์กันไปเรื่อย ซึ่งข้อมูลที่ใช้ประกอบด้วย เซลล์ C9 C10 C11 C12 L14 C14 C15 G15 L15 C16 L16 D17 F20 C21 C24 F24 A29 A40 A47 C51 E51 J66 ผมได้ลองทำโค้ตแล้วยังทำไม่สำเร็จรบกวนช่วยผมด้วยนะครับ ตามโค้ดแบบครับ

Sub Paste()
Dim irRange As Range
Worksheets("Input").Range("C9", "C10" "C11","C12","L14","C14","C15","G15","L15","C16","L16","D17","F20","C21","C24", "F24", "A29", "A40", "A47", "C51", "E51","j66" .Copy
.Offset(1, 0).PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("c9").Select
With Worksheets("Database")
Set irRange = .Range("a3", .Range("f" & Rows.Count).End(xlUp))
irRange.Borders.LineStyle = xlContinuous
irRange.Sort Key1:=.Range("A3"), Order1:=xlAscending, Header:=xlGuess
End With
End Sub

การสอบถามเกี่ยวกับ VBA ให้แนบไฟล์ที่มี Code VBA มาด้วย ซึ่งไฟล์ที่จะแนบ Code ได้จะต้องเป็น .xlsm เป็นอย่างน้อย ไม่ใช่ .xlsx ครับ

สำหรับ Code ควรโพสต์ให้แสดงเป็น Code ดูตัวอย่างได้ที่นี่ครับ viewtopic.php?f=6&t=1187

ได้มั้ยครับ

อ่านและทำให้ครบตามที่ผมแจ้งไปครับ

ส่งมาใหม่แล้วครับ ขออภัยครับ มือใหม่หัดเริ่มจริงๆ

ไม่พบ Code ในไฟล์แนบ

ให้แนบ Code มาในไฟล์แล้วแจ้งมาด้วยว่า Code ที่เขียนมานั้นผิดพลาดตรงไหน อย่างไร จะได้ตอบต่อไปจากนั้นครับ

รบกวนช่วยผมดูด้วยนะครับ

แนบผิดตำแหน่งครับ

การแนบ Code ต้องแนบใน VBE (Vitual Basic Editor) ไม่ใช่แนบมาใน Worksheet

อย่าลืมอธิบายเพิ่มว่า Code ทำงานผิดพลาดตรงไหน อย่างไรมาด้วยครับ

ส่งมาให้ใหม่แล้วครับผิดพลาดประการ แนะนำด้วยนะครับ

ไม่พบ Code ในไฟล์แนบครับ

อาจารย์พอมีตัวอย่างให้ผมดูซัก 1 ไฟล์ได้มั้ยครับว่าทำอย่างไร จะได้เห็นภาพและแนบอย่างถูกต้องครับ

ขอบคุณครับ

ตัวอย่างในฟอรัมนี้เยอะแยะที่แนบ Code มาด้วยใน VBE หาได้ทั่วไปครับ

การใช้ VBA จะต้องทราบว่าแนบ Code ตรงไหน อย่างไร

ภาพด้านบนเป็น Code ที่เขียนใน Module1 ไม่ทราบว่าเข้าไปเขียนได้อย่างไร และเหตุใดไม่แนบไฟล์นั้นมาถามในฟอรัมครับ

ผมเข้าใจว่าผมแนบไฟล์มาแล้วนะครับ ไม่รู้ผมคิดถูกหรือเปล่า ผมได้แนบรูปมาให้อาจารย์ดูว่าใช่แบบนี้มั้ยครับ

วัตถุประสงค์ของผมเพียงอยากให้ข้อมูลใน Range("C9", "C10" "C11","C12","L14","C14","C15","G15","L15","C16","L16","D17","F20","C21","C24", "F24", "A29", "A40", "A47", "C51", "E51","j66"

ให้เรียงกันลงในตาราง Database ครับ เวาลเรากดปุ่มบันทึกข้อมูล ครับ รบกวนให้อาจารย์ชี้แนะด้วยครับ

แนบไฟล์ Excel ที่ในไฟล์นั้นได้เขียน Code ไว้ใน VBE เรียบร้อยแล้วมาด้วย ไม่ใช่แนบแค่ภาพครับ

ไฟล์ที่ผมพูดถึงคือไฟล์ Excel ไม่ใช่ไฟล์ภาพครับ

ที่บอกว่าแนบมาแล้วเป็นโพสต์ไหนครับ โพสต์ด้านบนทั้งหมดไม่มี Code ในไฟล์แนบ

ที่ต้องแนบ Code มาในไฟล์ Excel เพราะผมจะได้ตอบเลยทันที ไม่ต้อง Copy Code ไปวางเองครับ

ไฟล์ภาพผมเอามาจากไฟล์ Excel อันที่แนบด้านบนครับ ผมเข้าไปดูก็มีไฟล์ผมจึงสับสนครับว่าผมทำตรงไหนไม่ถูก ซึ่ง code อยู่ตรงปุ่มบันทึกข้อมูล ผมคลิ๊กขวาที่ปุ่ม เลือก Assign Marcro เลือก Edit ครับ ผมทำแบบนี้ไม่รู้ถูกต้องรึไม่

ขอบคุณครับ ปล.ต้องขอโทษด้วยครับที่ทำไม่ได้ซักที

ช่วยโพสต์ link ของไฟล์นั้นมาอีกรอบหรือแนบมาใหม่ครับ

ย้ำอีกครั้งว่าที่ผมเห็นทุกโพสตฺ์ด้านบน ไฟล์แนบไม่มี Code

ผมแนบไฟล์มาอีกครั้งครับ

คุณ jakawan ต้องแนบ Code มาในไฟล์ แบบบันทึกข้อมูลเคส beta V2.xlsm

จากตัวอย่างในภาพจะเห็นว่ายังไม่ได้แนบ ส่วนไฟล์ที่มี Code แล้วคือไฟล์ ฐานข้อมูลฺ.xlsm

ลองแนบมาใหม่ครับ

เอาอันนี้ครับ น่าจะได้ code ครับ