Page 1 of 1
การบันทึกข้อมูลลง Database ด้วย VBA
Posted: Thu Mar 12, 2020 1:55 pm
by satha
การ เขียน code หรือวิธีการ ในการที่ผมต้องการกรอกข้อมูล โดยใช้ Drop Down List เพื่อการกรอกคะแนนประมิน Supplier ด้านการจัดส่ง และด้านคุณภาพ แล้วให้ผลรวมของคะแนน ไปบันทึกใน sheet ถัดไป เพื่อการก็บข้อมูล และภายหลังที่มีการ Clear Form แล้ว จะทำการเลือกรหัสลูกค้า จาก Drop down list ข้อมูลใหม่ มา input ข้อมูล และให้ไปบันทึกตามรหัสของ Supplier ID ครับ
Re: การบันทึกข้อมูลลง Database ด้วย VBA
Posted: Thu Mar 12, 2020 2:39 pm
by puriwutpokin
ลองปรับเป็น
Code: Select all
Sub RecordData()
With Sheets("Database")
Set r = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
r.Value = Range("a4")
r.Offset(0, 1).Value = Range("c10")
r.Offset(0, 2).Value = Range("c17")
End With
End Sub
Re: การบันทึกข้อมูลลง Database ด้วย VBA
Posted: Thu Mar 12, 2020 6:28 pm
by satha
ขอบคุณครับ คุณ puriwutpokin นำไปใช้ได้ครับ แต่หากว่าการบันทึก จะถูกบันทึกใหม่ (เพิ้่มเเถวเข้ามา) อยากเรียนถามครับว่า เราสามารถสร้างรหัส Supplierไว้ใน Database แล้วโดยให้ข้อมูลที่เรากรอก (ลงฟอร์ม) โดยให้ข้อความไป match กับรหัสใน Database ได้ไหมครับผม
Re: การบันทึกข้อมูลลง Database ด้วย VBA
Posted: Thu Mar 12, 2020 6:35 pm
by puriwutpokin
ในความหมายนี้หรือเปล่าครับ
Code: Select all
Sub RecordData()
Dim r, rAll As Range
With Sheets("Database")
Set rAll = .Range("a4", .Range("a" & .Rows.Count).End(xlUp))
For Each r In rAll
If Range("a4") = r.Value Then
r.Offset(0, 1).Value = Range("c10")
r.Offset(0, 2).Value = Range("c17")
End If
Next r
End With
End Sub