I would liike to streamline calculation of grades exorted into Excel.

I get a list of students along with the totals from attempts in a quiz and want to tally said totals for each student. I can do it manually and/or with sum functions but with the click on an icon I would like the software to do the work.

A database can do this but I am not ready to go back in learn how to set up detail lines etc..

The pic shows what I would like to see. The student names should be separated with an empty line to make it easier to see the totals.

It would be nice if this could be done in VBA as I am teaching uses of Excel in my CS course..

I thank you ahead of time as this will save me a lot of work especially at the end of the course.

Attachment 151911

Quote:

---

Originally Posted by GarySut

I get a list of students along with the totals from attempts in a quiz and want to tally said totals for each student. I can do it manually and/or with sum functions but with the click on an icon I would like the software to do the work.

A database can do this but I am not ready to go back in learn how to set up detail lines etc..

The pic shows what I would like to see. The student names should be separated with an empty line to make it easier to see the totals.

It would be nice if this could be done in VBA as I am teaching uses of Excel in my CS course..

I thank you ahead of time as this will save me a lot of work especially at the end of the course.

Attachment 151911

---

you mean you give your students Homework that is worked out here ?

I don't mind helping, but what have you done at this time?

regards
Chris

It is a bit to explain but I will try. I offer a quiz that can be taken as often as the student wants. For each quiz these are called "attempts". I want to give one point for each correct answer. The questions are randomized from a large question bank.

The information is exported from the grading system. The numbers shown in the center column are the number of correct responses for this one quiz for each attempt. The list can be very long and I end up tallying them manually.

It certainly would be nice if I could click on an icon in the top bar and have all the calculations performed.

I hope this helps.

Hi Gary,

here a sample you can adjust to your needs

Code:

---

Imports Excel
 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim a As Integer
        Dim Exceldaten(9, 2) As String
        For a = 0 To 9
            Exceldaten(a, 0) = Chr(65 + a)
            Exceldaten(a, 1) = Chr(48 + a)
            Exceldaten(a, 2) = "Column 3 - Row " & (a + 1)
        Next
        Dim oXL As Excel.Application
        Dim oWB As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        oXL = CreateObject("Excel.Application")
        oWB = oXL.Workbooks.Add
        oSheet = oWB.ActiveSheet
        'oXL.Visible = True
        'oXL.UserControl = True
        oSheet.Range("A1").Value = "vbForums.com"
        oSheet.Range("B1").Value = "my Number"
        oSheet.Range("C1").Value = "Sssssss"
        'Excelformat
        oSheet.Range("A1").HorizontalAlignment = Excel.XlHAlign.xlHAlignRight
        oSheet.Range("E1").HorizontalAlignment = Excel.XlHAlign.xlHAlignRight
        oSheet.Range("A1").ColumnWidth = 10
        oSheet.Range("B1").ColumnWidth = 10
        oSheet.Range("C1").ColumnWidth = 15.5

        With oSheet.Range("A1", "C1")
            .Font.Bold = True
            .Font.Color = RGB(255, 0, 0)
            .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter

        End With

        'add something to calculate
        oSheet.Range("D2", "D2").Value = 10.25
        oSheet.Range("D3", "D3").Value = 10.25
        oSheet.Range("D4", "D4").Value = 10.25
        oSheet.Range("D5", "D5").Value = 1255.25
        'Data to Excel
        oSheet.Range("A2", "C9").Value = Exceldaten
        'Calulate values,
        'in German = "=Summe(D2:D5)"
        'in Englisch probably = "=Sum(D2:D5)"
        oSheet.Range("D7").Value = "=Summe(D2:D5)"
        oSheet.Range("D7").NumberFormatLocal = "#,##0.0"

        'Save Excel
        oSheet.SaveAs("C:\Exceldaten99.xls")

        oSheet = Nothing
        oWB = Nothing
        oXL.Quit()
        oXL = Nothing
    End Sub

---

regards
Chris

I regret the delay is following through on this but be assured that I am still very much interested in getting this working. I used copy/paste to insert the code into a module. I then created the button to enable it. When I went to use it, there were errors that I did not recognize.


Unfortunately I ran into other situations that prevented me from exploring them.
This is just a note to say that I hope to get back into this soon.
Thank you for your patience....