派車表_撥亂轉正 - Excel程式區 - 麻辣家族討論版版

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 204
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-5

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

12^#

發表於 2021-4-12 21:00 | 顯示全部帖子

本帖最後由 BV7BW 於 2021-4-12 21:01 編輯

回復 17# samwang

S大大你好
工作表4剛剛你是以"01-A001"."02-A008.".03-A003....以編號前2碼(01)順序排列
需求是以"01-A001"."08-A002".""03-A003"以編號後(01)後2碼作為順序排列

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 204
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-5

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

13^#

發表於 2021-4-12 21:29 | 顯示全部帖子

回復 19# samwang
謝謝 S 大大
正是需求無誤
已可以由編號後2碼整合
在請問.如需用3碼.可再幫程式後加上註解?
** For i = 2 To UBound(Arr)**

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 204
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-5

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

14^#

發表於 2021-4-12 22:11 | 顯示全部帖子

回復 22# samwang

謝謝你 S大大
有註解我可再深入理解
再次謝謝你

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 204
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-5

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

15^#

發表於 2021-4-13 07:25 | 顯示全部帖子

回復 22# samwang
S大大你好
工作表4中以編號xx-A001.""A""開頭 'If InStr(Arr(i, 2), "A") Then '編號有 A
如以""B""或""C""……..開頭.出現錯誤
現以""A""開頭.只能單一運用
如能加上""B"".""C""……….或者只以編號後3碼作為轉換資料基點.而後3碼有S一樣列在最後
這樣運用變化比較靈活
謝謝你 S 大大

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 204
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-5

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

16^#

發表於 2021-4-13 11:40 | 顯示全部帖子

謝謝 S 大大
目前運作順暢
感謝你勞心賜教謝謝

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 204
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-5

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

17^#

發表於 2021-4-15 08:12 | 顯示全部帖子

回復 8# 軒云熊

S 大大你好
車編重整後.編號是由01.順序排列
現需求以A001.B001.C001順序排列
謝謝你勞心

客戶重整.zip (21.71 KB)

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 204
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-5

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

18^#

發表於 2021-4-15 08:16 | 顯示全部帖子

回復 27# BV7BW
抱歉
熊大大
又把稱號錯亂

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 204
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-5

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

19^#

發表於 2021-4-15 19:25 | 顯示全部帖子

回復 30# samwang
謝謝 S大大
完全符合重整後編號
再次謝謝你 S 大大你勞心指導
謝謝你

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 204
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-5

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

20^#

發表於 2021-4-22 05:44 | 顯示全部帖子

回復 30# samwang
s大大你好
版本轉到正常使用版本會出現
Arr(i, 11) = Int(Right(Arr(i, 2), 3)) '除了編號S以外，取最後3碼的整數，數值裝入Arr(i,11)
這段錯誤
執行階段錯誤'13'
型態不符合
我改很久.像改儲存格改為文字
一樣不行
請幫解惑謝謝

活頁簿1.zip (43.71 KB)

敏而好學,不恥下問