ªð¦^¦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)

1) ¤â°Ê¼W«Ø¤u§@ªí:±Æ§Çªí
2) ­ìªí¡÷¥þ¿ï¡÷½Æ»s
3) ±Æ§Çªí¡÷¥þ¿ï¡÷¶K¤W, ½Æ»s¡÷¶K¤W­È
   ¿ï¨úh2¡÷»¼´î±Æ§Ç
4) ¤u§@ªí¡÷²¾°Ê©Î½Æ»s¡÷¤Ä¿ï"«Ø¥ß°Æ¥»"¡÷¦Ü"·s¬¡­¶Ã¯"¡÷¥t¦s·sÀÉ¡÷­«·s©R¦W¡÷Àx¦s

¼ô½mªº¸Ü, ¤£¶·¤@¤ÀÄÁ§a!

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

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

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

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

TOP

¦^´_ 3# hcm19522


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

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

TOP

¦^´_ 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

TOP

¦^´_ 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



1109.rar (80.44 KB)

TOP

¦^´_ 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

TOP

¦^´_ 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§@ªí(±Æ§Ç«á)

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD