Perrin's Excel CharPlanner

Download the Latest Version 1.3.7
Updated November 4th, 2004.
 

1.3.7 Build Notes:
(Updated by
-Xod- of Leafcull)

1.3.6 Build Notes:
(Updated by
-Xod- of Leafcull)

1.3.5 Build Notes:
(Updated by -Xod- of Leafcull)

1.3.4 Build Notes:

1.3.3 Build Notes:

1.2.5 Build Notes:

1.1.3 Build Notes:

1.1.2 Build Notes:

1.0.3 Build Notes:


First, the important stuff:
Features: Instructions:
  1. Enter your character name in cell A2 (only for aesthetics)
  2. Enter your level in cell B2 - this should populate cell I1 with your total XP
  3. Enter your race in cell C2. Acceptable choices are: Aluvian, Gharu'ndum, Sho (this makes racial skills cost 0 to train)
  4. Find your skills in the column A
  5. Choose "Train" or "Spec" from the drop down list in column B.

        

  6. Enter your base stats in cells L4 through L9

        

  7. Enter the number of times you have raised those stats in cells M4 through M12 (Keep an eye on column N for your actual stat level)

       

  8. Press the blue Sort button at the top of the Skill column (this sorts the page by status & skill. Macros need to be enabled for this to work).
  9. Do the same thing for your skills - enter the number of times you have raised the skill in column F (Keep an eye on column G for your actual skill level)

       

Things you shouldn't do:
Other notes:


Code in this worksheet:
Private Sub Sort_Main_Page()
'Sort the main area by status by skill
Range("A3:H38").Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("A4"), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Dim I As Integer
For I = 4 To 38
Select Case Range("B" & I).Text
Case "" 'then it is not trained or speced - clear the formulas
Range("E" & I).Value = "=round(" & Range("T" & I).Value & ",0)"
Range("F" & I).Value = Null
Range("G" & I).Value = Null
Case "Spec" 'change to specialized formulas
Range("E" & I).Value = "=10+round(" & Range("T" & I).Value & ",0)"
Range("G" & I).Value = "=F" & I & "+E" & I
Case "Train" 'change to trained formulas
Range("E" & I).Value = "=5+round(" & Range("T" & I).Value & ",0)"
Range("G" & I).Value = "=F" & I & "+E" & I
End Select
Next I
End Sub


This page was last modified