สอบถาม VBA การบันทึกข้อมูลลง Database ครับ

[jakawan]

โดยผมนำตัวบันทึกข้อมูลของพี่ๆสมาชิกมาประยุกต์ใช้ โดยผมสร้าง 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

[snasui]

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

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

[jakawan]

Code: Select all

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

ได้มั้ยครับ

[snasui]

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

[jakawan]

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

[snasui]

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

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

[jakawan]

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

[snasui]

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

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

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

[jakawan]

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

[snasui]

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

[jakawan]

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

ขอบคุณครับ

[snasui]

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

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

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

[jakawan]

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

[jakawan]

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

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

[snasui]

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

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

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

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

[jakawan]

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

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

[snasui]

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

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

[jakawan]

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

[snasui]

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

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

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

[jakawan]

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