エクセルでRomRaider風にマップを表示する方法

エクセルでマップの計算をしている人は多いと思いますが不便なのはセルの色ですよね～
エクセルのデフォルトの色ではRomRaiderの色は表示しきれません。
64Bit版は使える色は多いそうですが私の使っているエクセルは10年前の使いまわし・・・

そこで古いエクセルでもRomRaider風のマップ色にする方法を紹介します。（ﾅｶﾞｲﾖ）
トップ画像の上側がエクセルでの表示。
下側がRomRaiderのキャプチャです。
エクセルのほうが彩度高いです（^^）

では早速・・・
まず、エクセルのカラーパレットをマクロで変更します。

コード
---------------
Sub ChangeParette() '青⇒水色⇒緑⇒黄色⇒橙⇒赤のﾊﾟﾚｯﾄ

With ThisWorkbook

.Colors(1) = RGB(0, 0, 255) '
.Colors(2) = RGB(0, 10, 255) '
.Colors(3) = RGB(0, 40, 255) '
.Colors(4) = RGB(0, 60, 255) '
.Colors(5) = RGB(0, 80, 255) '
.Colors(6) = RGB(0, 100, 255) '
.Colors(7) = RGB(0, 125, 255) '
.Colors(8) = RGB(0, 150, 255) '
.Colors(9) = RGB(0, 170, 255) '
.Colors(10) = RGB(0, 190, 255) '

.Colors(11) = RGB(0, 210, 255) '
.Colors(12) = RGB(0, 230, 255) '
.Colors(13) = RGB(0, 255, 255) '
.Colors(14) = RGB(0, 255, 235) '
.Colors(15) = RGB(0, 255, 215) '
.Colors(16) = RGB(0, 255, 195) '
.Colors(17) = RGB(0, 255, 175) '
.Colors(18) = RGB(0, 255, 155) '
.Colors(19) = RGB(0, 255, 135) '
.Colors(20) = RGB(0, 255, 115) '

.Colors(21) = RGB(0, 255, 95) '
.Colors(22) = RGB(0, 255, 75) '
.Colors(23) = RGB(0, 255, 55) '
.Colors(24) = RGB(0, 255, 35) '
.Colors(25) = RGB(0, 255, 0) '
.Colors(26) = RGB(20, 255, 0) '
.Colors(27) = RGB(40, 255, 0) '
.Colors(28) = RGB(60, 255, 0) '
.Colors(29) = RGB(80, 255, 0) '

.Colors(30) = RGB(100, 255, 0) '
.Colors(31) = RGB(120, 255, 0) '
.Colors(32) = RGB(140, 255, 0) '
.Colors(33) = RGB(160, 255, 0) '
.Colors(34) = RGB(180, 255, 0) '
.Colors(35) = RGB(200, 255, 0) '
.Colors(36) = RGB(220, 255, 0) '
.Colors(37) = RGB(240, 255, 0) '
.Colors(38) = RGB(255, 255, 0) '
.Colors(39) = RGB(255, 235, 0) '

.Colors(40) = RGB(255, 215, 0) '
.Colors(41) = RGB(255, 195, 0) '
.Colors(42) = RGB(255, 175, 0) '
.Colors(43) = RGB(255, 150, 0) '
.Colors(44) = RGB(255, 130, 0) '
.Colors(45) = RGB(255, 110, 0) '
.Colors(46) = RGB(255, 75, 0) '
.Colors(47) = RGB(255, 55, 0) '
.Colors(48) = RGB(255, 35, 0) '
.Colors(49) = RGB(255, 15, 0) '
.Colors(50) = RGB(255, 0, 0) '


End With

End Sub
---------------
エクセル2000では50色しかカラー設定できないので（多分）RGBでソースのとおり設定します。
マクロを実行してエクセルファイルを保存すればそのファイルの色の設定は保持します。
EcuFlash風にしたいときは各自RGBを調整して試行錯誤してください（^^）

古いエクセルでは条件付書式設定に限りがあるので50通りの色が選べません。
そこでマクロでセルの色を変更してやります。
まず、マップ上の最小値と最大値をmin,max関数で抽出しセルに50等分した数値を割り当てます。
これが色設定判断のセルになります。
あとは、マクロで随時セルの数値を判断してColor設定を行います。

