はじめてのブログ

一応使えそうなことは分かったけど、エクセルの作業が煩雑なのでマクロを作ってみた。

マクロが使えるEXCELファイルを作る
下記マクロを貼り付け
LOGをCSVで開いたら、シート全体をマクロが使えるEXCELに貼り付け
マクロを実行
結果をcsvで保存

以下マクロ内容ーーーーーーーーーーー
'行追加
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("J:J").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'日時コピー、書式設定
Columns("B:B").Select
Selection.Copy
Columns("C:C").Select
ActiveSheet.Paste

Columns("B:B").Select
Selection.NumberFormatLocal = "yyyy/m/d"
Columns("C:C").Select
Selection.NumberFormatLocal = "[$-x-systime]h:mm:ss AM/PM"

'速度変換
Range("J2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*3.6"
n = WorksheetFunction.CountIf(Range("A:A"), "<>")
Range("J2:j" & n).FillDown

'表題変更
Range("B1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "date"
Range("C1").Select
ActiveCell.FormulaR1C1 = "time"
Range("G1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "height"
Range("J1").Select
ActiveCell.FormulaR1C1 = "speed"


以上－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

覚書です。