返回列表 上一主題 發帖

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

plyl

帖子
9 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2011-3-20 
最後登錄
2024-5-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-3-21 10:28 | 只看該作者

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

本帖最後由 plyl 於 2011-3-21 10:39 編輯

Private Sub AA_Click()
Dim myrow, myrow2 As Integer

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


麻煩大大幫我解析哪裡出錯謝謝感恩
初學者
收藏 分享
plyl

GBKEE

帖子
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 10:39 | 只看該作者
If Sheets("資料檔(材料)").Cells(myrow2, 1) = Sheets("TEST").Cells(myrow, 1)  AND  Sheets("資料檔(材料)").Cells(myrow2, 18) Then

TOP

plyl

帖子
9 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2011-3-20 
最後登錄
2024-5-28 
3#
發表於 2011-3-21 11:09 | 只看該作者
出現  型態不符合 (錯誤 13)

初學者
plyl

TOP

GBKEE

帖子
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-21 14:16 | 只看該作者
回復 1# plyl
3.完全吻合就將資料檔("A3")貼到TEST ("B4")
這句對嗎?
是否是   完全吻合就將 "資料檔"的資料 從TEST ("B4")往下貼上
  1. Option Explicit
  2. '註:1.我有兩個工作表"TEST' "資料檔"
  3.    '2.TEST("A4:A50")與資料檔("A2:A500")做比對
  4.    '3.完全吻合就將資料檔("A3")貼到TEST ("B4")
  5. Private Sub AA_Click()
  6.     Dim myrow, myrow2, myrow3 As Integer
  7.     myrow3 = 4
  8.     For myrow = 4 To 50
  9.         For myrow2 = 2 To 5000
  10.             If Sheets("TEST").Cells(myrow, 1) = Sheets("資料檔").Cells(myrow2, 1) Then
  11.                     Sheets("TEST").Cells(myrow3, 2) = Sheets("資料檔").Cells(myrow2, 1)
  12.                     myrow3 = myrow3 + 1
  13.             End If
  14.         Next
  15.     Next
  16. End Sub
複製代碼

TOP

plyl

帖子
9 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2011-3-20 
最後登錄
2024-5-28 
5#
發表於 2011-3-21 15:53 | 只看該作者
3.完全吻合就將資料檔("A3")貼到TEST ("B4")
是"D3"
myrow3 = myrow3 + 1 "原來重點就在這"
我又在這後面又加一行不然跳不出去
If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For

GBKEE版主 辛苦您了!小弟由衷感謝
plyl

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 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

plyl

帖子
9 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2011-3-20 
最後登錄
2024-5-28 
7#
發表於 2011-3-21 19:20 | 只看該作者
本帖最後由 plyl 於 2011-3-21 19:23 編輯
回復  plyl
Private Sub AA_Click()
    Dim myrow, myrow2, myrow3 As Integer
    myrow3 = 4
    F ...
GBKEE 發表於 2011-3-21 17:28


   {原來是這樣放
   是不是For myrow = 4 To 50 如果20是空格 會離開For myrow 的回圈}

   Dim myrow, myrow2, myrow3 As Integer

    myrow3 = 4

    For myrow = 4 To 50

        For myrow2 = 3 To 5000

            If Sheets("TEST").Cells(myrow, 1) = Sheets("資料檔(材料)").Cells(myrow2, 1) Then
                    '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

        Next

    Next

GBKEE版主 辛苦您了!小弟由衷感謝
plyl

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 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

plyl

帖子
9 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2011-3-20 
最後登錄
2024-5-28 
9#
發表於 2011-3-23 05:59 | 只看該作者
本帖最後由 plyl 於 2011-3-23 06:01 編輯

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

Sheets("資料檔(材料)").Cells(myrow2, 1)  有資料

方法1
Dim myrow, myrow2, myrow3 As Integer

    myrow3 = 4

    For myrow = 4 To 50
    If Sheets("TEST").Cells(myrow, 1) <> "" Then        For myrow2 = 3 To 5000

            If Sheets("TEST").Cells(myrow, 1) = Sheets("資料檔(材料)").Cells(myrow2, 1) Then
                    '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
            
            End If

        Next
    End If    Next

方法2
Dim myrow, myrow2, myrow3 As Integer

    myrow3 = 4

    For myrow = 4 To 50

        For myrow2 = 3 To 5000

            If Sheets("TEST").Cells(myrow, 1) = Sheets("資料檔(材料)").Cells(myrow2, 1) Then
                    '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

        Next

    Next
目前測試兩種方法多可以抓到資料
請問方法2的結構是不是錯的
GBKEE版主 辛苦您了!小弟由衷感謝
plyl

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 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

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題