R
Rin Ivasaki
Guest
Hallo,
Da es mir zu dumm wurde immer wieder für meinen Charakter die Updates auszurechnen, hab ich mich mal an Excel rangesetzt und ein Excel-Sheet für das Attributs-System geschrieben.
Es wird das gesamte Attributsystem (ohne Kampf- und Jobklassen) unterstütz und mittels VBA-Makro wird ein Text generiert, das direkt zur Bestellung des Updates verwendet werden kann. Zurzeit ist aber dies in der Entwicklungsphase und der Text muss im alternativen editor (Umschaltbar mit dem Button rechts oben in der Ecke) eingefügt werden, da ansonsten eine Tabelle mit einer einzelnen Zelle generiert wird.
Das Makro ist von mir signiert, sodass es auch bei hoher Makro-Sicherheit gestartet werden kann. Zusätzlich ist anbei der Source-Code des Makros, dass sich jeder versichern kann, dass ich damit weder euren PC hacke, noch eure Mails lese, noch eure Bankkonten abräume und schon gar nicht eure Hunde vergifte oder euer Haus abrennen kann
.
Benutzen
lg
Rin
P.S.: Der Code
P.P.S.: Da sieht man, wieso ich Visual Basic und consorten HASSE...
Da es mir zu dumm wurde immer wieder für meinen Charakter die Updates auszurechnen, hab ich mich mal an Excel rangesetzt und ein Excel-Sheet für das Attributs-System geschrieben.
Es wird das gesamte Attributsystem (ohne Kampf- und Jobklassen) unterstütz und mittels VBA-Makro wird ein Text generiert, das direkt zur Bestellung des Updates verwendet werden kann. Zurzeit ist aber dies in der Entwicklungsphase und der Text muss im alternativen editor (Umschaltbar mit dem Button rechts oben in der Ecke) eingefügt werden, da ansonsten eine Tabelle mit einer einzelnen Zelle generiert wird.
Das Makro ist von mir signiert, sodass es auch bei hoher Makro-Sicherheit gestartet werden kann. Zusätzlich ist anbei der Source-Code des Makros, dass sich jeder versichern kann, dass ich damit weder euren PC hacke, noch eure Mails lese, noch eure Bankkonten abräume und schon gar nicht eure Hunde vergifte oder euer Haus abrennen kann
Benutzen
lg
Rin
P.S.: Der Code
Code:
Sub GenerateCode()
Cells(31, 1) = ""
For c = 18 To 25 Step 1
If IsNumeric(Cells(c, 4)) Then
newStr = Cells(31, 1).Text & Cells(c, 1).Text & " " & Cells(c, 2).Text
newStr = newStr & " --> " & Cells(c, 3).Text & ": " & Cells(c, 4).Text & vbLf
Cells(31, 1) = newStr
End If
Next
newStr = Cells(31, 1).Text & vbLf & "Kosten: " & Cells(14, 2).Text & " - "
newStr = newStr & Cells(26, 4).Text & " = " & Cells(27, 4).Text
Cells(31, 1) = newStr
End Sub
Anhänge:
-
8,1 KB Aufrufe: 508
Zuletzt bearbeitet von einem Moderator: