返回列表 上一主題 發帖

請教出現「執行階段錯誤13:型態不符合」!

回復 2# barrykuo
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim printime
  4.     Sheets(1).Range("C3") = "=aa"  '如果 沒有這公式->錯誤值
  5.     printime = Sheets(1).Range("C3")
  6.     If printime >= 94455 Then '出現錯誤訊息,按下偵錯,這裡出現反白,請問哪裡有錯誤?
  7.    
  8.     End If

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

TOP

如果把您給的程序在宣告加上As Double,"aa"改成94456或是94454,再執行程序,就沒有再出現錯誤訊息。

問題是  c_c_lai  已回覆你:
  你先看看 "C3" 的內容為何?
譬如: 其值如為 #VALUE! 或是 #NUM! 等,
              如拿來做運算或比較亦會出錯。
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 一個人的快樂.不是因為他擁有得多,而是因為他計較得少。
返回列表 上一主題