สอบถาม code vba ครับ

[buncha2522]

เมื่อเพิ่มข้อมูลเสร็จแล้ว อยากให้ข้อมูลที่ได้กรอกไว้หายไป เพื่อที่จะเริ่มบันทึกรายการต่อไป
ต้องเขียน code อย่างไรครับ

[snasui]

Code ต้องเขียนมาเอง ถามเฉพาะที่ติดปัญหา แจ้งมาด้วยว่า Code ชื่ออะไร ติดขัดบรรทัดใด จะได้เข้าถึงปัญหาโดยไว โพสต์ Code ไว้ในฟอรัมด้วยจะยิ่งดี จะได้ดูในเบื้องต้นได้ว่าลักษณะ Code เป็นอย่างไรครับ

[buncha2522]

Option Explicit

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim wb As Variant
Dim iname As String
Dim iid As String
Dim iage As Integer

'get value from object to variable
iname = TextBox1
iid = TextBox2
iage = TextBox3
Set wb = Workbooks.Open("C:\db.xls", False, False)
'wb("db.xls").Activate
ActiveWorkbook.Worksheets("Sheet1").Select
With [a65535].Offset.End(xlUp)
.Offset(1, 0) = iname
.Offset(1, 1) = iid
.Offset(1, 2) = iage
End With
wb.Close True
MsgBox "à¾ÔèÁ¢éÍÁÙÅàÊÃç¨áÅéÇ"
Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Click()

End Sub

[snasui]

การโพสต์ Code ให้ทำตามกฎข้อ 5 ด้านบนครับ

[buncha2522]

Code: Select all

ption Explicit

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim wb As Variant
Dim iname As String
Dim iid As String
Dim iage As Integer

'get value from object to variable
iname = TextBox1
iid = TextBox2
iage = TextBox3
Set wb = Workbooks.Open("C:\db.xls", False, False)
'wb("db.xls").Activate
ActiveWorkbook.Worksheets("Sheet1").Select
With [a65535].Offset.End(xlUp)
        .Offset(1, 0) = iname
        .Offset(1, 1) = iid
        .Offset(1, 2) = iage
End With
wb.Close True
MsgBox "à¾ÔèÁ¢éÍÁÙÅàÊÃç¨áÅéÇ"
Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Click()

End Sub

[snasui]

ก่อน End Sub สามารถกำหนดค่าให้กับ TextBox เป็นค่าว่างได้ครับเช่น

Code: Select all

TextBox1=""
TextBox2=""
TextBox3=""

[buncha2522]

อาจารย์ครับ แล้วถ้าจะให้เคอเซอร์กลับมาอยู่ในช่องสี่เหลี่ยม ต้องพิมพ์ code อย่างไรครับ

[snasui]

ลองค้นหาคำว่า SetFocus แล้วทำเองดูก่อน ติดตรงไหนค่อยถามกันต่อครับ

[buncha2522]

ขอบคุณครับ ทำได้แล้วครับ