|
分類:[VB6以前]
分類:[VB6以前]
ＶＢＡなのですが、型が一致しませんとでて、どうしたらいいのかさっぱりわかりません、
失礼ですが、どなたかわかるかた教えていただきたいです
Sub 時系列()
'変数の型宣言
Dim genzaiti As Variant
Dim thikku As String
Dim ln_Index As Long
Dim asi As Long
Dim ki_time As Date
ln_Index = 13
ki_time = Format(Now, "hh:nn:ss")
asi = Worksheets("２２５先物").Cells(6, 10)
Do
genzaiti = Worksheets("２２５先物").Cells(6, 8)
thikku = Worksheets("２２５先物").Cells(6, 9)
If Now > DateAdd("hh:nn:ss", "asi", ki_time) Then
Worksheets("２２５先物").Cells(ln_Index, 1) = Format(Now, "yyyy:mm:dd")
Worksheets("２２５先物").Cells(ln_Index, 2) = Format(Now, "hh:nn:ss")
Worksheets("２２５先物").Cells(ln_Index, 3) = genzaiti
Worksheets("２２５先物").Cells(ln_Index, 4) = thikku
ki_time = Now
ln_Index = ln_Index + 1
End If
Loop Until ki_time > TimeValue("15:10:30")
End Sub
|
