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

[µo°Ý] ½Ö¯àÀ°³o´X¥G­«½Æ°Ê§@ªºVBA½G¨­ ÁÂÁÂ

¦^´_ 20# don4831
"·í¤U" ¬O«ü¥u­n²M°£¥¿­n¶K­È¤§°Ï°ì ¤]´N¬O»¡¨ä¾l¤§«eªº­È¤£­n³Q²M°£
ÁÂÁ±zªº¥Î¤ß

TOP

§Ú¬ã§P§A»Ý­nªºÀ³¬O¡G
Sub clearRow()
    Worksheets(Array("ªR1", "ªR2", "ªR3", "ªR4", "ªR5", "ªR6", "ªR7", "ªR8", "ªR9", "ªR10")).Select
    lineBegin = Worksheets("Data").Range("K4") '°_¦æ
    Rows(lineBegin & ":" & Rows.Count).Select '¦Û§A«ü©wªº°_¦æ²M¨ì³Ì«á
    Selection.Clear
    Range("A1").Select
    Worksheets("ªR1").Select
End Sub
[color=blue]KY[/color]

TOP

¦^´_ 22# don4831
¨S¿ù ´N¬O³o¼Ë §Ú¥Ø«e§G§½±¡§Î¦p¤U¹Ï


²{¦b¦¡.jpg
2015-8-28 10:30

TOP

¦^´_ 19# lcctno


    §A¨Sª`·N§Ú¼gªºµ{¦¡¡C¥u¦³À°§A¶ñº¡¨C¶g»Ý¶ñº¡ªº´X¦æ¡C¦Ó¥B©Ò»Ý®É¶¡¸û¤Ö¡A´Nºâ¶ñº¡¦Ü65536³£OKªº
j4 = Sheets("DATA").[j4]''¬°²×¤î¦æ
dl = .[a65536].End(xlUp).Row¬°³o¶gªº¶}©l¦æ¡C

TOP

¦^´_ 24# lpk187
ÁÂÁ±z §Ú¤£¬O¨S¦³¬Ý ¦Ó¬O¬Ý¨ìªº¤º®e »P§Ú«Ü§Cµ{«×ªº"vba¯à¤O" ³y¦¨§Úªº»{ª¾»P¹ê»Ú­è¦n¬Û¤Ï (¬Ý¤£À´µ{¦¡½X ÀY«Ü¤j)
§Ú¯uªº¥uª¾¹D¸Ó¨BÆJ¸Ó«ç»ò¶i¦æ ¦ý«o¤£·|¼gµy·L½ÆÂøªºVBA ÁöµM±z¦³´£¨Ñµ{¦¡»yªk ¦ý¹ï¬Ý¤£À´ªº¤H ¹ê¦b¬O¥u¯à»¡ÁnÁÂÁ±z ¦]¬°ÁÙ¬O¤£ª¾¹D¸ÓÂ\¦b¨ºùØ  ....

TOP

¥ú¡e½Æ»s¡D¶K¤W¡f´N­n¯Ó¶O¤j¥b¤Ñ®É¶¡¡A¤×¨ä¤å¦r©Î¤½¦¡§ó¯Ó®É¡A
¨Ï¥Î°}¦Cª½±µ¹Bºâ¨ú¥Xµ²ªG¦A¶K¤J¡A¦]§PÂ_­È¥u¦³¢¯¤Î¢°¡A¶K¤J®ÉÁÙºâ§Ö¡A
Áö¬O³Ì°ò¥»ªº¡e°}¦C¡Darray¡f¹B¥Î¡A¦ý¹ïªì¾ÇªÌ¤]»á¦³Ãø«×¡A®¤µLªk¸Ñ»¡¡A°Ñ¦Ò§Y¥i¡G
test01.rar (139.58 KB)
¡@
­Y¸ê®Æ¤Ó¦h¡A¥i¯à³y¦¨°O¾ÐÅ餣¨¬°ÝÃD¡A¸Õ¸Õ¬Ý¡I
§Ú¥u´¡ªá¡A¦¹½×¾Â¦UªO¥D¬Ò¬O±M·~°ª¤â¡A¥i½Ð¨D¨ä¨ó§U¡I
¡@
Sub ¤ÀªR()
Dim Srr, Sht As Worksheet, Arr, Brr, Crr, X, Y, Z, R, TM
Dim i&, j&, k%, M, Mrr(1 To 2560, 1 To 2), S&, SU&

TM = Timer
R = [data!C65536].End(xlUp).Row
Arr = [Data!C1:D1].Resize(R)
X = [Data!I4]: If X < 2 Then X = 2
Y = [Data!J4]: If Y > R Then Y = R
Z = Y - X + 1: If Z <= 0 Then Exit Sub

ReDim Crr(X To Y, 1 To 256)
Application.ScreenUpdating = False
For i = 1 To 10
    Set Sht = Sheets("ªR" & i)
    Brr = Sht.Rows(1)
    For k = 1 To 256
        M = M + 1
        For j = X To Y
            If Brr(1, k) <= Arr(j, 1) And Brr(1, k) >= Arr(j, 2) Then S = 1
            Crr(j, k) = S: SU = SU + S: S = 0
        Next j
        Mrr(M, 1) = Brr(1, k):  Mrr(M, 2) = SU:   SU = 0
    Next k
    Sht.UsedRange.Offset(1, 0).ClearContents
    With Sht.[A2].Resize(Z, 256)
         Sht.Rows(2).Copy .Cells
         .Value = Crr
    End With
Next i

Sheets("µ²ªG").[A3:B3].Resize(M) = Mrr
MsgBox Timer - TM
End Sub

TOP

¥»©«³Ì«á¥Ñ lcctno ©ó 2015-8-28 12:55 ½s¿è

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

¬O¯à°õ¦æ¥B¶È¶È¼Æ¬í ¤]¤Ó§Ö¤F ¦ý ¥X¨Óªº­È¿ù»~(¥Ø«eªÑ»ù²Ö­pµo¥Í²v=100%) §Ú¨S¯à¤O¤F¸Ñ³o»ò²`ªº»yªk ¬GµLªk°£¿ù

   

test1.jpg
2015-8-28 12:49



test2.jpg
2015-8-28 12:50


µo¥Í²v=100%
test3.jpg
2015-8-28 12:53

TOP

§A¥i¥H±N¼Æ¾Ú¶K¤W¨Ã­×§ïI4¤ÎJ4¤é´Á½d³ò¸Õ¸Õ¬Ý[µ²ªG]¤u§@ªí¹Bºâ¬O§_¥i¥H²Å¦X§A¹w´Á¡C
¥ý»¡ªþÀɨ䣬O¥Î±z©Ò´Á±æªº¤è¦¡¥h­×§ï¡A¹Bºâµ²ªG¥i¯à¤]¤£¬O§A·Q­nªºµ²ªG¡A¶È¨Ñ°Ñ¦Ò...
~test% - TT.zip (123.09 KB)

