依所需條件失敗成功重新排序... - Excelㄧ般區

123 下一頁

返回列表下一主題上一主題發帖

[發問] 依所需條件失敗成功重新排序...

cypd

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

11^# 跳轉到 »

發表於 2021-11-10 14:07 | 只看該作者

回復 10# samwang

讚啦!! 感恩 samwang 的回覆 ^^

針對所遇問題已逐一處理完善...

輸入數據或貼上數據之後執行該巨集順暢迅速

程式碼中 .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes

...請問該段程式碼說明是指自訂排序?

TOP

samwang

大學生 Rank: 4

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

12^#

發表於 2021-11-10 14:25 | 只看該作者

回復 11# cypd

程式碼中 .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
...請問該段程式碼說明是指自訂排序?
>>是

TOP

cypd

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

13^#

發表於 2021-11-11 21:00 | 只看該作者

回復 12# samwang

不好意思再度勞麻您
針對以下問題:

希望結果不以函數公式呈現
以 VBA 程式碼呈現統計
H欄失敗(L3)成功(M3)區別人數及總人數(L4)
併計算 G欄和記總費用(L5) ^^

1111.rar (45.31 KB)

TOP

samwang

大學生 Rank: 4

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

14^#

發表於 2021-11-12 07:49 | 只看該作者

回復 13# cypd

希望結果不以函數公式呈現
以 VBA 程式碼呈現統計
H欄失敗(L3)成功(M3)區別人數及總人數(L4)
併計算 G欄和記總費用(L5) ^^
>> 如下，請測試看看，謝謝

Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("工作表1")
Arr = .Range(.[i3], .[a65536].End(3))
For i = 1 To UBound(Arr)
      If Arr(i, 8) = 0 Then s = s + 1: Arr(i, 9) = "成功"
      If Arr(i, 8) = 1 Then f = f + 1: Arr(i, 9) = "失敗"
      Cnt = Cnt + Arr(i, 7)
Next
.[L3] = f: .[M3] = s: .[L4] = UBound(Arr): .[L5] = Cnt
[a3].Resize(UBound(Arr), 9) = Arr
.Copy After:=Sheets(Sheets.Count)
End With
With Range([a2], [i65536].End(3))
.Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
End With
End Sub

TOP

cypd

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

15^#

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

回復 14# samwang

非常之讚啦!! 感恩 samwang 熱心的回覆

經過巧手編織而成的 VBA 程式碼 +-*/運算自如

所提問之問題已完美處理完成...謝謝您 ^^

TOP

cypd

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

16^#

發表於 2022-9-27 14:12 | 只看該作者

回復 14# samwang

感恩 samwang 熱心的回覆
經過巧手編織而成的 VBA 程式碼 +-*/運算自如

今有一問題請問
如上檔案今要刪除 C 欄1欄

請問已下該如何修正?依所需條件失敗成功重新排序
Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("工作表1")
Arr = .Range(.[i3], .[a65536].End(3))
For i = 1 To UBound(Arr)
      If Arr(i, 7) = 0 Then s = s + 1: Arr(i, 8) = "成功"
      If Arr(i, 7) = 1 Then f = f + 1: Arr(i, 8) = "失敗"
      Cnt = Cnt + Arr(i, 6)
Next
.[K3] = f: .[L3] = s: .[K4] = UBound(Arr): .[K5] = Cnt
[a3].Resize(UBound(Arr), 9) = Arr
.Copy After:=Sheets(Sheets.Count)
End With
With Range([a2], [i65536].End(3))
.Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
End With
End Sub

1110927.rar (46.3 KB)

TOP

samwang

大學生 Rank: 4

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

17^#

發表於 2022-9-27 15:54 | 只看該作者

回復 samwang

感恩 samwang 熱心的回覆
經過巧手編織而成的 VBA 程式碼 +-*/運算自如

今有一問題 ...
cypd 發表於 2022-9-27 14:12

如上檔案今要刪除 C 欄1欄>>是這樣嗎?
Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("工作表1")
Arr = .Range(.[i3], .[a65536].End(3))
For i = 1 To UBound(Arr)
      If Arr(i, 8) = 0 Then s = s + 1: Arr(i, 9) = "成功"
      If Arr(i, 8) = 1 Then f = f + 1: Arr(i, 9) = "失敗"
      Cnt = Cnt + Arr(i, 7)
Next
.[L3] = f: .[M3] = s: .[L4] = UBound(Arr): .[L5] = Cnt
[a3].Resize(UBound(Arr), 9) = Arr
.Copy After:=Sheets(Sheets.Count)
End With
With Range([a2], [i65536].End(3))
.Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
End With
Columns("C:C").Delete Shift:=xlToLeft
End Sub

TOP

cypd