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

¥¼ª¾¸ê®Æµ§¼Æ­pºâ

¥¼ª¾¸ê®Æµ§¼Æ­pºâ

Sub Macro1()
    Range("N7:N20000") = "=AVERAGE(E7:M7)"
    Range("O7:O20000") = "=MAX(E7:M7)"
    Range("P7:P20000") = "=MIN(E7:M7)"
    Range("N7:P20000") = Range("N7:P20000").Value
End Sub
¦]¬°¸ê®Æµ§¼Æ¤£¤@©w
¥Ø«e³£¥Î¤W¦Cµ{¦¡°õ¦æ§¹«á.¦A¤â°Ê§R°£¨S¦³­pºâ­Èªº¸ê®Æ
½Ð°Ý¦³¨S¦³¤£¥Î¤â°Ê.¨ä¥L§ó²³æªº¼gªk¥h°õ¦æ
boyao

¦^´_ 1# boyao


    N20000....µ¥..´«¦¨[ n65535].end(xlup).row....ÅܰʧÀµ§!!
    ¬Û¹ïªº¥Î ......& "n" & [n65535].end(xlup).row¥h±a¤J....

TOP

¦^´_ 1# boyao
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Macro1()
  3.     Dim Rng(1 To 2) As Range
  4.     Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
  5.     Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
  6.     Rng(2).Columns(1) = Application.Average(Rng(1))
  7.     Rng(2).Columns(2) = Application.Max(Rng(1))
  8.     Rng(2).Columns(3) = Application.Min(Rng(1))
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE


GBKEE¤j¤j
¸Õ¥X¨Óªºµ²ªG·|­pºâ©Ò¦³¸ê®Æªº ³Ì¤j.³Ì¤p.¥­§¡
»Ý­n¦A§ï­þÃ䪺°Ñ¼Æ?
boyao

TOP

¦^´_ 4# boyao
¸Õ¥X¨Óªºµ²ªG·|­pºâ©Ò¦³¸ê®Æªº ³Ì¤j.³Ì¤p.¥­§¡ »Ý­n¦A§ï­þÃ䪺°Ñ¼Æ?
    »â®©¤£¥X»¡ªk²[¸q,½Ð¦A»¡©ú¤@¤U

TOP

¦^´_ 5# GBKEE


    GBKEE¤j¤j
§Ú·Q¨Dªº¬O¦P¤@¦C¸ê®Æªº³Ì¤j­È.³Ì¤p­È¸ò¥­§¡­È
¦ý¨Ì§A´£¨Ñªº¸ê®Æ¥h®M¥Î
­pºâ¥X¨Ó¬O©Ò¦³¸ê®Æ²Î­p¥X¨Óªº ³Ì¤j­È.³Ì¤p­È¸ò¥­§¡­È.¦Ó«D³æ¦C(¨C¤@¦Cªº­pºâµ²ªG³£¬O¬Û¦Pµª®×)

¤§«e²ßºD¥Î¿ý»s«á¦A­×§ï.¸ò¥Î¼gªº»yªk®t¦n¦h
·Q½Ð±Ð¦³¨S¦³¨ä¥Lªº¼gªk¥i¥H¤ñ¸û²³æªº°õ¦æ
ÁÂÁÂ!
boyao

TOP

¦^´_ 6# boyao
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range, i As Integer
  4.     Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
  5.     Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
  6.     For i = 1 To Rng(2).Rows.Count    '.Count : Rng(2).RowsªºÁ`¼Æ
  7.          'Rows ª«¥ó: ½d³òªº¦C
  8.          'Columns ª«¥ó: ½d³òªºÄæ
  9.          ' Rng(1).Rows(i)ªº²Äi¦C
  10.          ' Rng(2).Rows(i)ªº²Äi¦C
  11.         Rng(2).Rows(i).Cells(1) = Application.Average(Rng(1).Rows(i))
  12.         Rng(2).Rows(i).Cells(2) = Application.Max(Rng(1).Rows(i))
  13.         Rng(2).Rows(i).Cells(3) = Application.Min(Rng(1).Rows(i))
  14.     Next
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# GBKEE


    OK ¥i¥H¤F
ÁÂÁÂGBKEE¤j¤j
boyao

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD