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

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

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

·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


§Úªº°ÝÃ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
ZA006051175.GIF

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

TOP

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

TOP

¤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

TOP

°²³]»¡¡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

TOP

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

TOP

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

TOP

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

TOP

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