返回列表 上一主題 發帖

[發問] 查詢資料後修改回存

caimy

帖子
9 
主題
3 
精華
0 
積分
56 
點名
0  
作業系統
office 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
註冊時間
2013-8-18 
最後登錄
2017-9-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-2-25 09:22 | 只看該作者

[發問] 查詢資料後修改回存

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

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

收藏 分享

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 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
羅

TOP

caimy

帖子
9 
主題
3 
精華
0 
積分
56 
點名
0  
作業系統
office 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
註冊時間
2013-8-18 
最後登錄
2017-9-7 
3#
發表於 2016-2-26 08:32 | 只看該作者
本帖最後由 caimy 於 2016-2-26 08:35 編輯

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

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題