2017-12-19 3 views

答えて

1
  • マクロを記録します。
  • 次に、必要な情報を得るには、式Minute()Hour()を使用します。
  • それはすべてです。
+0

@TanyaMukhia - 私たちはできると思います。 :) – Vityata

+0

最初にn = 0にしてからEOF(Do not While EOF)を入力し、hrs = hour(時間(N))とmin = minute(時間(N))と仮定してファイルからデータを入力し、 N = N + 1とループしてファイルを閉じます。後で別のサブで私は別の列に表示しました&私はそれをこのようにしたときに時間が表示されますが、すべて00:00:00として来て、別の列でさえhrsとminは0行全体にわたります。では、どのような問題が発生しているのでしょうか? - Tanya Mukhia 4分前に編集 –

+0

@TanyaMukhia - たくさんのもの。新しい質問を書いて、現在の出力と予想される出力のスクリーンショット+コード+説明を入力します。あなたは本当にすぐに答えを得ることができます。 – Vityata

0

私のために働いているもう一つの方法は、以下のようになります。一定のデータ列

Sub foo() 
TextVar = Format(Sheet1.Cells(1, 1).Value, "hh:mm:ss") ' get the value from the cell and convert the value to the right format 
varHours = Left(TextVar, 2) 'get the first two characters ie the Hours 
varMinutes = Mid(TextVar, 4, 2) 'get the middle two characters ie the Minutes 
varSeconds = Right(TextVar, 2) 'get the last two characters ie Seconds 
MsgBox varHours & " " & varMinutes & " " & varSeconds 
End Sub 
+0

したがって、時刻がHH:MM:SSの.CSVファイルからデータを表示し、スプレッドシートにHHとMMとして別々に表示する必要があります。これは、異なる列で結果を実行するのに役立ちますか? –

+0

@TanyaMukhiaそうですが、CSVをどのように読んでいるのかによって異なりますが、読んでいるコードを投稿することができれば、私の答えはあなたのコードで更新されます。そうでない場合、私はCSVを読むことを含む私の答えを更新することができますか?あなたがどうやってどうやって助けが必要なのか教えてください... – Xabier

+0

確かに私はあなたに知らせてくれてありがとう:) –

1

、試してみてください。

Sub parser206() 
    Dim r As Range 
    For Each r In Columns(1).Cells.SpecialCells(2) 
     arr = Split(r.Text, ":") 
     r.Offset(0, 1) = arr(1) 
     r.Offset(0, 2) = arr(2) 
    Next r 
End Sub 

enter image description here

+0

したがって、時刻がHH:MM:SSの.CSVファイルからデータを表示し、HHとMMとして別々にスプレッドシートに表示する必要があります。それでは、このコードはまだ動作しますか? –

関連する問題