Page 1 of 1
สอบถามเรื่อง Worksheet_Change ครับ
Posted: Mon Dec 11, 2017 4:55 pm
by lnongkungl
จากไฟล์แนบ ผมต้องการให้ Range:Qty เป็นตัว Change เมื่อคีย์ข้อมูลเข้าไปให้น้ำข้อมูลไปบวกกับ Range:Stock ครับ
จากที่ผมลองเขียนดู ลองคีย์ข้อมูลใส่ แล้ว error type mismatch ครับ ผมควรแก้ code ตรงไหนครับ รบกวนเพื่อนๆ อาจารย์ ด้วยครับ
Re: สอบถามเรื่อง Worksheet_Change ครับ
Posted: Mon Dec 11, 2017 6:54 pm
by puriwutpokin
ปรับเป็น
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
Dim r As Integer
r = Target.Row
Application.EnableEvents = False
If Not Intersect(Target, Range("Qty")) Is Nothing Then
If Target.Column = 2 Then
Cells(r, 1).Value = Cells(r, 1).Value + Cells(r, 2).Value
End If
End If
Application.EnableEvents = True
End Sub
Re: สอบถามเรื่อง Worksheet_Change ครับ
Posted: Tue Dec 12, 2017 8:54 am
by lnongkungl
ขอบคุณครับ เด๋วลองไปปรับใช้ดู ครับ