|
Post by Rheavon on Aug 22, 2011 18:02:39 GMT -5
The spreadsheet itself has instructions on it as well as I included a couple of test information in the first part just to show what it looks like. If someone can't use .xlsx files, let me know and I'll attach the spreadsheet in an older format. This spreadsheet uses the data presented by Charista in their thread forum.sfgame.us/showthread.php?t=3656 to help maximize the exp you will gain. Attachments:
|
|
|
Post by Rheavon on Aug 22, 2011 18:03:32 GMT -5
Of course, any questions can be messaged to me here or ingame.
|
|
|
Post by prosperos on Aug 23, 2011 4:29:35 GMT -5
I can't use it. An older format would be appreciated.
|
|
|
Post by adipiciu on Aug 23, 2011 8:35:19 GMT -5
|
|
|
Post by Rheavon on Aug 23, 2011 10:12:22 GMT -5
Here is the .xls version. Attachments:
|
|
|
Post by prosperos on Aug 23, 2011 11:33:52 GMT -5
Works perfectly! Thank you
|
|
|
Post by Vyllyn on Aug 23, 2011 13:29:50 GMT -5
Here is the segment breakdown for all the mounts: Mount | 1... | 2... | 3... | 4... | 10% | 4.5 | 9 | 13.5 | 18 | 20% | 4 | 8 | 12 | 16 | 30% | 3.5 | 7 | 10.5 | 14 | 50% | 2.5 | 5 | 7.5 | 10 |
|
|
|
Post by Rheavon on Aug 23, 2011 14:10:46 GMT -5
Something else I'd like to point out. This is only part of how to maximize EXP, I would suggest reading the thread if you want to learn more.
|
|
|
Post by Rheavon on Aug 24, 2011 13:37:18 GMT -5
For those of you with a newer version of Excel I have another option. I prettied the spreadsheet up and made it a bit easier to use. However this will not work on older versions as I did create buttons and coding for it.
Upon opening the file, you will need to hit the options button on the Security warning at the top and enable this content.
For piece of mind, I will copy and paste all the code I wrote for this spreadsheet into this post so that anyone with a coding background can see that it is safe.
The old Spreadsheet will work fine, this one is merely more dynamic and more user friendly.
Private Sub Fresh_Click() Dim i As Integer Dim Reset As Integer i = Sheets("Sheet2").Range("D1").Value Reset = 21 If i < 21 Then Exit Sub End If Sheets("Sheet2").Range("A1:A20").Value = Sheets("Sheet2").Range("A" & (i - 20) & ":A" & i).Value Sheets("Sheet2").Range("A21:A" & i).Value = "" Sheets("Sheet2").Range("B1:B20").Value = Sheets("Sheet2").Range("B" & (i - 20) & ":B" & i).Value Sheets("Sheet2").Range("B21:B" & i).Value = "" Sheets("Sheet2").Range("C21:C" & i).Value = "" Sheets("Sheet2").Range("D1").Value = Reset End Sub
Private Sub Save1_Click() Dim i As Integer i = Sheets("Sheet2").Range("D1").Value Sheets("Sheet2").Range("A" & i).Value = Sheets("Sheet1").Range("B2").Value Sheets("Sheet2").Range("B" & i).Value = Sheets("Sheet1").Range("C2").Value Sheets("Sheet2").Range("C" & i).Value = Sheets("Sheet2").Range("B" & i).Value / Sheets("Sheet2").Range("A" & i).Value Sheets("Sheet2").Range("D1").Value = i + 1 Sheets("Sheet2").Range("F2").Value = "=Sum(C1:C" & i & ")" Clear End Sub
Private Sub Save2_Click() Dim i As Integer i = Sheets("Sheet2").Range("D1").Value Sheets("Sheet2").Range("A" & i).Value = Sheets("Sheet1").Range("B3").Value Sheets("Sheet2").Range("B" & i).Value = Sheets("Sheet1").Range("C3").Value Sheets("Sheet2").Range("C" & i).Value = "=" & Sheets("Sheet2").Range("B" & Sheets("Sheet2").Range("D1").Value).Value & "/" & Sheets("Sheet2").Range("A" & Sheets("Sheet2").Range("D1").Value).Value Sheets("Sheet2").Range("D1").Value = i + 1 Sheets("Sheet2").Range("F2").Value = "=Sum(C1:C" & i & ")" Clear End Sub
Private Sub Save3_Click() Dim i As Integer i = Sheets("Sheet2").Range("D1").Value Sheets("Sheet2").Range("A" & i).Value = Sheets("Sheet1").Range("B4").Value Sheets("Sheet2").Range("B" & i).Value = Sheets("Sheet1").Range("C4").Value Sheets("Sheet2").Range("C" & i).Value = "=" & Sheets("Sheet2").Range("B" & Sheets("Sheet2").Range("D1").Value).Value & "/" & Sheets("Sheet2").Range("A" & Sheets("Sheet2").Range("D1").Value).Value Sheets("Sheet2").Range("D1").Value = i + 1 Sheets("Sheet2").Range("F2").Value = "=Sum(C1:C" & i & ")" Clear End Sub
Public Sub Clear() Sheets("Sheet1").Range("B2").Value = "" Sheets("Sheet1").Range("B3").Value = "" Sheets("Sheet1").Range("B4").Value = "" Sheets("Sheet1").Range("C2").Value = "" Sheets("Sheet1").Range("C3").Value = "" Sheets("Sheet1").Range("C4").Value = "" End Sub
|
|
|
Post by Vyllyn on Aug 24, 2011 14:30:33 GMT -5
Is there a way to enable active-x in older versions of excel?
|
|
|
Post by Rheavon on Aug 24, 2011 14:54:39 GMT -5
Try seeing if you can find an enable ActiveX controls option in settings under Function/Macros/Security
|
|
|
Post by Vyllyn on Aug 24, 2011 17:56:47 GMT -5
I'll do that from work tomorrow. FYI, it opens read only in Open Office 3.
|
|
|
Post by Rheavon on Aug 26, 2011 10:33:16 GMT -5
Fixed version. Attachments:
|
|