スマホ用GPSロガーその２（覚書） | はじめてのブログ

キーワードサーチ

▼キーワード検索

プロフィール

carz.

フォローする

楽天カード

カレンダー

カテゴリ

【廃却】SOTEC PC STATION G380DW(W-Me⇒W-2000)

e-machines J4515 '08/8 (W-Vista ⇒ W-10)

asus CM6870-JP002O '13/2 (W-7⇒ W-10)

Frontire FRNX720 (IssarのPC) '12/12 (W-8)

asus Eee PC 1225B(旧ｶﾐｻﾝのPC)'13/1(W-7⇒10)

Frontire FRMXH760/W3 '18/2 (W-10)

Lenovo ideapad 310S(ｶﾐｻﾝのPC　2代目)'17/5

富士通 LIFEBOOK AH52/CT FMVA52CTRJ

DELL Inspiron One 2320 (HaruのPC)

自作 msi B450 Ryzen5 2600X (W10→W11)

自作 asus B550 Ryzen5 3500X(W10→W11)

MacBook Pro (13-inch, Early 2011)

バックナンバー

2025.11
2025.10
2025.09

2025.08
2025.07

お気に入りブログ

ちーすけ日記 ｃｈｉ−ｓｕｋｅさん
大磯な通勤生活 ムー・コールさん
一日一日を楽しく！！ らうんどろびんさん
奸風発迷(趣味様々･… まほたいさん
M.F.T別館 たけおさん

コメント新着

carz. @ Re[1]:HOLUX M-241（液晶付きGPSロガー）をWindows10で使う(06/02) H.Oさんへコメントありがとうございます…

H.O@ Re:HOLUX M-241（液晶付きGPSロガー）をWindows10で使う(06/02) 助かりました。windows7から使っているwin…

carz. @ Re:100均で、ピン&リングフック(08/31) まめぞーさん報告ありがとうございます…

まめぞー@ Re:100均で、ピン&リングフック(08/31) はじめまして。 50，000キリ番でした。m(…

carz. @ Re[3]:古い自作PC HDD交換してAntiX17を再インストール(08/09) GGですさんへ ○ードオフだと、１０日間保…

日記/記事の投稿

ジャンクのMacbook Pro、OS Xインストール後の状況確認
ジャンクの　Macbook Pro、リカバリ
我が家にMacがやってきた（ジャンク、2011 Early)
Mint Xfce 入れてからやったこと
富士通 AH52/CT に LINUX Mint Xfce導入

< 新しい記事

新着記事一覧(全1693件)

過去の記事 >

2023.03.20

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

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

以下マクロ内容ーーーーーーーーーーー
'行追加
Columns("C:C").Select

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

'速度変換
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
コメントを書く

[バイク関連] カテゴリの最新記事

【毎日開催】

15記事にいいね！で1ポイント

10秒滞在

いいね! -- / --

次の日記を探す

おめでとうございます！
ミッションを達成しました。

※「ポイントを獲得する」ボタンを押すと広告が表示されます。