返回列表 上一主題 發帖

一個巨集執行錯誤？

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-2-25 16:29 | 只看該作者

一個巨集執行錯誤？

檔案在執行巨集時會出現"型態不符"錯誤
錯誤程式   A.Offset(, 29) = (My.Offset(, 1) - A.Offset(, 28)) + My.Offset(, 1)
請各位老師協助   謝謝

複製 -100-02-18_車歷卡第二版明細_DMS.zip (720.49 KB)

收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-2-25 20:20 | 只看該作者
A.Offset(, 28))等於空白時算式不成立就會出錯

TOP

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
3#
發表於 2011-2-26 12:14 | 只看該作者
原來如此，現在增加一個判別式就OK了
If Not My Is Nothing And A.Offset(, 28) = "" Then        
          A.Offset(, 28) = My.Offset(, 1)         
        End If
If Not My Is Nothing And A.Offset(, 28) <> "" Then   
            A.Offset(, 29) = (My.Offset(, 1) - A.Offset(, 28)) + My.Offset(, 1)            
            A.Offset(, 28) = My.Offset(, 1)
            
           End If

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題