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

[¤w¸Ñ¨M]¦p¦ó±N¼Ð·Ç®tªº¤½¦¡¤Þ¥Î¨ìVBA¤¤?

[¤w¸Ñ¨M]¦p¦ó±N¼Ð·Ç®tªº¤½¦¡¤Þ¥Î¨ìVBA¤¤?

¥»©«³Ì«á¥Ñ jiuhtsair ©ó 2012-3-2 21:28 ½s¿è

¦U¦ì¤j¤j¦n¡G
      ¤p§Ì·Q§âSTDEV(A1:A6)ªº­pºâ­È©ñ¦bB6¤¤..
      ­Y¬Oª½±µ¦bÀx¦s®æ¤¤¼g¤J¤½¦¡«Ü®e©ö¡A¦ý¦]¬°¦³¤@³s¦êªºÀx¦s®æ­n­pºâ¡A¦]¦¹
·Q¥ÎVBA¼g¦bµ{¦¡¸Ì...
      Àµ½Ð¤j¤j¸Ñ´b¡I·PÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# jiuhtsair

[B6] = Application.StDev([A1:A6])

TOP

¦^´_ 2# register313
·PÁ¸Ѵb¡IÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# jiuhtsair

   ´£¨Ñ¥t¤@ºØ¦h¦¸¹Bºâªº¼gªk  (¨C6µ§­pºâ¼Ð·Ç®t)
  1. Sub test()
  2. A = Application.CountA(Sheet1.Range("A1:A65536"))
  3. A = A / 6

  4. If A = Int(A) Then
  5.    For I = 1 To A
  6.        Range("B" & I * 6) = Application.StDev(Sheet1.Range("A" & I * 6 - 5 & ":A" & 6 * I))

  7.    Next
  8. Else
  9.    MsgBox "¸ê®Æ¤£µ¥©ó6¾ã°£"
  10. End If

  11. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 4# hugh0620
«z...¤Ó·PÁ¤F...
³o­Ó...¦n¥Î¡I
ÁÂÁ¡I·P®¦¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD