🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

2回答

2278閲覧

VBAで17桁ある数字を日付・時刻表記に変更したい

mufufu

総合スコア37

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2020/12/10 13:40

データをダウンロードすると、17桁の数値がこんな感じで「20201201070906800」ダウンロードされます。これをVBAで「2020/12/01 07:09」という表記になおしたいですが、上手くいきません。

また、同時に日付を古い順に上から並び替えをしたいです。

コードを次のようにいれましたが、どなたか、ご教授ください。

なお、データのダウンロードのコードが不完全にみえるかもしれませんが、特定できる部分を消したので、不完全になっています。

Sub データテスト() Application.ScreenUpdating = False Dim c_YYMMDD As String Dim c_YY As String Dim c_MM As String Dim date_yyyymmdd As Date Set dstWB = ThisWorkbook Worksheets("テスト").Cells.Clear Dim Date1 As String Date1 = Application.InputBox( _ "日付を入力してください(yy/mm/dd)", _ "(必須入力)" & vbLf & "日付入力", _ "yy/mm/dd") 'taiou dstWB.Worksheets("テスト").Activate Range("Q2").Value = Date1 date_yyyymmdd = Range("Q2") c_YYMMDD = Mid(date_yyyymmdd, 1, 4) & _ Mid(date_yyyymmdd, InStr(date_yyyymmdd, "/") + 1, InStrRev(date_yyyymmdd, "/") - InStr(date_yyyymmdd, "/") - 1) & _ Mid(date_yyyymmdd, InStrRev(date_yyyymmdd, "/") + 1, 2) c_YY = Mid(date_yyyymmdd, 1, 4) c_MM = Mid(date_yyyymmdd, InStr(date_yyyymmdd, "/") + 1, InStrRev(date_yyyymmdd, "/") - InStr(date_yyyymmdd, "/") - 1) c_DD = Mid(date_yyyymmdd, InStrRev(date_yyyymmdd, "/") + 1, 2) Set データ = Workbooks.Open 'Workbooks("" & c_YYMMDD & ".csv").Activate 'Sheets(1).Select Range(Cells(1, 1), Cells(1, 99)).Find(What:="Time", Lookat:=xlWhole).Select Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy dstWB.Worksheets("テスト").Activate Cells(1, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(Cells(1, 1), Cells(1, 99)).Find(What:="Time", Lookat:=xlWhole).Select Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Select Range("A2", Selection.Cells(Rows.Count, 1).End(xlUp)).NumberFormatLocal = "yyyy/mm/dd hh:mm" Workbooks("" & c_YYMMDD & ".csv").Activate Sheets(1).Select Range(Cells(1, 1), Cells(1, 99)).Find(What:="ID", Lookat:=xlWhole).Select Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy dstWB.Worksheets("テスト").Activate Cells(1, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Workbooks("" & c_YYMMDD & ".csv").Activate Sheets(1).Select Range(Cells(1, 1), Cells(1, 99)).Find(What:="Order", Lookat:=xlWhole).Select Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy dstWB.Worksheets("テスト").Activate Cells(1, 3).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Workbooks("" & c_YYMMDD & ".csv").Activate Sheets(1).Select Range(Cells(1, 1), Cells(1, 99)).Find(What:="Account", Lookat:=xlWhole).Select Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy dstWB.Worksheets("テスト").Activate Cells(1, 4).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Workbooks("" & c_YYMMDD & ".csv").Activate Sheets(1).Select Range(Cells(1, 1), Cells(1, 99)).Find(What:="Counter", Lookat:=xlWhole).Select Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy dstWB.Worksheets("テスト").Activate Cells(1, 5).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Workbooks("" & c_YYMMDD & ".csv").Activate Sheets(1).Select Range(Cells(1, 1), Cells(1, 99)).Find(What:="Date", Lookat:=xlWhole).Select Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy dstWB.Worksheets("テスト").Activate Cells(1, 6).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.DisplayAlerts = False Workbooks("" & c_YYMMDD & ".csv").Close End Sub コード

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

meg_

2020/12/10 14:05

> これをVBAで「2020/12/01 07:09」という表記になおしたいですが、上手くいきません。 表記を変換している処理はコードのどの部分でしょうか?また、上手くいかないとは具体的にはどういうことでしょうか?
guest

回答2

0

データをダウンロードすると、17桁の数値がこんな感じで「20201201070906800」ダウンロードされます。これをVBAで「2020/12/01 07:09」という表記になおしたいですが、上手くいきません。

ご参考に。

vba

1Dim x As String 2x="20201201070906800" 3 4Dim res As String 5res = Format(Left(x,12),"@@@@/@@/@@ @@:@@") 'res: "2020/12/01 07:09"

また、同時に日付を古い順に上から並び替えをしたいです。

シート上の日付ですか。もしそうなら、下記をご参考に。

並べ替え(Sort)|VBA入門

投稿2020/12/10 14:40

hatena19

総合スコア34073

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

たんに文字列の先頭から、4文字2文字2文字.... に分割すればいいだけですね
「VBA 文字数で分割」でぐぐるとやり方でてきますよ

投稿2020/12/10 14:05

y_waiwai

総合スコア88040

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問