轉換文字形式搜尋 - Excelㄧ般區

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 161
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-1

24^# 跳轉到 »

發表於 2021-9-9 19:41 | 只看該作者

本帖最後由 wayne0303 於 2021-9-9 19:55 編輯

回復 23# samwang

回復 wayne0303

我的欄列都會(不對等的)增加 >> 可以提供實際案例範例，且說明何謂不對等增加? 謝謝
, ↑↑↑不好意思我是指工作上會需要增加
...
samwang 發表於 2021-9-9 17:31

還有連結外部表格的時候會出現執行階段錯誤'1004': >> 請提供範例，謝謝
我就是把這邊的路徑改成公司的區網裡的檔案路徑而已Set WB = Workbooks.Open("公司路徑")，這個我也不知道怎麼提供範例...不能解就這樣吧

謝謝samwang大~

轉換文字形式搜尋_例.rar (17.61 KB)

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

23^#

發表於 2021-9-9 17:31 | 只看該作者

回復 22# wayne0303

我的欄列都會(不對等的)增加 >> 可以提供實際案例範例，且說明何謂不對等增加? 謝謝

還有連結外部表格的時候會出現執行階段錯誤'1004': >> 請提供範例，謝謝

TOP

wayne0303

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 161
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-1

22^#

發表於 2021-9-9 16:42 | 只看該作者

本帖最後由 wayne0303 於 2021-9-9 16:56 編輯

回復 20# samwang

samwang大又有問題了~
我的欄列都會(不對等的)增加
我修改了代碼(紅字)範圍部分但好像沒作用...
應該要再改哪邊呢？

Sub 更新()
Dim Arr, xD, T1$, T2$, T$, w1$, w2$, i&, j&, k%
Set xD = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set WB = Workbooks.Open("D:\資料夾123\活頁簿abc.xlsx")
Arr = Range("d3:w16")
WB.Close

For i = 2 To UBound(Arr) Step 6
k = k + 1
For j = 1 To UBound(Arr, 2)
T = Arr(i, j): If T = "" Then GoTo 99
xD(T & "_" & k) = Arr(i - 1, j)
Next j
99: Next i
....
...
....

還有連結外部表格的時候會出現執行階段錯誤'1004':

謝謝

2021-09-09_165136_New.jpg (20.28 KB)

TOP

wayne0303

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 161
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-1

21^#

發表於 2021-9-1 12:18 | 只看該作者

回復 20# samwang

非常感謝samwang大大不厭其煩的幫忙！

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

20^#

發表於 2021-9-1 07:11 | 只看該作者

回復 samwang

samwang大大~

2.如果我的表格是必需引用到外部的表格那我要改代碼的哪邊呢？這個 ...
wayne0303 發表於 2021-8-31 19:37

修改如紅字部分，請測試看看，謝謝
Sub 更新()
Dim Arr, xD, T1$, T2$, T$, w1$, w2$, i&, j&, k%
Set xD = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set WB = Workbooks.Open("D:\資料夾123\活頁簿abc.xlsx")
Arr = Range("d3:w16")
WB.Close

For i = 2 To UBound(Arr) Step 6
k = k + 1
For j = 1 To UBound(Arr, 2)
T = Arr(i, j): If T = "" Then GoTo 99
xD(T & "_" & k) = Arr(i - 1, j)
Next j
99: Next i
....
...
....

TOP

wayne0303