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

[µo°Ý] excel¹Ïªí°ÝÃD

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-19 08:19 ½s¿è

¦^´_ 1# gogotony
¤u§@ªí¨ç¼Æ  
Count    ­pºâ§t¦³¼Æ¦rªºÀx¦s®æ¼Æ¶q   
CountA ­pºâ¤£¬OªÅ¥ÕªºÀx¦s®æ¼Æ¶q
VBA¤¤¨Ï¥Î¤u§@ªí¨ç¼Æ   [Count(C:C)]  ¤£¥i¥ÎÅÜ¼Æ ,  Application.Count (ÅܼÆ)

1 ¤u§@ªí¤¤ ©w¸q¦WºÙ   Ã¸¹Ï°Ï=OFFSET(Sheet1!$C$1,0,0,COUNT(Sheet1!$C:$C),1)
¹Ïªíªº¨Ó·½¸ê®Æ :¸ê®Æ½d³ò =ø¹Ï°Ï

2¤u§@ªíªºµ{¦¡½X
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Ex Target
  4. End Sub
  5. Private Sub Ex(t As Range)
  6.     Dim ø¹Ï°Ï As Range
  7.     If [count(C:C)] > 0 Then
  8.         i = [count(C:C)]
  9.     Else
  10.         i = 1
  11.     End If
  12.     Set ø¹Ï°Ï = Range("C1", "C" & i)
  13.     ChartObjects("¹Ïªí 1").Activate
  14.     ActiveChart.SetSourceData ø¹Ï°Ï, 2
  15.     t.Select
  16. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD