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

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

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

¸Ó¦p¦ó±N­ì©lÀÉ...¸ê®Æµ§¼Æ¤£©T©w(¤£¥H¸ê®Æ¿z¿ï¤â°Ê¤è¦¡½Æ»s¶K¤W)

§Æ±æµ²ªG¬O¨Ì·Ó­ì©lÀÉ I Ä椺¦^ÂЫö©Ò»Ý±ø¥ó
¥¢±Ñ(¥N½X 1 )¥þ³¡¥ý±Æ§Ç¤§«á¡A
¦A±Æ§Ç¦¨¥\(¥N½X 0 )¤§¤è¦¡¡A
¥t¦s¤@­Ó·sªº§¹¾ã¤u§@ªí(ÀɦW¬°-±Æ§Ç«á)



1106.rar (41.68 KB)

¦^´_ 21# samwang
«D±`·PÁ  samwang  ¤£§[«ü±Ð
©Ò­z°ÝÃD¤wª¾¬ÛÃöÄæ¦ì¤§­×¥¿«á
²£¥Í©Ò»Ý¥¢±Ñ¦¨¥\¤§±Æ§Ç¤w³BOK!
·P¶â   ^^

TOP

¦^´_ 20# cypd
½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("¤u§@ªí1")
    Arr = .Range(.[h3], .[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, 7)
    Next
    .[K3] = f: .[L3] = s: .[K4] = UBound(Arr): .[K5] = Cnt
    [a3].Resize(UBound(Arr), 8) = Arr
    .Copy After:=Sheets(Sheets.Count)
End With
With Range([a2], [h65536].End(3))
    .Sort Key1:=.Item(8), Order2:=2, Header:=xlYes
End With
End Sub

TOP

¦^´_ 19# samwang

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

1110927-1.rar (40.75 KB)

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

¦^´_ 17# samwang

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

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

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

¦^´_ 14# samwang

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

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



½Ð°Ý¤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

¦^´_ 14# samwang

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

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

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

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

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD