TEST與資料檔(材料)工作表比對

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-3-21 10:39 | 顯示全部帖子

If Sheets("資料檔(材料)").Cells(myrow2, 1) = Sheets("TEST").Cells(myrow, 1) AND Sheets("資料檔(材料)").Cells(myrow2, 18) Then

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-3-21 14:16 | 顯示全部帖子

回復 1# plyl
3.完全吻合就將資料檔("A3")貼到TEST ("B4")
這句對嗎?
是否是完全吻合就將 "資料檔"的資料從TEST ("B4")往下貼上

Option Explicit
'註:1.我有兩個工作表"TEST' "資料檔"
'2.TEST("A4:A50")與資料檔("A2:A500")做比對
'3.完全吻合就將資料檔("A3")貼到TEST ("B4")
Private Sub AA_Click()
Dim myrow, myrow2, myrow3 As Integer
myrow3 = 4
For myrow = 4 To 50
For myrow2 = 2 To 5000
If Sheets("TEST").Cells(myrow, 1) = Sheets("資料檔").Cells(myrow2, 1) Then
Sheets("TEST").Cells(myrow3, 2) = Sheets("資料檔").Cells(myrow2, 1)
myrow3 = myrow3 + 1
End If
Next
Next
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-3-21 17:28 | 顯示全部帖子

回復 5# plyl
Private Sub AA_Click()
Dim myrow, myrow2, myrow3 As Integer
myrow3 = 4
For myrow = 4 To 50
   If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For   是加在這裡嗎?
錯了, 假如上式的myrow=10 且  Sheets("TEST").Cells(myrow, 1) = ""  會離開For myrow 的回圈
那  myrow的 11,12,13....... 的Sheets("TEST").Cells(myrow, 1) 就比對不到了
請改成
If Sheets("TEST").Cells(myrow, 1) <> "" Then
      For myrow2 = 2 To 5000
         If Sheets("TEST").Cells(myrow, 1) = Sheets("資料檔").Cells(myrow2, 1) Then
                  Sheets("TEST").Cells(myrow3, 2) = Sheets("資料檔").Cells(myrow2, 1)
                  myrow3 = myrow3 + 1
         End If
      Next
End If
Next
End Sub

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-3-22 11:34 | 顯示全部帖子

回復 7# plyl
If Sheets("TEST").Cells(myrow, 1) = Sheets("資料檔(材料)").Cells(myrow2, 1) Then
如這條件成立時  請問Sheets("資料檔(材料)").Cells(myrow2, 1)是有資料的嗎?
                  'ITO RECIPE
            Sheets("TEST").Cells(myrow3, 41) = Sheets("資料檔(材料)").Cells(myrow2, 32)
               'ITES 可RUN 01 OR 02
            Sheets("TEST").Cells(myrow3, 64) = Sheets("資料檔(材料)").Cells(myrow2, 33)
                  myrow3 = myrow3 + 1
         If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For    {我是放在這裡}
         如有資料上式永不會成立的
End If

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-3-23 07:13 | 顯示全部帖子

回復 9# plyl
方法2
If Sheets("TEST").Cells(myrow, 1) = Sheets("資料檔(材料)").Cells(myrow2, 1) Then
            'ITO RECIPE
            If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For  '放這裡才正確             Sheets("TEST").Cells(myrow3, 41) = Sheets("資料檔(材料)").Cells(myrow2, 32)
            'ITES 可RUN 01 OR 02
            Sheets("TEST").Cells(myrow3, 64) = Sheets("資料檔(材料)").Cells(myrow2, 33)
            myrow3 = myrow3 + 1
End If

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]