返回列表 上一主題 發帖

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

laieven

帖子
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)
收藏 分享

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
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")
是因為這行語法最前面多了個『'』，讓他變成了一個注解的關係嗎？

TOP

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
3#
發表於 2015-9-9 11:13 | 只看該作者
不~~是因為偵錯一直出現這一行有問題~~我只好先把他註解掉!!註解掉之後程式運行就很順利!!

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
4#
發表於 2015-9-10 12:06 | 只看該作者
回復 3# laieven


    那如果改成這樣的話，能夠正確執行嗎？
  1. ElseIf Range("b2") <> "-" Then  '清盤的狀態, 不取其資料
  2.                 tr = Int((nowTime - startTime) * 1440) + 10 '每差 300 秒就換一列
  3.                 Range("b" & tr).Resize(1, 4) = Range("b2:E2").Value
複製代碼

TOP

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
5#
發表於 2015-9-10 16:41 | 只看該作者
感謝各位熱情幫助!!
問題終於獲得解決!!
感恩阿!!!

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題