標題: [發問] 查詢資料後修改回存 [打印本頁]

---

作者: caimy    時間: 2016-2-25 09:22     標題: 查詢資料後修改回存

本帖最後由 caimy 於 2016-2-25 09:23 編輯

請問在B查詢A資料後，在B修改內容回存更改A資料資訊內容，應該如何寫
謝謝
[attach]23328[/attach]
[attach]23329[/attach]

---

作者: rouber590324    時間: 2016-2-25 16:20

試試
SHEET1=工作表B
SHEET2=工作表A


Sub 查尋()
Sheet1.[B4].ClearContents
X = Sheet2.[b65536].End(xlUp).Row
For M = 2 To X
If Sheet2.Cells(M, 1) = Sheet1.Cells(4, 1) Then
  Sheet1.Cells(4, 2) = Sheet2.Cells(M, 2)
    Y = Y + 1
  End If
  Next
End Sub


Sub 修改儲存()
X = Sheet2.[b65536].End(xlUp).Row
For M = 2 To X
If Sheet2.Cells(M, 1) = Sheet1.Cells(4, 1) Then

  Sheet2.Cells(M, 2) = Sheet1.Cells(4, 2)
    Y = Y + 1
  End If
  Next
End Sub

---

作者: caimy    時間: 2016-2-26 08:32

本帖最後由 caimy 於 2016-2-26 08:35 編輯

謝謝rouber590324大大的幫忙，試用沒問題感謝:)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)