¥i¥HÀ°§Ú¸Ñ¤@¤U¶Ü???3Q

color790

1.·íBÄæ³o¤@¦æ¥Ñ¥¿Âà­t¥Bµ´¹ï­È¤j©ó5(ex. abs(B10-B9) = 6)
2.·í­t­È¶}©lÅܤj®É(ex. B13)
3.¹ïÀ³¨ìAÄæ ¨BÆJ1 - ¨BÆJ2 (ex. C10= A10-A13)
4. «h¬°¤W­±¨BÆJ¬Û¤Ï(·íBÄæ³o¤@¦æ¥Ñ­tÂॿ¥Bµ´¹ï­È¤j©ó5(ex.B15)--->¥¿­È¶}©lÅܤp(ex. B19)--->¹ïÀ³¨ìAÄæ ¨BÆJ2 - ¨BÆJ1(ex. C19 - C15)

¥H¤U¬O§Ú¼gªº,¤]¬OµLªk°õ¦æ,¥i¥HÀ°§Ú­×§ï¤@¤U¶Ü?
Sub bbb()
For i = 3 To Worksheets("sheet1").Range("A1").End(xlDown).Row
j = i + 1
If Cells(i - 1, 2) < 0 And Cells(i, 2) > 0 And Abs(Cells(i - 1, 2) - Cells(i, 2)) > 5 Then
Do Until Cells(j, 2) < Cells(i, 2)
Cells(i, 3) = Cells(j, 1) - Cells(i, 1)
Else
If Cells(i - 1, 2) > 0 And Cells(i, 2) < 0 And Abs(Cells(i, 2) - Cells(i - 1, 2)) > 5 Then
Do Until Cells(j, 2) >Cells(i, 2)
Cells(i, 3) = Cells(i, 1) - Cells(j, 1)
End If
End If
Next

End Sub

color790

³á~~­ì¨Ó¦p¦¹
·P®¦¤£ºÉ

Hsieh

1.¥ÎVal¬OÁקKÀx¦s®æ¬°¤å¦r³y¦¨¿ù»~
2.¥Îor ¸ò¼g<5,¨º¬O­n¤£¦¨¥ßªºª¬ªp

color790

·PÁª©¥DªºÀ°¦£,³o»ò±ß¤FÁÙÀ°§Ú­×§ï...^^
¯uªº¨S°ÝÃD¤F!!
¥t¥~½Ð°Ýª©¥D¤@¤U
Or Abs(Cells(r, 2) - Val(Cells(r - 1, 2))) < 5
1.¬°¤°»ò­n¥Îor , Val  ?
2.¬°¤°»ò¤W¤U¬Û´îªºµ´¹ï­È>5 , ¤½¦¡«o¬O¼g<5

Hsieh

¦^´_ 5# color790

1. Sub nn()
   
2. r = 2: yn = 1
   
3. Do Until r > [B65536].End(xlUp).Row
   
4. Do While Cells(r, 2) * yn > 0 Or Abs(Cells(r, 2) - Val(Cells(r - 1, 2))) < 5
   
5. r = r + 1
   
6. Loop
   
7. Set x = Cells(r, 1)
   
8. Do While Cells(r, 2) * yn < 0 And Cells(r, 2) * yn < Cells(r - 1, 2) * yn
   
9. r = r + 1
   
10. Loop
    
11. Set y = Cells(r, 1)
    
12. x.Offset(, 2) = (x - y) * yn
    
13. yn = yn * -1
    
14. Loop
    
15. End Sub

½Æ»s¥N½X

color790

HI~ª©¥D
§Úªº·N«ä¬O¬õ¦â¨º¤@¬q¬O¥²»Ýªº,¦Ó¥B­n¤W¤U¬Û´îªºµ´¹ï­È>5,¦ý§Ú§ï³o¼Ë«o·|¥X²{¿ù»~?
¥i¥H¦A½Ð±zÀ°§Ú­×§ï¤@¤U¶Ü?
Sub nn()
r = 2: yn = 1
Do Until r > [B65536].End(xlUp).Row
Do While Cells(r, 2) * yn > 0 And Abs(Cells(r, 2) - Cells(r - 1, 2)) > 5
r = r + 1
Loop
Set x = Cells(r, 1)
Do While Cells(r, 2) * yn < 0 And Cells(r, 2) * yn < Cells(r - 1, 2) * yn
r = r + 1
Loop
Set y = Cells(r, 1)
x.Offset(, 2) = (x - y) * yn
yn = yn * -1
Loop
End Sub

Hsieh

¦^´_ 3# color790
B19¸òB24µ´¹ï­È¬O¤p©ó5ªü
¨ä¤¤¥u¬OynÅܼƥΨӤÏÂॿ­t­È
³o¼Ë§A¥h¤ñ¸û¤£¦P³BÀ³¸Ó¥i¥H©úÁA

1. Sub nn()
   
2. r = 2: yn = 1
   
3. Do Until r > [B65536].End(xlUp).Row
   
4. Do While Cells(r, 2) * yn > 0 'Or Abs(Cells(r, 2)) < 5
   
5. r = r + 1
   
6. Loop
   
7. Set x = Cells(r, 1)
   
8. Do While Cells(r, 2) * yn < 0 And Cells(r, 2) * yn < Cells(r - 1, 2) * yn
   
9. r = r + 1
   
10. Loop
    
11. Set y = Cells(r, 1)
    
12. x.Offset(, 2) = (x - y) * yn
    
13. yn = yn * -1
    
14. Loop
    
15. End Sub

½Æ»s¥N½X

color790

HI~·PÁª©¥Dªº¦^ÂÐ
¦bC20,C25®É¦ì¸m跔±¼,À³¸Ó¦bC19,C24,¥t¥~...«ö·ÓRULEÀ³¸Ó¬OC19=A19-A21
¥i¥H¦AÀ°§Ú­×§ï¶Ü?¥t¥~....¥i¥HÀ°§Ú¸ÑÄÀ¤@¤U¶Ü??·P®¦·P®¦

Hsieh

¸Õ¸Õ¬Ý

1. Sub nn()
   
2. r = 2: yn = 1
   
3. Do Until r > [B65536].End(xlUp).Row
   
4. Do While Cells(r, 2) * yn > 0 Or Abs(Cells(r, 2)) < 5
   
5. r = r + 1
   
6. Loop
   
7. Set x = Cells(r, 1)
   
8. Do While Cells(r, 2) * yn < 0 And Cells(r, 2) * yn < Cells(r - 1, 2) * yn
   
9. r = r + 1
   
10. Loop
    
11. Set y = Cells(r, 1)
    
12. x.Offset(, 2) = (x - y) * yn
    
13. yn = yn * -1
    
14. Loop
    
15. End Sub

½Æ»s¥N½X