Excel VBA質問箱 IV

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

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


59864 / 76732 ←次へ | 前へ→

【21534】条件が認識しません
質問  あすなろ  - 05/1/22(土) 23:31 -

引用なし
パスワード
   ■どうしても分かりませんので教えてください。
最初にインプットBOXを表示させて時刻をhh.mm.ssの形式で入力させます。
その後入力した時刻から10分前の時刻を取得したいのです。
下記のようにVBAを構成しましたが
分(fun)が9以下を認識していないようで
End Ifまで進んでしまいます。
やりたい事は10分前の時刻取得なので
例えば入力した分が5分だと10分前は55分となります。
どのようにすれば宜しいのでしょうか?

■実はまだこの後に取得した10分前の時、分、秒から
hh.mm.ssの形式への表示もしなければなりません。
他にhh.mm.ssの形式で10分前の時刻を取得する良い方法があればご教授願います。

Sub auto_open()
  Dim time As String
  Dim zi As String
  Dim fun As String
   time = InputBox("時刻を入力してください。hh.mm.ss", "時刻入力")
  If time <> "" Then
    Sheets("Sheet1").Select
    Range("B1").Value = time
    zi = Left(time, 2)
    fun = Mid(time, 4, 2)
    '時の取得
    If fun <= 9 Then
    Range("b2").Value = zi - 1
    ElseIf zi = 0 Then
    Range("b2").Value = 23
    End If
    Range("b2").Value = zi
    '分の取得
    If fun <= 9 Then
    Range("b3").Value = fun + 50
    End If
    Range("b3").Value = fun - 10
    '秒の取得
    Range("B4").Value = Right(time, 3)
  Else
   MsgBox "時刻が入力されませんでした。最初からやり直してください"
  Exit Sub
  End If
 End Sub
2 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 お礼

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