| ©«¤l5923 ¥DÃD13 ºëµØ1 ¿n¤À5986 ÂI¦W0  §@·~¨t²Îwin10 ³nÅ骩¥»Office 2010 ¾\ŪÅv150 ©Ê§O¨k ¨Ó¦Û¥xÆW°ò¶© µù¥U®É¶¡2010-5-1 ³Ì«áµn¿ý2022-1-23 
         
 | 
                
| ¥»©«³Ì«á¥Ñ 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
 ½Æ»s¥N½XOption Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Ex Target
End Sub
Private Sub Ex(t As Range)
    Dim ø¹Ï°Ï As Range
    If [count(C:C)] > 0 Then
        i = [count(C:C)]
    Else
        i = 1
    End If
    Set ø¹Ï°Ï = Range("C1", "C" & i)
    ChartObjects("¹Ïªí 1").Activate
    ActiveChart.SetSourceData ø¹Ï°Ï, 2
    t.Select
End Sub
 | 
 |