fyo00241

回復  GBKEE


    自己改的 不知如何
register313 發表於 2012-1-3 08:28

    大大再麻煩你寄給我,謝謝了!

fyo00241

回復  fyo00241
簡化 UserForm1各單位工作表的Worksheet_Change 可刪除置於ThisWorkbook 中
GBKEE 發表於 2012-1-1 09:31

大大這段錯誤:無物件With Cells(Rows.Count, "A").End(xlUp).Offset(1)   '工作表(ComboBox2)

fyo00241

大大再麻煩你寄給我,謝謝了!
fyo00241 發表於 2012-1-3 17:19

大大已收到了,測了一下速度也可以,但滑鼠執行時的圖示會久一點,不知是否正常..

lcc_seven

有沒有試過用Excel內建函數【VLOOKUP】，應該也蠻快的喔!

也可以把Excel內建函數寫在VBA裡，這樣程式只有短短幾行，不過語法我忘記了

缺點是工作表要有一個位置放對應表

晚上我再翻一下書把相關語法PO上來

fyo00241

有沒有試過用Excel內建函數【VLOOKUP】，應該也蠻快的喔!

也可以把Excel內建函數寫在VBA裡，這樣程式只有 ...
lcc_seven 發表於 2012-1-3 18:20

感謝大大,煩請你提供一下我在實作看看..謝謝!!

GBKEE

回復 20# fyo00241
建議樓主將所有資料置於一個資料庫(如:日記帳)

回復 22# fyo00241
2007 不行阿
請加上 With Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Offset(1)

lcc_seven

回復 25# fyo00241

我先將你提供的資料建立在G1:H25【cells(1,7),cells(25,8)】

再用PasteData()貼10000筆資料

因為我覺得比對的過程蠻像 Select Case ，所以Sub取名為LikeSelectCase()

你參考看看，一下子就完成了


Sub PasteData()

j = 1

For i = 1 To 10000
    Cells(i, 1) = Cells(j, 7)
    j = j + 1
    If j = 26 Then j = 1
Next i

End Sub

Sub LikeSelectCase()

For i = 1 To 10000

Cells(i, 2) = Application.WorksheetFunction.VLookup(Cells(i, 1), Range(Cells(1, 7), Cells(25, 8)), 2, False)

Next i

End Sub

下載 (116.01 KB)

2012-1-3 23:27