セルの時間を秒で表す への返答
投稿で使用できる特殊コードの説明。(別タブで開きます。)
以下の返答は逆順(新しい順)に並んでいます。
投稿者 neptune (社会人)
投稿日時
2009/2/6 08:21:01
Excel VBAならそう書きましょう。
セルの書式を標準にして現れる数字が何かを調べましょう。
そうすると、
Dim a As Integer
が原因というのが判ると思います。
ヒント：日付型
#ついでに、既定のプロパティを省略するのはお勧めできません。暗黙の何たらかんたらで、
小さな親切大きなお世話ってのもありますから、バグの元です。
セルの書式を標準にして現れる数字が何かを調べましょう。
そうすると、
Dim a As Integer
が原因というのが判ると思います。
ヒント：日付型
#ついでに、既定のプロパティを省略するのはお勧めできません。暗黙の何たらかんたらで、
小さな親切大きなお世話ってのもありますから、バグの元です。
投稿者 チャレンジャー (学生)
投稿日時
2009/2/6 07:39:32
こんばんは。詳しい方々がいらっしゃるので是非私にも教えてください。
セルのA1に11：11と入っています。
11:11からその時間は何秒か計算を出したいと思います。
USER FORMはCOMMAND BUTTON と TEXTBOXが一つずつあります。
COMMAND BUTTONに
Private Sub CommandButton1_Click()
Dim a As Integer
a = ActiveSheet.Cells(1, 1)
TextBox1 = (Hour(a) * 3600) + (Minute(a) * 60)
End Sub
と入れました。
TEXTBOXに秒に換算した「40260」と表示してほしいのですが、「0」
が表示されます。
初心者なもので申し訳ありません。
ご指導宜しくお願いします。
セルのA1に11：11と入っています。
11:11からその時間は何秒か計算を出したいと思います。
USER FORMはCOMMAND BUTTON と TEXTBOXが一つずつあります。
COMMAND BUTTONに
Private Sub CommandButton1_Click()
Dim a As Integer
a = ActiveSheet.Cells(1, 1)
TextBox1 = (Hour(a) * 3600) + (Minute(a) * 60)
End Sub
と入れました。
TEXTBOXに秒に換算した「40260」と表示してほしいのですが、「0」
が表示されます。
初心者なもので申し訳ありません。
ご指導宜しくお願いします。
日付型ですね！早速調べてみます。
ちなみに使っているのはvbaです！