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

[µo°Ý] ¦p¦ó¥ÎVBAºâ¥X®É¶¡¶g´Á

[µo°Ý] ¦p¦ó¥ÎVBAºâ¥X®É¶¡¶g´Á

½Ð°Ý¦p¦ó¥ÎVBAºâ¥Xtick   ®É¶¡          ¶}½L»ù         ³Ì°ª»ù         ³Ì§C»ù         ¦¬½L»ù         ¦¨¥æ¶q
¤p¥x.zip (34.87 KB)
ÁÂÁÂ

½Ð°Ý¦p¦ó¥ÎVBAºâ¥Xtick   ®É¶¡          ¶}½L»ù         ³Ì°ª»ù         ³Ì§C»ù         ¦¬½L»ù         ¦¨¥æ¶q

ÁÂÁÂ
jerrystock µoªí©ó 2012-9-18 20:41


²³æ¥Î¤½¦¡¤£´N¥i¥H¶Ü



¦h¤Ö¦æ        24216        =COUNT(A:A)
¶}½L»ù        7735        =B2
³Ì°ª»ù        7769        =MAX(B:B)
³Ì§C»ù        7713        =MIN(B:B)
¦¬½L»ù        7749        =INDEX(B:B,MATCH(9.99999999999999E+307,B:B))
¦¨¥æ¶q        33413        =SUM(C:C)
  1. Sub test()
  2.     Dim count, ¶}½L»ù, ³Ì°ª»ù, ³Ì§C»ù, ¦¬½L»ù, ¦¨¥æ¶q
  3.     count = Application.WorksheetFunction.count(Range("A:A"))
  4.     ¶}½L»ù = [B2]
  5.     ³Ì°ª»ù = Application.WorksheetFunction.Max(Range("B:B"))
  6.     ³Ì§C»ù = Application.WorksheetFunction.Min(Range("B:B"))
  7.     ¦¬½L»ù = [B2].End(xlDown)
  8.     ¦¨¥æ¶q = Application.WorksheetFunction.Sum(Range("C:C"))
  9. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ÁÂÁ¤j¤jªº«ü¾É
§Ú§Ñ°O»¡©ú®É¶¡¶g´Á¬O¤@¤ÀÄÁªº
®É¶¡   ¶}½L»ù    ³Ì°ª»ù    ³Ì§C»ù   ¦¬½L»ù  ¦¨¥æ¶q

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD