|
カテゴリ:バイク関連
一応使えそうなことは分かったけど、エクセルの作業が煩雑なのでマクロを作ってみた。
マクロが使える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" 以上----------------------------- 覚書です。 お気に入りの記事を「いいね!」で応援しよう
最終更新日
2023.03.26 10:48:29
コメント(0) | コメントを書く
[バイク関連] カテゴリの最新記事
|