返回列表 上一主題 發帖

[發問] 執行錯誤階段13-型態不符合

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-1-10 10:00 | 只看該作者

[發問] 執行錯誤階段13-型態不符合

DEAR ALL 大大
簡單之程式如下
If Sheet48.Cells(M, 16) = Sheet10.Range("G168") And (Sheet48.Cells(M, 10) - Sheet10.Range("B84") = 0) Then
出現
執行錯誤階段13-型態不符合
?????
有哪位大大知道原因為何???
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2019-1-10 10:06 | 只看該作者
程式如下
Sub PCBCTREADGats7ALL材編轉置A()
Sheet48.Visible = True
Sheet49.Visible = True
Sheet49.[A2:E65536].ClearContents
X = Sheet48.[G65536].End(xlUp).Row
Y = Sheet49.[A65536].End(xlUp).Row + 1
For M = 2 To X
If Sheet48.Cells(M, 10) - Sheet10.Range("B84") = 0 And Sheet48.Cells(M, 11) - Sheet10.Range("B85") < 0 And Sheet48.Cells(M, 12) - Sheet10.Range("B85") >= 0 And Sheet48.Cells(M, 13) - Sheet10.Range("B86") = 0 And Sheet48.Cells(M, 14) - Sheet10.Range("B87") < 0 And Sheet48.Cells(M, 15) - Sheet10.Range("B87") >= 0 Then
Sheet49.Cells(Y, 1) = Sheet48.Cells(M, 7)
Sheet49.Cells(Y, 2) = Sheet48.Cells(M, 8)
Sheet49.Cells(Y, 3) = Sheet48.Cells(M, 1)
Sheet49.Cells(Y, 4) = Sheet48.Cells(M, 2)
Sheet49.Cells(Y, 5) = Sheet48.Cells(M, 3)
Y = Y + 1
End If
Next
End Sub
羅

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2019-1-10 10:58 | 只看該作者
回復 1# rouber590324
發生錯誤時偵錯
看M值是多少?
看該M值下，這幾個儲存格的內容分別是什麼?
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
4#
發表於 2019-1-10 13:32 | 只看該作者
感謝  stillfish00 大大
1.瞭解.用您之方式已找出問題點
   THANKS*10000
羅

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題