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

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

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

½Ð°Ý§Ú¦³¤@±i¹Ïªí¡A¤w¸g©T©w¦n»Ý­nø»sªºÀx¦s®æ¼Æ¡A©Ò¥H­ì«h¤W¥u­n¦b¥u©wªº®æ¤l¤º¶ñ¤J¼Æ¦r¡A¹Ïªí´N·|¥ß§Y§ó·s(¥Ø«e¬O¨Ï¥Î§é½u¹Ï)

¦ý¬O²{¦b¸I¨ìªº°ÝÃD¬O¡A­è¦n­n®³¨Ó»s¹ÏªºÀx¦s®æªº­È¡A¨Ó·½¬O¥Ñ¤½¦¡¹Bºâ±o¨Ó¡A¨Ò¦pIF( A1="", "", A1)

¤]´N¬O»¡¡AÁöµMÀx¦s®æÅã¥Üªº¬OªÅ¥Õ¡A¦ý¬O¹ê»Ú¤W¬O¦³¤½¦¡ªº

¦]¦¹¦b¹Ïªí¤W¡A³o¨ÇªÅ¥ÕÀx¦s®æ·|³Q¦C¤J¹Ïªí¸Ì­±¡A¦Ó¥B¼Æ­È¬°¹s(½u·|³s¹L¥h)¡A

½Ð°Ý¬O§_¦³¿ìªk±Æ°£³o¨ÇªÅ¥Õ«o¤S±a¦³¤½¦¡ªºÀx¦s®æ¡AÅý³o¨Ç¹sÂI¤£­n¥X²{¦b¹Ïªí¤º?

¬Û¦Pªºª¬ªp¤]¦bCOUNTA()³o­Ó¨ç¼Æ¤¤¥X²{¡AÀx¦s®æÁöµM¬OªÅ¥Õ¡A¦ý¸ÌÀY¦³¤½¦¡ÁÙ¬O·|³Q®³¨Óºâ¶i¥h

¤£ª¾¹D¦³¨S¦³°ª¤â¯à°÷´À§Ú¸Ñµª¡A·P¿E¤£ºÉ~

¦^´_ 2# GBKEE

·PÁÂGBKEE«e½ú¡A¦¹µ{¦¡¤w¸Ñ¨M§Ú§xÂZªº°ÝÃDQQ~§Úªºµo©«¦p¤U¡A¦A½Ð«ü±Ð~
(¤w¸Ñ¨M)Ãö©ó°ÊºA¹Ïªí©w¸q©R¦W½d³ò«á ·s¼W¸ê®Æ¤£·|¦Û°Ê§ó·s

TOP

¥»©«³Ì«á¥Ñ 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¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD