スマホ用GPSロガー その2 (覚書)
一応使えそうなことは分かったけど、エクセルの作業が煩雑なのでマクロを作ってみた。マクロが使える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"以上-----------------------------覚書です。