あとでvbsかなにかでつかうかもしれないので。 Dim conn, rs Set conn = CreateObject("ADODB.Connection") conn.Open ("Driver={Microsoft Access Driver (*.mdb)};data.mdb;") Set rs = conn.Execute("SELECT Sum(算数) AS 総得点 FROM ３年Ｂ組") MsgBox …

VBAのパワー！！ エクセルってすごいんですね。