I would liike to streamline calculation of grades exorted into Excel.-VBForums
Results 1 to 5 of 5

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

  1. #1

    Thread Starter
    Member
    Join Date
    Apr 2017
    Posts
    44

    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.

    Name:  Excel WS Grading.JPG
Views: 88
Size:  40.4 KB
    Last edited by GarySut; Sep 18th, 2017 at 09:43 AM. Reason: clarity

  2. #2
    Fanatic Member ChrisE's Avatar
    Join Date
    Jun 2017
    Location
    Frankfurt
    Posts
    568

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

    Quote Originally Posted by GarySut View Post
    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.

    Name:  Excel WS Grading.JPG
Views: 88
Size:  40.4 KB
    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
    to hunt a species to extinction is not logical !
    since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.

  3. #3

    Thread Starter
    Member
    Join Date
    Apr 2017
    Posts
    44

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

    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.

  4. #4
    Fanatic Member ChrisE's Avatar
    Join Date
    Jun 2017
    Location
    Frankfurt
    Posts
    568

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

    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
    to hunt a species to extinction is not logical !
    since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.

  5. #5

    Thread Starter
    Member
    Join Date
    Apr 2017
    Posts
    44

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

    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....

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width

Survey posted by VBForums.