[µo°Ý] ¦p¦ó§PÂ_"±×²v­È"

518587

·Q½Ð±Ð¦U¦ì¤j¤j­Ì

¦pªG§Ú¦³¤@µ§¼Æ¾Ú¦p¤U¡A

A    B
1        1
2        1
3        2
4        3
5        4
6        5
7        6
8        5
9        4
10        3
11        2
12        1
13        1
14        1
15        2
16        3
17        4
18        5
19        6
20        5
21        4
22        3
23        2
24        1
25        1
26        1
27        1
28        1
29        1
30        2

µe¥X¨Ó¹Ï¦p¤U¡A

¤U¸ü (15.18 KB)

2014-6-5 13:23

§Úªº°ÝÃD¬O

°²³]§Ú·Q¥H¨C3µ§¸ê®Æ¨Ó¬Ý(ex. 123¡B234¡B345...)¡A¨D¥X¨C²Õªº±×²v­È¡A

¨Ã°²³]¦pªG±×²v­È³sÄò5²Õ³£¤¶©ó-0.5~0.5¤§¶¡¡A«h±N­È¥h°£¡A¦pªG¨S¦³«hÄ~Äò¡C

³Â·Ð¦U¦ì¡AÁÂÁ¡C

¡°°jÂk½u±×²vªº­pºâ¤è¦¡¬O¡G

¤U¸ü (2.88 KB)
±×²v¤½¦¡

2014-6-5 13:46

518587

¦U¦ì¤j¤j¯à§_À°¦£§Ú~~

stillfish00

¦^´_ 2# 518587
¬Ý¤£À´­nºâ¬Æ»ò¡A§A´Á±æºâ§¹ªº­ÈÀ³¸Ó¬O¦p¦ó?

518587

¤j¤j§A¦n¡A

§Ú·Qºâ¥Xªº¬O¡A§PÂ_¨C²Õ±×²v­È¡A¦pªG±×²v­È³sÄò5²Õ³£¤¶©ó¦b-0.5~0.5¤§¶¡ªº¸Ü¡A±N­È§R°£¡A¨S¦³ªº¸Ü«h«O¯d¡C

¸÷¨D¦U¦ì¤j¤j£xÀ°¦£~~«ô°U

518587

°²³]»¡¡A

§Ú¥HA¦C¨C¤T­Ó¬°¤@²Õ(ex. 123¡A234¡A345¡A¤@ª½¨Ì§Ç¤U¥h)¡A
¹B¥Î¤W­±©Ò´£¨ìªº°jÂk½u±×²v¨Óºâ¥X¨C²Õªº±×²v­È¡A
¨Ò¦p¡AA¦C(123)¬°¤@²Õ
x¬°A¦C­È¡A
y¬°B¦C­È¡A
x¥­§¡¬°=(1+2+3)/3=2
y¥­§¡¬°=(1+1+2)/3=1.333

±a¤J¤½¦¡«h¡A

±×²v­È(b) = (((1-2)*(1-1.333))+((2-2)*(1-1.333))+((3-2)*(2-1.333))) / ((1-2)^2+(2-2)^2+(3-2)^2) = 0.5  (¦¹¬°123²Õªº±×²v­È)

A¦C(234)ªº±×²v
x¥­§¡=(2+3+4)/3=3
y¥­§¡=(1+2+3)/3=2
234²Õ±×²v¬° = (((2-3)*(1-2))+((3-3)*(2-2))+((4-3)*(3-2))) / ((2-3)^2+(3-3)^2+(4-3)^2) = 1  (¦¹¬°234²Õªº±×²v­È)
...¨Ì§Ç©¹¤U

±N©Ò¦³±×²v­Èºâ§¹«á¡A
§Ú­n¦p¦ó§PÂ_¡A·í§Úªº±×²v­È¦pªG³sÄò¶W¹L5µ§³£¤¶©ó¦b-0.5~0.5¤§¶¡¡A«h±N³o¨Ç­È§R°£¡A¨S¦³ªº¸Ü«hÄ~Äò§PÂ_¡Aª½¨ìµ²§ô¡C

¦p¦ó¼g¦¨VBA  «ô°U¦U¦ìÀ°¦£¤F¡C

stillfish00

¦^´_ 5# 518587

1. Sub Test()
   
2.     Dim i, cnt
   
3.    
   
4.     With ActiveSheet.Range("C1:C28")
   
5.         .FormulaR1C1 = "=COVAR(RC[-2]:R[2]C[-2],RC[-1]:R[2]C[-1])/VARP(RC[-2]:R[2]C[-2])"
   
6.         .Value = .Value
   
7.         For i = .Count To 1 Step -1
   
8.             If Abs(.Cells(i).Value) <= 0.5 Then
   
9.                 cnt = cnt + 1
   
10.             Else
    
11.                 If cnt >= 5 Then .Cells(i + 1).Resize(cnt).Delete xlShiftUp
    
12.                 cnt = 0
    
13.             End If
    
14.         Next
    
15.     End With
    
16. End Sub

½Æ»s¥N½X

518587

¦^´_ 6# stillfish00

ÁÂÁ±zªº«üÂI¡A

¦ý§Ú¦³­Ó¤pºÃ´b

§Ú¦pªGAB¦C³£¼W¥[¤F­È¤§«á¡A¦p¤U

A     B   
1        1
2        1
3        2
4        3
5        4
6        5
7        6
8        5
9        4
10        3
11        2
12        1
13        1
14        1
15        2
16        3
17        4
18        5
19        6
20        5
21        4
22        3
23        2
24        1
25        1
26        1
27        1
28        1
29        1
30        2
31        3
32        4
33        5
34        6
35        5
36        4
37        3
38        2
39        1
40        1
41        1
42        2

§Ú±NRange("C1:C28")§ï¬°Range("C1:C40")
¥Lºâ¥X¨Óªº±×²v­È¸ò¤@¶}©lºâªº¤£¤@¼Ë¡A¥B¨S¿ìªk±N±×²v­È§R°£¡C
«ô°UÀ°§Ú¸Ñ¨MºÃ°Ý¡A·PÁ·PÁÂ~

518587

¤j¤j­Ì¡AÀ°¤p§Ì¸Ñ¨M³o­ÓºÃ´b