Board logo

標題: [發問] 關於VBA型態不符合 (錯誤 13)的問題!! [打印本頁]
作者: byho_130    時間: 2015-11-16 11:20     標題: 關於VBA型態不符合 (錯誤 13)的問題!!

本帖最後由 GBKEE 於 2015-11-16 11:30 編輯

我是完全不會VBA的,一直都是另一位同事做的,
但他已經resign了,現在出了問題但公司沒有人會VBA
請大家幫幫忙可以嗎????感激!!!!!!

我是在generate report時彈出 ->型態不符合 (錯誤 13)
然後偵錯(如下)

'Total Paid

m = 0

For t = v To j

m = m + Cells(t, 4).Value <-這行highlight了,應該是這行錯了

Next t

t = t + 3

With Cells(t, 4)
    .Value = m
    .NumberFormat = "_($* #,##0.00_);@"
    .Font.Bold = True
End With
With Cells(t, 2)
    .Value = "Total Paid:"
    .WrapText = False
    .Font.Bold = True
End With

Range(Cells(t, 1), Cells(t, 4)).Borders(xlEdgeBottom).LineStyle = xlContinuous


請大家幫忙!!!!!拜託大家!!!!!!!!!!!!!!!!!!!!!!
作者: 准提部林    時間: 2015-11-16 11:31

For t = v To j　→　v=??,  j=??

m = m + Cells(t, 4).Value　→　檢查一下　Cells(t, 4)　是否為〔數值〕？
作者: GBKEE    時間: 2015-11-16 11:36

回復 1# byho_130
試試看
  1. For t = v To j
  2.     If IsNumeric(Cells(t, 4)) Then
  3.         m = m + Cells(t, 4).Value '<-這行highlight了,應該是這行錯了
  4.     End If

  6. Next t
複製代碼
作者: byho_130    時間: 2015-11-16 11:43

回復  byho_130
試試看
GBKEE 發表於 2015-11-16 11:36


OMG thank you so much!!!!! it's work!!!!!!!!!!!!!!!!!!!!!!!
thank you so so much !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
太感激了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)