帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-10-12 11:25 | 只看該作者

執行vba出現應用程式定義錯誤

請問下面執行時，時可正常執行，但有時出現應用程式定義錯誤，
若Sheets("貼這")刪除整個欄列工作頁執行時又可以，不知問題在哪

sub test ()
Application. screenupdate=false
Dim rng(1),M as Range
Sheets("貼這").Range(h:h).Clear
Set rng(1)=Sheets("貼這"). Range("A2",Range("A"&Rows.count).End(xlUp))
For Each M In rng(1)
M.Offset(,7)=(M.Offset(,3)-M.Offset(,2))*86400
If M.Offset(,7)<0 Then
M.Offset(,7)==""
End If
Next
End sub

樓主熱帖

新人一枚

eric093

中學生 Rank: 2

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

7^#

發表於 2014-10-15 22:17 | 只看該作者

謝謝各位版主，原來可以換個方式想！！問題排除了！

新人一枚

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2014-10-15 05:30 | 只看該作者

本帖最後由 GBKEE 於 2014-10-15 05:36 編輯

回復 5# eric093

而我在這檔案中新增一個模組，單獨執行時其速度龜速的慢跑不了

試試看

Option Explicit
Sub test()
Dim Rng As Range
'Application.screenupdate = False 'screenupdate ????
Application.ScreenUpdating = False
With Sheets("貼這")
.Range("h:h").Clear
'Set rng(1) = .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
Set Rng = .Range("A2", .Range("A" & .Rows.Count).End(xlUp)).Offset(, 7)
With Rng
.Formula = "=if((d2-c2) * 86400>0,(d2-c2) * 86400,0)" '給公式
.Value = .Value '將範圍的公式轉為值
End With
End With
Application.ScreenUpdating = True
End Sub

複製代碼

ps：由於原檔案有大量的客戶資料及員工資料(無法將資料用其它代號替代，因為資料每欄資料都是客戶及員工資料)，所以不方便上傳，請見諒！

維護個資(公司的機密)可修改資料,上傳修改的部份即可

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

eric093

中學生 Rank: 2

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

5^#

發表於 2014-10-15 01:10 | 只看該作者

感謝版大相救！
但是出現處理速極緩慢！
原本檔案中就已有別的巨集，而我在這檔案中新增一個模組，單獨執行時其速度龜速的慢跑不了！
但以相同的資料貼在新增的活頁簿下執行時，一秒即可以完成！
ps：由於原檔案有大量的客戶資料及員工資料(無法將資料用其它代號替代，因為資料每欄資料都是客戶及員工資料)，所以不方便上傳，請見諒！

新人一枚

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-10-13 06:08 | 只看該作者

回復 1# eric093

Sheets("貼這").Range(h:h).Clear

Sheets("貼這").Range("h:h").Clear

'Set rng(1) = Sheets("貼這").Range("A2", Range("A" & Rows.Count).End(xlUp))
'程式碼在 "貼這"工作表模組上可行
'如不在"貼這"工作表模組上,且 ActiveSheet 不是"貼這"工作表 ,會出錯
'不在"貼這"工作表模組上建議修改
With Sheets("貼這")
.Range("h:h").Clear
Set rng(1) = .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
End With

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2014-10-11 21:13 | 只看該作者

回復 1# eric093

E.Offset(, 3) =( E.Offset(, 2)-E.Offset(, 2))*86400
應該是筆誤
改為
E.Offset(, 3) =( E.Offset(, 2)-E.Offset(, 1))*86400

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

eric093

中學生 Rank: 2

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

2^#

發表於 2014-10-11 20:29 | 只看該作者

時間相減~資料型態不符

請問下述二個時間用vba相減並換算成秒數，但一直出現資料型態不符，請問是要修改哪？
序號 00:00:02 00:04:00

Sub test2()
Application.ScreenUpdating = False

Dim rng(1), E As Range
Set rng(1) = Sheets("sheets1").Range("A1", Range("A" & Rows.Count).End(xlUp))
For Each E In rng(1)
E.Offset(, 3) =( E.Offset(, 2)-E.Offset(, 2))*86400

Next

新人一枚

TOP