-
Sep 18th, 2017, 09:41 AM
#1
Thread Starter
Lively Member
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.
Last edited by GarySut; Sep 18th, 2017 at 09:43 AM.
Reason: clarity
-
Sep 18th, 2017, 10:30 AM
#2
Re: I would liike to streamline calculation of grades exorted into Excel.
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.
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.
-
Sep 18th, 2017, 10:55 AM
#3
Thread Starter
Lively Member
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.
-
Sep 18th, 2017, 11:02 AM
#4
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.
-
Oct 5th, 2017, 09:56 PM
#5
Thread Starter
Lively Member
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
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|