ログ表示用excel

　
車体位置センサにtype.Sセンサを使っているので、
ついでに色々やってみようと
　
ログチェッカに簡単なマクロを追加して
Sub analog()
' analog Macro
' Keyboard Shortcut: Ctrl+r
i = 2
Do
If Not IsNumeric(Sheets("data").Range("L" & i).Value) Or _
Sheets("data").Range("L" & i).Value = "" Then Exit Do

L = Sheets("data").Range("L" & i).Value * 2
R = Sheets("data").Range("M" & i).Value * 2

Sheets("sheet1").Range("J" & i).Font.Color = RGB(L, L, L)
Sheets("sheet1").Range("K" & i).Font.Color = RGB(R, R, R)

i = i + 1
Loop
End Sub
　
アナログセンサの値をフォントカラーに指定して表示してみました。
ちなみにアナログのデータは０〜１２７の値に落として
マクロで０〜２５４にして使っています。
　
A/Sのラインがtype.Sセンサの状態（ステアリング付近）
D/Sのラインがver.4センサの状態（ステアリング前方２５ｃｍ）
　
役に立つかは微妙ですが･･･