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

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

21^# 跳轉到 »

發表於 2021-4-12 21:43 | 只看該作者

回復 20# BV7BW

Sub tt2()
Dim Arr
With Sheets("工作表4")
With .Range(.[k1], .[a65536].End(3))
      Arr = .Value '資料裝入Arr
      For i = 2 To UBound(Arr)
         If InStr(Arr(i, 2), "A") Then '編號有 A
            Arr(i, 11) = Int(Right(Arr(i, 2), 3)) '取最後3碼的整數，數值裝入Arr(i,11)
         Else
            Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"  '除了編號A以外的值，取-以後3碼整數+S，數值裝入Arr(i,11)
         End If
      Next
      .Value = Arr 'Arr值貼回excel
      .Sort Key1:=.Item(11), Order1:=1, Header:=1 '以K欄排序
End With
.Range("k1:k" & UBound(Arr)) = "" '清除K欄數值
End With
End Sub

TOP

samwang

大學生 Rank: 4

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

22^#

發表於 2021-4-12 21:47 | 只看該作者

回復 20# BV7BW

註解已補上，請自行調整運用，有問題再討論，謝謝

TOP

BV7BW

中學生 Rank: 2

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

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

23^#

發表於 2021-4-12 22:11 | 只看該作者

回復 22# samwang

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

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

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

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

24^#

發表於 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 大大

敏而好學,不恥下問

TOP

samwang

大學生 Rank: 4

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

25^#

發表於 2021-4-13 08:24 | 只看該作者

回復 24# BV7BW

請測試看看，謝謝
Sub tt3()
Dim Arr
With Sheets("工作表4")
   With .Range(.[k1], .[a65536].End(3))
      Arr = .Value '資料裝入Arr
      For i = 2 To UBound(Arr)
         If InStr(Arr(i, 2), "S") Then '編號有 S
               Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"  '編號S，取-以後3碼整數+S，數值裝入Arr(i,11)
         Else
               Arr(i, 11) = Int(Right(Arr(i, 2), 3)) '除了編號S以外，取最後3碼的整數，數值裝入Arr(i,11)
         End If
      Next
      .Value = Arr 'Arr值貼回excel
      .Sort Key1:=.Item(11), Order1:=1, Header:=1 '以K欄排序
End With
   .Range("k1:k" & UBound(Arr)) = "" '清除K欄數值
End With
End Sub

TOP

BV7BW

中學生 Rank: 2

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

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

26^#

發表於 2021-4-13 11:40 | 只看該作者

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

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

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

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

27^#

發表於 2021-4-15 08:12 | 只看該作者

回復 8# 軒云熊

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

客戶重整.zip (21.71 KB)

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

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

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

28^#

發表於 2021-4-15 08:16 | 只看該作者

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

敏而好學,不恥下問

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

29^#

發表於 2021-4-15 11:02 | 只看該作者

回復 28# BV7BW

甚麼稱號錯亂?

TOP

samwang

大學生 Rank: 4

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

30^#

發表於 2021-4-15 13:43 | 只看該作者

回復 27# BV7BW

不知道是不是你要的需求，請確認看看，謝謝。
Sub tt4()
Dim Arr
With Sheets("工作表1")
   With .Range(.[k1], .[a65536].End(3))
      Arr = .Value '資料裝入Arr
      For i = 2 To UBound(Arr)
            If InStr(Arr(i, 2), "S") Then '編號有 S
               Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"  '編號S，取-以後3碼整數+S，數值裝入Arr(i,11)
            Else
               Arr(i, 11) = Int(Right(Arr(i, 2), 3)) '除了編號S以外，取最後3碼的整數，數值裝入Arr(i,11)
            End If
      Next
      .Value = Arr 'Arr值貼回excel
      .Sort Key1:=.Item(6), Order1:=1, _
      Key2:=.Item(11), Order1:=1, Header:=1 '以F、K欄排序
End With
   .Range("k1:k" & UBound(Arr)) = "" '清除K欄數值
End With
End Sub

TOP

[發問] 派車表_撥亂轉正

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]