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

[發問] 執行階段錯誤-形態不符合-問題請教

rouber590324

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-9-17 14:20 | 只看該作者

[發問] 執行階段錯誤-形態不符合-問題請教

dear  all 大大
1執行圖一程式停於
  Sheet60.Cells(M, 53) = "C4  " & mymax2
  秀出執行階段錯誤-形態不符合
2請叫何原因-煩不吝賜教  thanks*10000

圖一
Sub BADR函數VBA化1()
'BA-DR函數VBA化
Sheet60.[BA2:BC65536].ClearContents
X = Sheet60.[T65536].End(xlUp).Row
For M = 2 To X
Z = Sheet60.Cells(M, 15) & Sheet60.Cells(M, 21) & Round(Sheet60.Cells(M, 18) * Sheet60.Cells(1, 27) + Sheet60.Cells(1, 17), 1) & "+" & Round(Sheet60.Cells(M, 19) * Sheet60.Cells(1, 27) + Sheet60.Cells(1, 17), 1)
mymax2 = Evaluate("VLOOKUP(""" & Z & """,Symbol Pin Report!B:J,3,FALSE)")
If Sheet60.Cells(M, 20) = "A01" Then
Sheet60.Cells(M, 53) = "C4  " & mymax2
End If
If Sheet60.Cells(M, 20) = Sheet60.Cells(1, 26) Then
Sheet60.Cells(M, 53) = "BGA  " & mymax2
Else
Sheet60.Cells(M, 53) = "??" & mymax2
End If
'=IF(T2="A01","C4  ",IF(T2=$Z$1,"BGA  ","??"))&VLOOKUP(O2&U2&ROUND(R2*$AA$1+$Q$1,1)&"+"&ROUND(S2*$AA$1+$Q$1,1),'Symbol Pin Report'!B:J,3,FALSE)
'=IF(T2="A01","C4  ",IF(T2=$Z$1,"BGA  ","??"))&VLOOKUP(O2&U2&ROUND(R2*$AA$1+$Q$1,1)&"+"&ROUND(S2*$AA$1,1),'Symbol Pin Report'!B:J,3,FALSE)
B = Sheet60.Cells(M, 15) & Sheet60.Cells(M, 21) & Round(Sheet60.Cells(M, 18) * Sheet60.Cells(1, 27) + Sheet60.Cells(1, 17), 1) & "+" & Round(Sheet60.Cells(M, 19) * Sheet60.Cells(1, 27) + Sheet60.Cells(1, 17), 1)
mymax3 = Evaluate("VLOOKUP(""" & B & """,Symbol Pin Report!B:J,7,FALSE)")
Sheet60.Cells(M, 54) = Round(mymax3 / 1000, 3)
'=ROUND(VLOOKUP(O2&U2&ROUND(R2*$AA$1+$Q$1,1)&"+"&ROUND(S2*$AA$1+$Q$1,1),'Symbol Pin Report'!B:J,7,FALSE)/1000,3)
'=ROUND(VLOOKUP(O2&U2&ROUND(R2*$AA$1+$Q$1,1)&"+"&ROUND(S2*$AA$1,1),'Symbol Pin Report'!B:J,7,FALSE)/1000,3)
C = Sheet60.Cells(M, 15) & Sheet60.Cells(M, 21) & Round(Sheet60.Cells(M, 18) * Sheet60.Cells(1, 27) + Sheet60.Cells(1, 17), 1) & "+" & Round(Sheet60.Cells(M, 19) * Sheet60.Cells(1, 27) + Sheet60.Cells(1, 17), 1)
mymax4 = Evaluate("VLOOKUP(""" & C & """,Symbol Pin Report!B:J,8,FALSE)")
Sheet60.Cells(M, 55) = Round(mymax4 / 1000, 3)
Next
'=ROUND(VLOOKUP(O2&U2&ROUND(R2*$AA$1+$Q$1,1)&"+"&ROUND(S2*$AA$1+$Q$1,1),'Symbol Pin Report'!B:J,8,FALSE)/1000,3)
'=ROUND(VLOOKUP(O2&U2&ROUND(R2*$AA$1+$Q$1,1)&"+"&ROUND(S2*$AA$1,1),'Symbol Pin Report'!B:J,8,FALSE)/1000,3)
End Sub