⌨ ผู้ใช้งาน Excel ส่วนใหญ่มักจะมีปัญหาการนำข้อมูลไปจัดเก็บไว้เป็นฐานข้อมูลหรือ Database เพื่อให้เกิดความสะดวกในการนำข้อมูลมาใช้งานในภายหลัง ซึ่งการจัดเก็บข้อมูลลง Database นั้นไม่สามารถทำได้ด้วยสูตร จำเป็นต้องพึ่งพา VBA เข้ามาจัดการ ?
Video ด้านล่างนี้แสดงการนำข้อมูลที่ผู้ใช้งานกรอกไปจัดเก็บไว้เป็น Database ด้วย VBA พร้อมทั้งให้หมายเลขลำดับรายการข้อมูลด้วย Code ไม่กี่บรรทัด รวมถึงวิธีการสร้างปุ่มกดเพื่อเรียกใช้งาน Procedure ที่เราเขียนไว้ โดย Code ที่ใช้จะมีดังนี้
Sub RecordData()
With Sheets("Database")
With .Range("b" & .Rows.Count).End(xlUp).Offset(1, 0)
If IsNumeric(.Offset(-1, -1)) Then
.Offset(0, -1).Value = .Offset(-1, -1).Value + 1
Else
.Offset(0, -1).Value = 1
End If
.Resize(, 4).Value = Sheets("Form").Range("a2:d2").Value
End With
End With
End Sub