コード
---------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Range("C6:R50")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Cells(2, 6) To Cells(2, 7)
myColor = 1
Case Cells(2, 7) To Cells(2, 8)
myColor = 2
Case Cells(2, 8) To Cells(2, 9)
myColor = 3
Case Cells(2, 9) To Cells(2, 10)
myColor = 4
Case Cells(2, 10) To Cells(2, 11)
myColor = 5
Case Cells(2, 11) To Cells(2, 12)
myColor = 6
Case Cells(2, 12) To Cells(2, 13)
myColor = 7
Case Cells(2, 12) To Cells(2, 14)
myColor = 8
Case Cells(2, 13) To Cells(2, 15)
myColor = 9
Case Cells(2, 14) To Cells(2, 16)
myColor = 10
Case Cells(2, 15) To Cells(2, 17)
myColor = 11
Case Cells(2, 16) To Cells(2, 18)
myColor = 12
Case Cells(2, 17) To Cells(2, 19)
myColor = 13
Case Cells(2, 18) To Cells(2, 20)
myColor = 14
Case Cells(2, 19) To Cells(2, 21)
myColor = 15
Case Cells(2, 20) To Cells(2, 22)
myColor = 16
Case Cells(2, 21) To Cells(2, 23)
myColor = 17
Case Cells(2, 22) To Cells(2, 24)
myColor = 18
Case Cells(2, 23) To Cells(2, 25)
myColor = 19
Case Cells(2, 24) To Cells(2, 26)
myColor = 20
Case Cells(2, 25) To Cells(2, 27)
myColor = 21
Case Cells(2, 26) To Cells(2, 28)
myColor = 22
Case Cells(2, 27) To Cells(2, 29)
myColor = 23
Case Cells(2, 28) To Cells(2, 30)
myColor = 24
Case Cells(2, 29) To Cells(2, 31)
myColor = 24
Case Cells(2, 30) To Cells(2, 32)
myColor = 25
Case Cells(2, 31) To Cells(2, 33)
myColor = 26
Case Cells(2, 32) To Cells(2, 34)
myColor = 27
Case Cells(2, 33) To Cells(2, 35)
myColor = 28
Case Cells(2, 34) To Cells(2, 36)
myColor = 29
Case Cells(2, 35) To Cells(2, 37)
myColor = 30
Case Cells(2, 36) To Cells(2, 38)
myColor = 31
Case Cells(2, 37) To Cells(2, 39)
myColor = 32
Case Cells(2, 38) To Cells(2, 40)
myColor = 33
Case Cells(2, 39) To Cells(2, 41)
myColor = 34
Case Cells(2, 40) To Cells(2, 42)
myColor = 35
Case Cells(2, 41) To Cells(2, 43)
myColor = 36
Case Cells(2, 42) To Cells(2, 44)
myColor = 37
Case Cells(2, 43) To Cells(2, 45)
myColor = 38
Case Cells(2, 44) To Cells(2, 46)
myColor = 39
Case Cells(2, 45) To Cells(2, 47)
myColor = 40
Case Cells(2, 46) To Cells(2, 48)
myColor = 41
Case Cells(2, 47) To Cells(2, 49)
myColor = 42
Case Cells(2, 48) To Cells(2, 50)
myColor = 43
Case Cells(2, 49) To Cells(2, 51)
myColor = 44
Case Cells(2, 50) To Cells(2, 52)
myColor = 45
Case Cells(2, 51) To Cells(2, 53)
myColor = 46
Case Cells(2, 52) To Cells(2, 54)
myColor = 47
Case Cells(2, 53) To Cells(2, 55)
myColor = 48
Case Cells(2, 54) To Cells(2, 56)
myColor = 49
Case Cells(2, 55) To Cells(2, 57)
myColor = 50

Case Else
myColor = xlNone

End Select

Target.Interior.ColorIndex = myColor

End Sub
----------------
上記コードは数字を変更してEnterで色が変わりますが数字をコピペだと変更しないので別途マクロを走らせます。

長くなるので各自工夫して下さい。

手間はかかりますが色を合わせておくと入力ミスが防げるので効果はあります。

その他のキャプチャ


エクセルでマップデータを保存しておくと比較しやすいので便利ですね。
あとはエクセルデータをRomRaiderのテーブルにコピペできればラクできるんだけどな～