Excel VBA質問箱 IV

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

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


14886 / 76734 ←次へ | 前へ→

【67336】Re:時間計算について
発言  Hirofumi  - 10/11/25(木) 19:58 -

引用なし
パスワード
   第1案、後で処理するマクロ内で以下の様にシリアル値に変換する

Public Sub Test1()

  Dim vntData As Variant
  
  vntData = Range("A1").Value
  
  vntData = TimeSerial(vntData \ 100, vntData Mod 100, 0)
  
  MsgBox vntData
  
End Sub

第2案、シートの「Sub Worksheet_Change」で入力時にシリアル値に変換
(セル書式は「[h]:mm」形式)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim vntData As Variant
  
  With Target
    If Not (.Row = 1 And .Column = 1 And .Count = 1) Then
      Exit Sub
    End If
    vntData = Target.Value2
  End With
  
  vntData = TimeSerial(vntData \ 100, vntData Mod 100, 0)
  
  Application.EnableEvents = False
  Target.Value = vntData
  Application.EnableEvents = True
    
End Sub

では?

1 hits

【67332】時間計算について TAC 10/11/25(木) 17:43 質問
【67336】Re:時間計算について Hirofumi 10/11/25(木) 19:58 発言
【67338】Re:時間計算について よろずや 10/11/26(金) 0:06 回答
【67342】Re:時間計算について TAC 10/11/26(金) 14:04 お礼
【67357】Re:時間計算について TAC 10/11/27(土) 11:25 質問
【67358】Re:時間計算について よろずや 10/11/27(土) 21:29 発言
【67371】Re:時間計算について TAC 10/11/29(月) 9:56 お礼

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