巴倫西亞語翻譯
'Long 是數值屬於正負整數 2147483648 (Long是長整數,資料量大的時辰合用翻譯社但效能下降)
'建立 沒有限制巨細/沒有限制內容物 的巨集 新下載資料match
PS:半主動就是手動選擇欲履行的巨集
但花了良多時候和查了許多資料,並沒有找到一個適合的解決方案或是庖代的方案...
希望高手指導~ >"<
'選擇 "搜尋表" 工作表
'變數i+1翻譯社繼續履行迴圈,直到 i=LB 終止 (每每會省略Next i中的i)
功能今朝有:
'選擇 當前的活頁簿翻譯社的 "新下載資料" 工作表
需要提示和便利後人接辦
1. 統計那些環節字對照多人查詢
2. 那些檔案常常被調閱
3. 誰常常在利用搜索器
'Select 有選擇 或 點選的意思
因工作需要,必須進修利用Java編寫網頁和Excel VBA編寫平常工作巨集...
'則 跳出 當前迴圈(For k)
ActiveWorkbook.Worksheets("搜索表").Select
目前卡在Match查對的部份,不知道哪裡犯錯,懇請高手協助指導,或是可以精簡巨集... >"<
End Sub
'則 履行以下指令
'若 "新下載資料" 工作表翻譯社的 單格(i,2),的 值 = "搜索表" 工作表,的 單格(k翻譯社2),的 值
(如果我或後人寫得出來的話)
由於是新手
'則 跳出 當前迴圈(For i)
ActiveWorkbook.Worksheets("新下載資料").Select
Rows(i).Select
'竣事迴圈 (If->End If是一個完全的迴圈翻譯社1個完整的條件式動作)
Cells(i, 2).Select
For i = 2 To LB
Sheets("搜尋表").Select
'全部巨集的意思就是,將 "新下載資料"工作表 第一筆資料(i) 與 "搜索表"工作表 第一筆資料(k) 做 查對
故寫了良多註釋和本身的理解...
'若 單格(i,2),的 值 = 空值
若 工作表A 沒有 工作表B 的資料
Sub 新下載資料match()
ActiveSheet.Paste Rows(k)
'Sheets = 所有活頁簿 但又指定 "新下載資料" 所以 Sheets("新下載資料") 跟 Worksheets("新下載資料") 是統一個意思
附上VBA巨集:
目前問題卡在 當華頓翻譯公司履行的時辰
'如有吻合 就跳出迴圈 讓下一筆(i+1) 與 (k) 從頭查對
1. 半主動抓取指定資料夾的所有檔案(B欄)
2. 半主動將抓取後的檔案,超保持到該檔案(C欄)
3. 純手動複製檔案裡文字的部門,貼到工作表中(D欄)
4. 半自動抓取新增資料夾的檔案(工作表B),並與舊資料(工作表A)查對,若A沒有,就將A貼到B的最下方空白處
5. 搜索關鍵字,可將包含關鍵字的檔案列表翻譯社後面還標示該檔案包含的文字內容(也會搜索內容),功能類似Google蒐尋器
可能會看的不習慣~ >"<
將來可能還會:
'因為是照遞次查對翻譯社所以會貼到由上至下的第一個空格處
'備註:跳出迴圈 For 的指令翻譯社不算在 If跟End If 之間的 迴圈,故不需用Else If
就會複製 工作表B 的資料到 工作表A 的最下方空白處
'重複履行 陣列i 且 i=2到LB 的所有格數
做這個VBA巨集的起因...
End If
會複製 工作表B 的 第4筆資料翻譯社貼到 工作表A 的 第4筆資料(第4列的意思)
LB = Worksheets("新下載資料").Range("C500000").End(xlUp).Row
If Cells(k翻譯社 2).Value = "" Then
感恩!!!
Dim k As Long, i As Long
'選擇 列(i)
If Worksheets("新下載資料").Cells(i, 2).Value = Worksheets("搜索表").Cells(k, 2).Value Then Exit For
'變數LA = "搜尋表" 工作表,的 單格 C500000 到 C500000 最上方邊緣翻譯社的全列所有資料
Rows(i).Copy
Next
'對 列(k) 做 貼上的動作
'選擇 單格 (i翻譯社2)
是因為主管要求要在公司的網路磁碟機裡,
Sheets("新下載資料").Select
Next
'若(i) 與 全部 "搜尋表"工作表 的資料(k=2...LA) 都不吻合,就將 該列(i) 複製 貼到 列(k)=空值 的地方
今朝梗概是如許...
'宣告 變數k 屬於 Long這個類型的資料,宣佈 變數i 屬於 Long這個類型的資料
If Cells(i, 2).Value = "" Then Exit For
'若沒有吻合 就將(i) 與 下一筆(k+1) 繼續查對
'選擇 "新下載資料" 工作表
'變數LB = "新下載資料" 工作表,的 單格 C500000 到 C500000 最上方邊沿,的全列所有資料
用Excel VBA建構一套搜索系統...
附上工作表B(示意圖):
不是我要的了局...
For k = 2 To LA
附上工作表A(示意圖):
'選擇 當前的活頁簿,的 "搜尋表" 工作表
'貼上後,(i+1) 開始 繼續 查對翻譯社直到 (i)=LB 為止
'若 單格(k翻譯社2),的 值 = 空值
'宣佈 變數LA 屬於 Long這個類型的資料翻譯社宣佈 變數LB 屬於 Long這個類型的資料
Dim LA As Long, LB As Long
可是因為可以檢查是否我理解毛病... 照樣附上去了~
'新下載資料比對舊資料找無則新增
'複製 列(i)
'變數i+1,繼續履行迴圈,直到 i=LA 終止 (平日會省略Next i中的i)
'反複履行 陣列k 且 k=2到LA 的所有格數
來自: https://www.mobile01.com/topicdetail.php?f=511&t=5565036有關各國語文翻譯公證的問題歡迎諮詢華頓翻譯公司02-77260932
留言列表
