返回列表 上一主題 發帖

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

plyl

帖子
9 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2011-3-20 
最後登錄
2017-2-24 
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

plyl

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

初學者
plyl

TOP

plyl

帖子
9 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2011-3-20 
最後登錄
2017-2-24 
3#
發表於 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

plyl

帖子
9 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2011-3-20 
最後登錄
2017-2-24 
4#
發表於 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

plyl

帖子
9 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2011-3-20 
最後登錄
2017-2-24 
5#
發表於 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

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題