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

¦p¦ó¥ÎEXCEL¼gµ{¦¡­pºâ¥­§¡­È

¦p¦ó¥ÎEXCEL¼gµ{¦¡­pºâ¥­§¡­È

¦U¦ì¤j¤j¦n:
¤p©f¦b¦¹¦³­Ó´Æ¤â°ÝÃD·Q½Ð¤j¤j­ÌÀ°¦£,
¤p©fªì¾ÇVB ¹ïVBÀ³¥Î¨Ã¤£¼ôªR, ¦ý«o»Ý¦Aµu®É¶¡¤º¼g¥X°j°éµ{¦¡
¹Ï®ÑÀ]VB½Ò¥»Â½¤F¦A½,¨Ì¤£ª¾¦p¦óÀ³¥Î
¥Ñ©ó®É¶¡ªººò­¢ ¤£¤¹³\¤p©fºCºCªº¬ã¨s  «æ»Ý­Ó¦ì°ª¤âÀ°¦£!
·Q½Ð°Ý¦U¦ì¤j¤j,¦p¦ó¨Ï¥ÎDo..loop..while ¼g¥X¥H¤Uªº°j°é?

¥­§¡­È.rar (686.55 KB)

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-5-4 17:21 ½s¿è

+.+ ¥­§¡­È
EXCEL ¹w³]´N¦³¤½¦¡¤F..
¤£¹L ¬Ý¤F¤@¤U ©Òªþ±aªºÀÉ®×(DOCÀÉ®×)
¦ü¥G¤£¬O³æ¯Â¥­§¡­È§a...
¯àªº¸Ü ¯à§_³Â·Ð¼Ó¥D§Ë­Ó²©öEXCELÀÉ®× §@½d¨Ò©O...
¬Ý¨º­Ó¬Ýªº«Ü·w..

PS ¤£ª¾¹D¬O§Ú°µªº¸ÕÅç«~ ¦³¯Ê¥¢ÁÙ¬O«ç¼Ë  a­È³ºµM¥X²{ ­tªº...+.+

ªþ¤W ³æ¤@µ§¸ê®Æªº¸ÕÅç«~ ¦pªG½T©w¬O¼Ó¥D­nªº §Ú¦bÄ~Äò©¹¤U+.+

¥­§¡­È¸ÕÅç.rar (13.91 KB)

TOP

¤W­±ªº¤j¤j~
¤p©fªºµ¥¯Å¼Æ¤£¤Ó°÷..µLªk¤U¸ü¤j¤jªºµ{¦¡T_T
¥i§_½Ð¤j¤j¶Ç¦Ü¤p©fªº«H½c:[email protected]

·PÁ¦ܷ¥><

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-9 07:48 ½s¿è

¦^´_ 2# mark15jill
¤p©fªþ¤W½d¨Òµ¹±z°Ñ¦Ò~¤ºªþ¤p©f¤âºâªº¸Ñµª

·PÁ¤j¤j

½d¨Ò.rar (3.64 KB)

TOP

¦^´_ 4# a79011013
ªþÀɧ¹¥þ¬Ý¤£À´,½Ð¥i¥H¦A¸ÑÄÀ¤@¤U

TOP

¦^´_ 4# a79011013



¥H¤U¬O¥Ü·N¹Ï


¥H¤U¬O¥Î¥¨¶°ªº¼Ò²Õ½s¼gªº

Sub xx()

    Range("g2").Select
    ActiveCell.FormulaR1C1 = (Range("b2") + Range("f2")) / 2
    Range("h2").Select
    ActiveCell.FormulaR1C1 = ((Range("g2") * (Range("g2") + 1)) / 2)
    Range("i2").Select
    If Mid(Range("h2"), 3, 1) / 2 = 0 Then
        Range("i2").Value = "³æ¼Æ"
    Else
        Range("i2").Value = "°¸¼Æ"
    End If
        Range("j2").Select
    If Range("i2").Value = "°¸¼Æ" Then
        Range("j2").Value = ((h2 + 1) / 2)
    Else
        Range("j2").Value = (((h2) / 2) + ((h2 + 1) / 2)) / 2
    End If
        Range("k2").Select
        Range("k2").Value = Int((h2 - 0.5 - 1.96 * Sqr((g2 * (g2 + 1) * ((2 * g2) + 1)) / 24)))
   
   
   
   
End Sub

TOP

¦^´_ 5# GBKEE

§Æ±æ¤j¤j¬Ý±oÀ´

·PÁÂ

¸ÑÄÀ.rar (42.16 KB)

TOP

¦^´_ 6# mark15jill

¤£¬O«Ü©ú¥Õ¹Ï¥Üªº·N«ä><¸ò§Ú¤@¶}©lºâªº½d¨Òµª®×¤£¤Ó¤@¼Ë
¥i¥H»¡©ú¸Ì­±ªº¼Æ­Èªº·N«ä¬O?

¦p11  21  31   41  51
   12  22  32   42  52
   ...


·PÁ¤j¤j

TOP

¥»©«³Ì«á¥Ñ diabo ©ó 2011-5-9 20:17 ½s¿è

(1) K=1 ¼Ë¥»¼Æ¦³ 8­Ó(n1=8) X11, X12, ... , X18
(2) §Q¥Î Walsh ¥­§¡­È¨ÓÂX¤j¼Ë¥»¼Æ¨ì36(N=36)­Ó
(3) ÂI¦ô­p¡A¨ä¹ê´N¬O¤¤¦ì¼Æ¡A¥Îmedian(W111,W112....)=268.25
(4) a= int(N - 0.5 - 1.96 * (n1*(n1+1)*(2*n1+1)/24)^0.5) = 21
(5) «H¿à°Ï¶¡  (a+1) ¨ì (N-a)




VBA ´NÅý°ª¤âÀ°¦£§a!
diabo

TOP

¦^´_ 9# diabo

0.0½Ð°Ý¤j¤j¬O¦p¦ó¼gªº?
¥i¥H±Ð¨BÆJ³Â?

·PÁÂ

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD