Excel VBA質問箱 IV

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

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


38905 / 76732 ←次へ | 前へ→

【42953】Re:リアルタイム株価取得
質問  dragon E-MAIL  - 06/9/27(水) 15:38 -

引用なし
パスワード
   'シートモジュール
Private Sub Worksheet_Calculate()
  If Range("A1").Value > mxv Then
    mxv = Range("A1").Value
  ElseIf Range("A1").Value < mnv Then
    mnv = Range("A1").Value
  End If
End Sub

の中で  If Range("A1").Value > mxv Then の部分でエラー”型が一致しません”と返ります。
どのように修復すればいいのでしょうか?
お教えください。また、時刻も表示する場合、標準モジュルで

Public stv As Long, mxv As Long, mnv As Long, nrow As Long

Sub test()
  Range("A2").Value = "時刻"
  Range("B2").Value = "始値"
  Range("C2").Value = "高値"
  Range("D2").Value = "安値"
  Range("E2").Value = "終値"
  nrow = 3
  Call SetProc
End Sub

Function SetProc()
  Dim ntm As Date

  ntm = Time()
  stv = Range("A1").Value
  mxv = Range("A1").Value
  mnv = Range("A1").Value

  If ntm >= TimeValue("09:00:00") And ntm <= TimeValue("15:00:00") Then
    Application.OnTime ntm + TimeValue("00:20:00"), "GetVal"
  Else
    Application.OnTime TimeValue("09:00:00"), "GetVal"
  End If

End Function

Function GetVal()
  Cells(nrow, 1).Value = ntm
  Cells(nrow, 2).Value = stv
  Cells(nrow, 3).Value = mxv
  Cells(nrow, 4).Value = mnv
  Cells(nrow, 5).Value = Range("A1").Value
  nrow = nrow + 1
  Call SetProc
End Function
とすればいいのでしょうか?

0 hits

【42371】リアルタイム株価取得 Ganga 06/9/8(金) 13:34 質問
【42375】Re:リアルタイム株価取得 かみちゃん 06/9/8(金) 20:09 発言
【42387】Re:リアルタイム株価取得 漂流民 06/9/9(土) 1:10 発言
【42406】Re:リアルタイム株価取得 Ganga 06/9/9(土) 16:44 お礼
【42405】Re:リアルタイム株価取得 Ganga 06/9/9(土) 16:40 お礼
【42434】Re:リアルタイム株価取得 漂流民 06/9/12(火) 1:20 発言
【42953】Re:リアルタイム株価取得 dragon 06/9/27(水) 15:38 質問
【43039】Re:リアルタイム株価取得 漂流民 06/9/29(金) 23:54 発言
【42419】Re:リアルタイム株価取得 パン 06/9/11(月) 8:35 発言
【42442】Re:リアルタイム株価取得 Ganga 06/9/12(火) 10:41 お礼
【42455】Re:リアルタイム株価取得 パン 06/9/12(火) 15:41 回答
【42458】Re:リアルタイム株価取得 Ganga 06/9/12(火) 16:45 質問
【42469】Re:リアルタイム株価取得 パン 06/9/12(火) 23:10 発言
【42559】Re:リアルタイム株価取得 Ganga 06/9/15(金) 6:48 質問
【42560】Re:リアルタイム株価取得 パン 06/9/15(金) 7:13 発言
【42589】Re:リアルタイム株価取得 Ganga 06/9/15(金) 20:05 お礼
【42597】Re:リアルタイム株価取得 パン 06/9/15(金) 22:18 発言
【42614】Re:リアルタイム株価取得 Ganga 06/9/16(土) 15:04 発言
【42804】Re:リアルタイム株価取得 パン 06/9/22(金) 12:08 発言

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