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

[µo°Ý] ¥ÎVBA »s§@Chart

[µo°Ý] ¥ÎVBA »s§@Chart

¦U¦ì¤j¤j¦n:
·Q½Ð±Ð¤@¤U¦bªþ¥ó¤¤¥HVBA »s§@Chart ªº°ÝÃD,
°²³]¸ê®Æ¤¤¦³¦h¤@­ÓColumn ¬O¤ë¥÷, ¦pªG§Ú§Æ±æ¦b¿é¤J¾Ç¥Í¸¹½X«á, VBA¦Û°Êµe¥X¾Ç¥Í¨C¤ëªº¤À¼Æ¥H¤Î¤¤¦ì¼Æ(Median)ªºChart,
À³¸Ó¥Î¤°»ò¥N½X©O?

«D±`·PÁÂÀ°¦£!

Grades.rar (347.66 KB)

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-4-25 11:20 ½s¿è

¦^´_ 1# monstrooilis

   ¼Ó¥D~ ¤U¸ü±zªºªþ¥ó~ ¤Ö¤@­ÓÄæ¦ìby month~ ¬O§_¥i¥H¸É»ô~
   ³o¼Ë¤ñ¸û¦n³B²z~ ±z©Ò»Ý­nªºµ²ªG~
   ­Y¤£ª¾¹D½X«ç»ò¼g~ ¥i¥H¨Ï¥Î[¿ý»s¥¨¶°]ªº¤è¦¡~ ¸Õ¤@¤U~

   ¤U­zµ{¦¡½X»P¼Ó¥D²{¦b¨Ï¥Îªº¤è¦¡,¥i¥H¹F¨ì¬Û¦Pªº¥\¯à~
    Sub CalcGrades()
    StudentID = Val(InputBox("Enter the student ID"))
    If StudentID = False Then Exit Sub    '¦h¤@¦æ~ ¥i¥H¨Ï±z¦b¥¼¿é¤J­Èªº®É­Ô,¤£·|²£¥Í°õ¦æ¤Wªº¿ù»~
    Range("G1").Value = StudentID
    Range("G2").Value = Application.WorksheetFunction.VLookup(StudentID, Range("A2:B" & intLastRow), 2, False)
    lCount = Application.CountIf(Range("B:B"), Range("G2"))
    Mark = Application.SumIf(Range("B:B"), Range("G2"), Range("C:C"))
    Mark = Round(Mark / lCount, 2)
    Range("G3").Value = Mark
    End Sub
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 2# hugh0620


    §A¦n, ³o­Ó¬O¸É»ô¤Fªºªþ¥ó, ÁÂÁÂÀ°¦£~ Gradesnew.rar (281.11 KB)

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD