Excel VBA質問箱 IV

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

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


38822 / 76732 ←次へ | 前へ→

【43039】Re:リアルタイム株価取得
発言  漂流民  - 06/9/29(金) 23:54 -

引用なし
パスワード
   ▼dragon さん:
こんばんわ
もう見てないかな?

>の中で  If Range("A1").Value > mxv Then の部分でエラー”型が一致しません”と返ります。
>どのように修復すればいいのでしょうか?
たぶん、A1セルに数字以外の値(空白も含めて)が入ってることが原因でしょう。
よく考えたら、ザラ場外では数字は入らないですね^^
下記のようにしてみましたがどうでしょう?


>お教えください。また、時刻も表示する場合、標準モジュルで

>とすればいいのでしょうか?
惜しいです、変数ntm は関数SetProc 内でしか使えないローカル変数です。
変数ntm を関数GetVal に引数として渡すか、グローバル変数にしてやる必要があります。
下記ではグローバル変数にしてみました。

※未実行です、間違ってたらすいません。

'シートモジュール
Private Sub Worksheet_Calculate()
  If IsNumeric(Range("A1").Value) = False Then Exit Sub
  If numflg = False Then
    stv = Range("A1").Value
    mxv = Range("A1").Value
    mnv = Range("A1").Value
    numflg = True
  End If
  If Range("A1").Value > mxv Then
    mxv = Range("A1").Value
  ElseIf Range("A1").Value < mnv Then
    mnv = Range("A1").Value
  End If
  edv = Range("A1").Value
End Sub


'標準モジュール
Public stv As Long, edv As Long, mxv As Long, mnv As Long, nrow As Long
Public ntm As Date
Public numflg As Boolean

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()
  ntm = Time()
  numflg = False

  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 & " 〜 " & ntm + TimeValue("00:20:00")
  Cells(nrow, 2).Value = stv
  Cells(nrow, 3).Value = mxv
  Cells(nrow, 4).Value = mnv
  Cells(nrow, 5).Value = edv
  nrow = nrow + 1
  Call SetProc
End Function


P.S.
時間の経ったスレに質問を入れるより、新しくスレ立てて
ここのリンクを貼るようにした方が回答は付きやすいですよ^^

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 発言

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