TOP

µ{¦¡¥u¨ú±o¦UªÑ»ù°Ñ¼Æªº²Å¦X¦¸¼Æ,¨Ã¿é¥X¦Ü¡eµ²ªG¡fªíªº¢Ï¢ÐÄæ¡A
¦Ü©ó¢Ñ¢ÒÄæ¦p¦ó­pºâ¡eµo¥Í²v¡f¡A¶·¦Û¦æ¥h®M¤½¦¡¡I

TOP

¦^´_ 27# lcctno


§A¥i¥H±N¼Æ¾Ú¶K¤W¨Ã­×§ïI4¤ÎJ4¤é´Á½d³ò¸Õ¸Õ¬Ý[µ²ªG]¤u§@ªí¹Bºâ¬O§_¥i¥H²Å¦X§A¹w´Á¡C
¥ý»¡ªþÀɨ䣬O¥Î±z©Ò´Á±æªº¤è¦¡¥h­×§ï¡A¹Bºâµ²ªG¥i¯à¤]¤£¬O§A·Q­nªºµ²ªG¡A¶È¨Ñ°Ñ¦Ò...
­è­è28#µoªº¤½¦¡¥u¯àºâ¨ì²Ä310¦C¡A³o¬O­×¥¿ÀÉ
~test% - TT2.zip (124.1 KB)

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD