vlookup速度慢，使用vba取代的程式碼 - Excel程式區

1 23

返回列表下一主題上一主題發帖

[發問] vlookup速度慢，使用vba取代的程式碼

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

21^# 跳轉到 »

發表於 2018-11-25 11:46 | 只看該作者

回復 20# Qin

Sub CopyPaste()
Dim xA As Range, xB As Workbook, xS As Worksheet, Chk%
Set xA = ActiveSheet.UsedRange
Application.ScreenUpdating = False
Set xB = Workbooks.Open(ThisWorkbook.Path & "\bcca.xls", Password:="1234")
For Each xS In xB.Sheets
If Left(xS.Name, 6) = "w_PRG_" Then Chk = 1: Exit For
Next
If Chk = 0 Then MsgBox "工作表〔w_PRG〕不存在！　": Exit Sub
With xS
.Unprotect "pass"
.UsedRange.Clear
   xA.Copy .[A1]
   .UsedRange.Font.Color = vbWhite
   .Name = "w_PRG_" & Format(Date, "yyyymmdd")
   .Protect "pass"
End With
xB.Close 1
MsgBox "複製完成！　"
End Sub

TOP

Qin

中學生 Rank: 2

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

22^#

發表於 2018-11-25 18:33 | 只看該作者

回復 21# 准提部林

准大
以上的問題解決了, 實在是太棒了,它簡化了我工作的流程. 感激!!

不好意思, 還有一點小問題
之前沒注意到...

1) 想將 L ,M 單元格的資料 copy 去 A & B 欄里,
為何C , F & G 的資料就抓不出來了??

2) 有時會因為手誤, 誤刪A欄的資料, 為何不能用" Ctrl Z" Undo 重新叫出來?

bcca2.rar (43.29 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

23^#

發表於 2018-11-25 19:37 | 只看該作者

回復 22# Qin

１）要去了解每一行程式碼的意思, 不然問一堆會沒完沒了～～～～
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xR As Range, xF As Range, xCr, xCf, j%
xCr = Array(3, 6, 7)
xCf = Array(2, 4, 5)
With Target.Columns(1)  '貼入或輸入區的第一欄
   If .Column <> 1 Then Exit Sub
   For Each xR In .Cells
      If .Row = 1 Then GoTo 101
      xR(1, 3).Resize(1, 5).ClearContents
      If xR = "" Then GoTo 101
      Set xF = Sheet1.[A:A].Find(xR, LookAt:=xlWhole, MatchCase:=False)
      If xF Is Nothing Then GoTo 101
      For j = 0 To UBound(xCr)
         xR(1, xCr(j)) = xF(1, xCf(j)).Value
      Next j
101: Next
End With
End Sub
　
２）CHANGE觸發的程式，就無法再使用〔復原〕！
　
　
　

TOP

Qin