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

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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2021-4-5 20:53 | 只看該作者

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

各位先[進老師大家好
有個2問題請先進老師幫解惑
在工作表1A:D欄中.由編號中前2碼數字大小
轉換成(附件A車.&B車.&C車.&阿宏.&阿一)並加上線框.單號不變
如沒有編號碼就列入最後.如2位相同就並列
1)工作表1需求:可直接由B1做轉換後直接填入.
            客戶1就不用填入籃號1及編號1需加入
   其缺點:是籃號不會因車別而變動.
            易肇成誤投籃筐(A車投入B車).因籃號相同

            或者用2段式轉換
            由B1中去列出資料後.在另行轉換動作.單號不變
            當列出資料後.再去更改籃號後轉換
2)工作表4需求:由"F1"(車編)作基點.並由編號前2碼作順序排列
            也就是說把(A車)&(B車)&(C車)....組合一起
            以編號前2碼大小順序排列
            沒編號者以車編為主.列入該車編之最後.相同編號時並列
如可在程式後加以註解謝謝
  這裡先謝謝各位先進老師們勞心

派車表-撥亂轉正.zip (42.77 KB)

樓主熱帖

敏而好學,不恥下問

BV7BW

中學生 Rank: 2

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

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

34^#

發表於 2021-4-22 14:40 | 只看該作者

回復 33# samwang
謝謝 s大大
現在轉至正常使用版以非常順暢使用
謝謝你

敏而好學,不恥下問

TOP

samwang

大學生 Rank: 4

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

33^#

發表於 2021-4-22 07:09 | 只看該作者

回復 32# BV7BW

請在試看看，謝謝。

Sub 復整2()
Dim Arr
With Sheets("工作表3")
   With .Range(.[k1], .[a65536].End(3))
      Arr = .Value '資料裝入Arr
      For i = 2 To UBound(Arr)
            If Arr(i, 2) = "" Then GoTo 99  '空白就換下一個
            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
99:    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

BV7BW

中學生 Rank: 2

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

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

32^#

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

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

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

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

31^#

發表於 2021-4-15 19:25 | 只看該作者

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

敏而好學,不恥下問

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

軒云熊