返回列表 上一主題 發帖

[發問] 查詢資料後修改變更

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-3 00:10 | 只看該作者

[發問] 查詢資料後修改變更

請問當我B資料查詢A資料資訊後
修改B資料內容可以更改A資料資訊內容，應該怎樣寫
如附件
謝謝
AAA.rar (27.64 KB)
收藏 分享

solely

帖子
92 
主題
18 
精華
0 
積分
195 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台北 
註冊時間
2010-8-15 
最後登錄
2011-8-11 
2#
發表於 2011-6-3 22:01 | 只看該作者
回復 1# 霸氣走全身
  1. Sub repair()
  2. Dim r, s
  3.     For r = 2 To Sheets("查詢").[C65536].End(xlUp).Row
  4.        For s = 2 To Sheets("號碼").[A65536].End(xlUp).Row
  5.          If Sheets("號碼").Cells(s, 1) = Sheets("查詢").Cells(r, 3) Then
  6.            Sheets("號碼").Cells(s, 16) = Sheets("查詢").Cells(r, 18)
  7.          End If
  8.        Next
  9.     Next
  10. End Sub
複製代碼

TOP

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
3#
發表於 2011-6-4 18:28 | 只看該作者
謝謝大大解答

TOP

sheau-lan

帖子
96 
主題
24 
精華
0 
積分
149 
點名
0  
作業系統
WINDOWES 
軟體版本
OFFICE 
閱讀權限
20 
性別
女 
註冊時間
2011-10-11 
最後登錄
2018-9-25 
4#
發表於 2012-10-25 21:05 | 只看該作者
想請問各位高手
如果這一個檔案有2個"號碼"的工作表它的程式會抓2次ㄟ
為啥阿.只要有相關資料都會抓出來
可以只抓固定工作表嗎?

TOP

sheau-lan

帖子
96 
主題
24 
精華
0 
積分
149 
點名
0  
作業系統
WINDOWES 
軟體版本
OFFICE 
閱讀權限
20 
性別
女 
註冊時間
2011-10-11 
最後登錄
2018-9-25 
5#
發表於 2012-10-25 21:34 | 只看該作者
同一個問題
如果這個檔案有只到說查詢後作修正可以覆蓋過去
不過有向只固定欄位
如果我想要不管哪一個欄位都可以修正後更新應該怎麼做

TOP

a38480912

帖子
22 
主題
7 
精華
0 
積分
58 
點名
0  
作業系統
XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-2 
最後登錄
2024-5-18 
6#
發表於 2024-3-24 19:46 | 只看該作者
太好了 剛好也遇到一樣的問題
有範例可以參考

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題