ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ì©Ò»Ý±ø¥ó ¥¢±Ñ ¦¨¥\ ­«·s±Æ§Ç...

¦^´_ 10# samwang

Æg°Õ!!  ·P®¦ samwang  ªº¦^ÂР ^^

°w¹ï©Ò¹J°ÝÃD¤w³v¤@³B²z§¹µ½...

¿é¤J¼Æ¾Ú©Î¶K¤W¼Æ¾Ú¤§«á°õ¦æ¸Ó¥¨¶°¶¶ºZ¨³³t

µ{¦¡½X¤¤  .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes

...½Ð°Ý¸Ó¬qµ{¦¡½X»¡©ú¬O«ü¦Û­q±Æ§Ç?

TOP

¦^´_ 11# cypd

µ{¦¡½X¤¤  .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
...½Ð°Ý¸Ó¬qµ{¦¡½X»¡©ú¬O«ü¦Û­q±Æ§Ç?
>>¬O

TOP

¦^´_ 12# samwang

¤£¦n·N«ä¦A«×³Ò³Â±z
°w¹ï¥H¤U°ÝÃD:

1111.jpg
2021-11-11 20:58


§Æ±æµ²ªG¤£¥H¨ç¼Æ¤½¦¡§e²{
¥H VBA µ{¦¡½X§e²{²Î­p
HÄ楢±Ñ(L3)¦¨¥\(M3)°Ï§O¤H¼Æ¤ÎÁ`¤H¼Æ(L4)
¨Ö­pºâ GÄæ©M°OÁ`¶O¥Î(L5)   ^^

1111.rar (45.31 KB)

TOP

¦^´_ 13# cypd

§Æ±æµ²ªG¤£¥H¨ç¼Æ¤½¦¡§e²{
¥H VBA µ{¦¡½X§e²{²Î­p
HÄ楢±Ñ(L3)¦¨¥\(M3)°Ï§O¤H¼Æ¤ÎÁ`¤H¼Æ(L4)
¨Ö­pºâ GÄæ©M°OÁ`¶O¥Î(L5)   ^^
>> ¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("¤u§@ªí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

¦^´_ 14# samwang

«D±`¤§Æg°Õ!!  ·P®¦ samwang  ¼ö¤ßªº¦^ÂÐ

¸g¹L¥©¤â½s´¦Ó¦¨ªº VBA µ{¦¡½X +-*/¹Bºâ¦Û¦p

©Ò´£°Ý¤§°ÝÃD¤w§¹¬ü³B²z§¹¦¨...ÁÂÁ±z   ^^

TOP

¦^´_ 14# samwang

·P®¦ samwang  ¼ö¤ßªº¦^ÂÐ
¸g¹L¥©¤â½s´¦Ó¦¨ªº VBA µ{¦¡½X +-*/¹Bºâ¦Û¦p

¤µ¦³¤@°ÝÃD½Ð°Ý
¦p¤WÀɮפµ­n§R°£ C Äæ1Äæ

sshot-1.jpg
2022-9-27 14:11


½Ð°Ý¤w¤U¸Ó¦p¦ó­×¥¿?¨Ì©Ò»Ý±ø¥ó ¥¢±Ñ ¦¨¥\ ­«·s±Æ§Ç
Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("¤u§@ªí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

·P®¦ samwang  ¼ö¤ßªº¦^ÂÐ
¸g¹L¥©¤â½s´¦Ó¦¨ªº VBA µ{¦¡½X +-*/¹Bºâ¦Û¦p

¤µ¦³¤@°ÝÃD ...
cypd µoªí©ó 2022-9-27 14:12

¦p¤WÀɮפµ­n§R°£ C Äæ1Äæ>>¬O³o¼Ë¶Ü?
Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("¤u§@ªí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

¦^´_ 17# samwang

«D±`·PÁ samwang  ¼ö¤ßªº¦^ÂÐ
(¤£¦n·N«ä°ÝÃD¨Sªí¹F²M·¡)

°ÝÃD¬OÀɮפ¤ªº C Äæ¤w§R°£ªº±¡ªp¤U...(ªþ¥óªºÀÉ®× C Äæ©|¥¼§R°£)

TOP

¦^´_  samwang

«D±`·PÁ samwang  ¼ö¤ßªº¦^ÂÐ
(¤£¦n·N«ä°ÝÃD¨Sªí¹F²M·¡)

°ÝÃD¬OÀɮפ¤ªº C Äæ¤w§R°£ ...
cypd µoªí©ó 2022-9-27 16:09


¤£¦n·N«ä¡A¦³ÂIµLªk²z¸Ñ±zªº»Ý¨D¡A½Ð¦A»¡©ú¤@¤U­ì¨Óª¬ªp/»Ý¨Dµ²ªG¡AÁÂÁÂ

TOP

¦^´_ 19# samwang

·PÁ±z@²Ó¤ß  ^^
¨Ì©Ò»Ý±ø¥ó ¥¢±Ñ ¦¨¥\ ­«·s±Æ§Ç
Àɮפwªþ...

1110927-1.rar (40.75 KB)

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD