- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§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- Option 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
½Æ»s¥N½X |
|