Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59859 / 76732 ←次へ | 前へ→

【21539】Re:条件が認識しません
回答  Hirofumi  - 05/1/23(日) 0:46 -

引用なし
パスワード
   こんなでは?

Sub Test()

  Dim strTime As String
  Dim dtmTime As Date
  Dim dtmResult As Date
  
  strTime = InputBox("時刻を入力してください。hh.mm.ss", "時刻入力")
  If strTime <> "" Then
    If IsDate(strTime) Then
      dtmTime = TimeValue(strTime)
      dtmResult = dtmTime - #12:10:00 AM#
      With Sheets("Sheet1")
        With .Range("B1")
          .NumberFormatLocal = "hh.mm.ss"
          .Value = dtmTime
        End With
        .Range("B2").Value = Hour(dtmResult)
        .Range("B3").Value = Minute(dtmResult)
        .Range("B4").Value = Second(dtmResult)
        With .Range("B5")
          .NumberFormatLocal = "hh.mm.ss"
          .Value = dtmResult
        End With
      End With
    Else
      MsgBox "時刻が入力されませんでした。最初からやり直してください"
      Exit Sub
    End If
  End If
  
End Sub

0 hits

【21534】条件が認識しません あすなろ 05/1/22(土) 23:31 質問
【21535】Re:条件が認識しません ちゃっぴ 05/1/22(土) 23:44 回答
【21536】Re:条件が認識しません りすりす 05/1/22(土) 23:59 回答
【21538】Re:条件が認識しません あすなろ 05/1/23(日) 0:20 質問
【21539】Re:条件が認識しません Hirofumi 05/1/23(日) 0:46 回答
【21540】Re:条件が認識しません あすなろ 05/1/23(日) 1:03 お礼
【21542】時刻取得 あすなろ 05/1/23(日) 1:55 質問
【21543】Re:条件が認識しません Hirofumi 05/1/23(日) 2:14 回答
【21552】Re:条件が認識しません あすなろ 05/1/23(日) 15:13 お礼

59859 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free