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

[µo°Ý] ¤ñ¹ï¡]¼Æ²Õ¡^

¬Ý¤£À´»Ý¨D¤Î­n³B²zªº¬yµ{~~
[¶×¤J]¤Î[§ó·s]¬O¤£¦Pªº,
[¹L±b]¤S¬O«ç§P©w??

TOP

¦^´_ 3# s7659109


¬JµMKÄæ¤w¦³¡eµù°O¡f¡A§Y¥i¾Ì¦¹²¤¹L¶×¤J¡A¦ó¥²¦A¥ÎA&B&C¥h¤ñ¹ï¡H¡H¡H

©Ò¿×ªº¡eÂê¦í¡f¡A¬O«ü¡e«OÅ@¤u§@ªí¡f¡H¡H¡H

TOP

¦^´_ 5# s7659109
Sub ¶×¤J()
Dim Arr, Brr, xD, r&, i&, j%, T$, xU As Range, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([¶×Á`!C1], [¶×Á`!A65536].End(xlUp))
For i = 2 To UBound(Arr)
    xD(Arr(i, 1) & Arr(i, 2) & Arr(i, 3)) = 1
Next i
Application.ScreenUpdating = False
With Sheets("data")
     .Unprotect
     .[A:K].Locked = False
     Set xU = .[A1:K1]
     r = .[A65536].End(xlUp).Row
     Arr = .Range("A1:J" & r)
     Brr = .Range("K1:K" & r)
     For i = 2 To r
         If Val(xD(Arr(i, 1) & Arr(i, 2) & Arr(i, 3))) <> 1 Then
            N = N + 1
            For j = 1 To 10: Arr(N, j) = Arr(i, j): Next
         End If
         Brr(i, 1) = "v"
         Set xU = Union(xU, .Cells(i, 1).Resize(1, 11))
     Next i
     .[K1].Resize(r) = Brr
     xU.Locked = True
     .EnableAutoFilter = True
     .Protect Contents:=True, UserInterfaceOnly:=True
End With
If N = 0 Then Exit Sub
[¶×Á`!B:B].NumberFormatLocal = "@"
[¶×Á`!A65536].End(xlUp)(2).Resize(N, 10) = Arr
End Sub

Xl0000235(¶×¤J).rar (18.51 KB)

TOP

¦^´_ 7# s7659109

­ÈÂà­È ©Î ¤å¦rÂà­È
val(1)=1
val("1")=1
val("")=0
val("a")=0

TOP

¦^´_ 9# s7659109

[¶×Á`!B:B].NumberFormatLocal = "@"
§Y¬O[®æ¦¡]³]©w, ¦Û¦æ¥Î[¿ý»s]§Y¥i¨ú±o®æ¦¡,
©Î¤â°Ê¹w¥ý[¾ãÄæ]³]©w!!!

¸Ü»¡, ¶Q ´£°Ý©«¤]µo¤F¤£¤Ö, ¬Ý¨º»ò¦h§O¤H¼gªºµ{¦¡½X,
³oºØ²³æªºvba, ¤]À³¦Û¤v¥i¥H°µ¥X¨Ó~~~

´£¨Ñµ{¦¡½X, ¬O§Æ±æµ¹¤H¾Ç²ß¦A®M¥Î¦ÜÃþ¦ü»Ý¨D¤W,
§_«h¶È¬O[«È»s¤Æ]ªº¥Î³~,¥Î§¹§Y¥á ~~°®¯Ü±µ®×¥h¤F~~~

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD