cypd

¦^´_ 12# samwang

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

¤U¸ü (187.2 KB)

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)

¤U¸ü¦¸¼Æ: 2

2021-11-11 21:00

samwang

¦^´_ 11# cypd

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

cypd

¦^´_ 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±Æ§Ç?

samwang

¦^´_ 9# cypd

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test2()
Dim Arr, i&
With Sheets("¤u§@ªí1")
    Arr = .Range(.[i3], .[a65536].End(3))
    For i = 1 To UBound(Arr)
        If Arr(i, 8) = 0 Then Arr(i, 9) = "¦¨¥\"
        If Arr(i, 8) = 1 Then Arr(i, 9) = "¥¢±Ñ"
    Next
    [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

cypd

¦^´_ 8# samwang

¤ô°Õ!!¯uªº«D±`·PÁ  samwang  ªº¦^ÂР ^^

°w¹ï  samwang  6¼Ó¥H¤U­ì©lªº¦^ÂÐ

Sub test()
Dim Arr
Sheets("¤u§@ªí1").Copy After:=Sheets(Sheets.Count)
With Range([a2], [i65536].End(3))
    Arr = .Value
    .Value = Arr
    .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
End With
End Sub

¡°­Y I Äæ¦^ÂÐÄæ¦ì¦¨¥\»P¥¢±Ñ(=IF(H3="","",IF(H3=0,"¦¨¥\","¥¢±Ñ"))
¨t¨Ì¾Ú H Ä椺¥N½X 0 »P 1 (¦¨¥\-0 ,¥¢±Ñ-1)©Ò²£¥Í
³Â½Ð samwang ¬O§_¯à±N6¼Ó­ì©l½X­×¥¿¡A±N I Äæ¦^ÂÐÄæ¦ì¦¨¥\»P¥¢±Ñ¨ç¼Æ¤½¦¡(=IF(H3="","",IF(H3=0,"¦¨¥\","¥¢±Ñ"))¡A¥H VBA ¤è¦¡¥[¤J6¼Ó­ì©l½X²£¥Í¡K
¦A¨Ì©Ò»Ý±ø¥ó¡K...±Æ§Ç ¥¢±Ñ¥ý ¦¨¥\¦b«á¡K¥t¦s¤@¤u§@ªí(±Æ§Ç«á)

¤U¸ü (155.05 KB)

2021-11-9 12:45

samwang

¦^´_ 7# cypd

Sub test()
With Sheets("¤u§@ªí1")
    R = .Range("e65536").End(3).Row
    .Range("e3:e" & R).Copy Sheets("Âà´«¸ê®Æ").[a2]
    .Range("g3:g" & R).Copy Sheets("Âà´«¸ê®Æ").[b2]
End With
End Sub

cypd

¦^´_ 6# samwang


«D±`·PÁ  samwang  ªº¦^ÂÐ
¤w´ú¸Õ§¹¦¨!§Æ±æµ²ªG¥¿¬O§Ú©Ò»Ý¨Dªº   ^^

¥t¥~¦³¤@°ÝÃD
§Æ±æ±N¤u§@ªí1¤º EÄæ¥þ³¡¦©±b¼Æ¾Ú¤Î G Äæ¶O¥Î¥þ³¡¼Æ¾Ú(µ§¼Æ¸ê®Æ¤£©T©w)
§Æ±æ¥Î VBA µ{¦¡½X¤è¦¡±N¦¹¤GÄ檺¼Æ¾Ú¥þ³¡½Æ»s¨ìÂà´«¸ê®Æ¤u§@ªí AÄæ(¦©±b) BÄæ(¶O¥Î)¤§¬ÛÃöÄæ¦ì¤º¡K

¤U¸ü (173.8 KB)

2021-11-9 03:31

1109.rar (80.44 KB)

¤U¸ü¦¸¼Æ: 4

2021-11-9 03:32

samwang

¦^´_ 1# cypd

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr
Sheets("¤u§@ªí1").Copy After:=Sheets(Sheets.Count)
With Range([a2], [i65536].End(3))
    Arr = .Value
    .Value = Arr
    .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
End With
End Sub

cypd

¦^´_ 3# hcm19522


·P®¦  hcm19522  ...¨Ì©Ò¥Ü°}¦C¤½¦¡

¤w¦¨¥\«ö©Ò»Ý±ø¥ó...±Æ§Ç ¥¢±Ñ¥ý ¦¨¥\¦b«á   ^^

cypd

¦^´_ 2# ­ã´£³¡ªL

·PÁª©¥D ­ã´£³¡ªL  ¤£§[«ü¾É

§Æ±æµ²ªG¬O¯à±Nªñ¤dµ§ªº¼Æ¾Ú¿é¤J©Î¶K¤W¬ÛÃö¼Æ¾Ú¤§«á
·s¤u§@ªí´N¯à§e²{©Ò»Ýµ²ªG(À³¸Ó¬O«ü¹w³]¤½¦¡©Î¬O¥HVBA...¶i¦æ±Æ§Ç)