麻辣家族討論版版 » Excel程式區 » 請教一個vba程式出錯的問題

返回列表下一主題上一主題發帖

請教一個vba程式出錯的問題

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-9-8 12:47 | 只看該作者

請教一個vba程式出錯的問題

請教各位先進,我用dde串聯了富邦的xq軟體到excel中
使用了工作表事件程序中的calculate去自動作計算
每一分鐘自動排序的記錄b2:e2的資料
但為何d2的記錄程式卻一值顯示有錯誤呢?

我搞不懂為什麼!!同一個寫法我曾從b2一直記錄到q2都沒錯
唯獨這個程式d2一直出現錯誤!!

請各位先進幫忙看一下問題癥結點!!
感謝了!!

a01-2.rar (32.15 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

5^#

發表於 2015-9-10 16:41 | 只看該作者

感謝各位熱情幫助!!
問題終於獲得解決!!
感恩阿!!!

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

4^#

發表於 2015-9-10 12:06 | 只看該作者

回復 3# laieven

那如果改成這樣的話，能夠正確執行嗎？

ElseIf Range("b2") <> "-" Then '清盤的狀態, 不取其資料
tr = Int((nowTime - startTime) * 1440) + 10 '每差 300 秒就換一列
Range("b" & tr).Resize(1, 4) = Range("b2:E2").Value

複製代碼

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

3^#

發表於 2015-9-9 11:13 | 只看該作者

不~~是因為偵錯一直出現這一行有問題~~我只好先把他註解掉!!註解掉之後程式運行就很順利!!

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2015-9-8 22:17 | 只看該作者

回復 1# laieven

' Range("d" & tr) = Range("d2")
是因為這行語法最前面多了個『'』，讓他變成了一個注解的關係嗎？

靜思自在 : 知識要用心體會，才能變成自己的智慧。

返回列表下一主題上一主題