IXA 来期に向けてのカードの整理

以前も紹介をしたと思いますが、再び参考までの紹介です。

自分の場合は Excel を利用していますが、無料の計算表を利用する方法もあると思います。

9+10鯖 と 11+12鯖 の様に来期に統合がある場合は、持ち越せるカード数に制限があるため、カードの整理が必要です。

自分の場合は、500枚 + 50枚（位階報奨分）なので、整理後の目標枚数を500枚にしています。

整理の方法は、以下の様にExcel マクロを利用して武将カードの枚数のカウントをしています。

１．「カード一括破棄」の武将リストからカードデータのコピー

武将データを最終行までコピー

２．Notepad にペースト

Notepadにペーストしたものを全コピー

３．Excel にペースト

Excel にペースト

４．マクロを実行

Excel のマクロを実施して、武将データを1行に並び替えて完成

Excel マクロ

Macro1 ～ Macro3 は、各武将の並べ替えマクロで、以下の様になっています。

武将のランクによって、データの構造が異なるため、この様にしています。

これらのマクロは、「相対参照でマクロの記録」によって、操作内容を記録したものです。

・ Macro1　：　ランク５以下の武将用

・ Macro2　：　限凸の武将用

・ Macro3　：　極凸の武将用

そして、Macro4 が一括変換用で、武将のランクによって実行するマクロを選択しており、これをボタン操作で実行する様にしています。

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveCell.Offset(1, 0).Range("A1:B1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-1, 4).Range("A1:B1")
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-2, 6).Range("A1")
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-3, 7).Range("A1")
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-3, 8).Range("A1")
    ActiveCell.Offset(1, -1).Range("A1:E1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-4, 10).Range("A1:E1")
    ActiveCell.Offset(-3, 0).Rows("1:4").EntireRow.Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Offset(0, 1).Range("A1").Select
End Sub


Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveCell.Offset(0, 4).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(0, 1).Range("A1")
    ActiveCell.Offset(1, -4).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-1, 6).Range("A1")
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-2, 7).Range("A1")
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-2, 8).Range("A1")
    ActiveCell.Offset(1, -1).Range("A1:E1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-3, 10).Range("A1:E1")
    ActiveCell.Offset(-2, 0).Rows("1:3").EntireRow.Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Offset(0, 1).Range("A1").Select
End Sub
Sub Macro3()
'
' Macro3 Macro
'

'
    ActiveCell.Offset(0, 4).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(0, 1).Range("A1")
    ActiveCell.Offset(1, -4).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-1, 6).Range("A1")
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-2, 7).Range("A1")
    ActiveCell.Offset(1, 0).Range("A1:B1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-3, 8).Range("A1:B1")
    ActiveCell.Offset(1, 0).Range("A1:E1").Select
    Selection.Cut Destination:=ActiveCell.Offset(-4, 10).Range("A1:E1")
    ActiveCell.Offset(-3, 0).Rows("1:4").EntireRow.Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Offset(0, 1).Range("A1").Select
End Sub


Sub Macro4()

    Do

        If ActiveCell.Offset(0, 3).Value = "極限突破" Then
           Call Macro3
           GoTo Sub1
        End If

        If ActiveCell.Offset(0, 3).Value = "限界突破" Then
           Call Macro2
           GoTo Sub1
        End If

        If ActiveCell.Offset(0, 3).Value = "" Then
            End
        End If

        Call Macro1
        
Sub1:

    Loop

End Sub

【追記】

自分の整理の仕方は、以下の様にしています。

• レアリティ別で整理して、特まではカウントする。
• 上や序で、素材や陣張り部隊のカードをカウントする。
• 童、祝、雅、化等の特殊カードはカウントする。

上記の合計が目標を超えている場合は、以下の処理をして再カウントする。

• ランクアップ、スキル追加等の合成が可能なものは合成する。
  （キャンペーン期間で成功率がUP中）
• 比較的重要でないカードはスキル強化等で使ってしまう。

以上