標題: [發問] 用VBA 製作Chart [打印本頁]

---

作者: monstrooilis    時間: 2011-4-24 15:06     標題: 用VBA 製作Chart

各位大大好:
想請教一下在附件中以VBA 製作Chart 的問題,
假設資料中有多一個Column 是月份, 如果我希望在輸入學生號碼後, VBA自動畫出學生每月的分數以及中位數(Median)的Chart,
應該用什麼代碼呢?

非常感謝幫忙!

---

作者: hugh0620    時間: 2011-4-25 11:18

本帖最後由 hugh0620 於 2011-4-25 11:20 編輯

回復 1# monstrooilis

   樓主~ 下載您的附件~ 少一個欄位by month~ 是否可以補齊~
   這樣比較好處理~ 您所需要的結果~
   若不知道碼怎麼寫~ 可以使用[錄製巨集]的方式~ 試一下~

   下述程式碼與樓主現在使用的方式,可以達到相同的功能~
    Sub CalcGrades()
    StudentID = Val(InputBox("Enter the student ID"))
    If StudentID = False Then Exit Sub    '多一行~ 可以使您在未輸入值的時候,不會產生執行上的錯誤
    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

---

作者: monstrooilis    時間: 2011-4-25 17:32

回復 2# hugh0620


    你好, 這個是補齊了的附件, 謝謝幫忙~[attach]5860[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)