snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Sub ChangePrice()
Dim i As Integer, j As Integer, k As Integer
For i = 2 To Worksheets("รหัสหนังสือและราคาที่เปลี่ยนแปล") _
.Range("A65536").End(xlUp).Row
k = 0
For j = 2 To Worksheets("รหัสหนังสือและราคา") _
.Range("A65536").End(xlUp).Row
If Worksheets("รหัสหนังสือและราคา").Cells(j, 1) _
= Worksheets("รหัสหนังสือและราคาที่เปลี่ยนแปล").Cells(i, 1) Then
k = j
End If
Next j
If k > 1 Then
Worksheets("รหัสหนังสือและราคา").Cells(k, 2) _
= Worksheets("รหัสหนังสือและราคาที่เปลี่ยนแปล").Cells(i, 2)
Worksheets("รหัสหนังสือและราคา").Cells(k, 3) = Date
Else
Worksheets("รหัสหนังสือและราคา").Range("A65536").End(xlUp).Offset(1, 0) _
= Worksheets("รหัสหนังสือและราคาที่เปลี่ยนแปล").Cells(i, 1)
Worksheets("รหัสหนังสือและราคา").Range("A65536").End(xlUp).Offset(0, 1) _
= Worksheets("รหัสหนังสือและราคาที่เปลี่ยนแปล").Cells(i, 2)
Worksheets("รหัสหนังสือและราคา").Range("A65536").End(xlUp) _
.Offset(0, 2) = Date
End If
Next i
End Sub
You do not have the required permissions to view the files attached to this post.