ลิงค์ข้อมูล

[domejang]

สวัสดีครับ คือว่าผมต้องการ SUM ข้อมูลจาก sheet 1 ไป ยัง Sheet 2 โดยให้ผล sum นั้นเพิ่มขึ้นตามที่เรา คีย์นะครับ

เช่น ผม คีย์ 1 สองครั้ง Sheet 2 ต้องบอกเป็น 2 นั้นครับ 1 สามครั้ง เพิ่มขึ้นเป็น 3 นะครับ

ประมาณนี้ครับ แฮ่ๆ ผมมีไฟลืตัวอย่างแนบมาด้วยครับ

[snasui]

สามารถนำ VBA มาช่วยได้ครับ

ผมเขียนตัวอย่าง Code มาให้แล้วตามด้านล่าง

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Selection.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("D8:H9")) Is Nothing Then
            Worksheets("Sheet2").Range(Target.Address) = _
            Worksheets("Sheet2").Range(Target.Address) + Target.Value
        End If
End Sub

ดูไฟล์แนบประกอบครับ