vbaエラー13タイプミスマッチ、VBA

Question

VBAを使い慣れていて、それについてほとんど知らない。エンジニアリングプロジェクトに使用して、斜面の安定性の問題を解決します。最初の7つの計算に入ると、VBAはこれらをユーザーフォームで正しく解決します。しかし、私が8番目の公式（AVHS8）を計算しようとすると、それは私にエラーを与えます、魔女はランタイムエラー "13"タイプの不一致です。私は問題が何であるか分かりません。数式は完璧に優れています。もし誰かがそれを助けることができればそれは大いに感謝されるでしょ問題は以下の通りです。

BES = 2.5 RAD = 18.58 DTCP = 7.5とOH = 17、これらは、私はそれらがあなたのフォーム上のコントロールではなく、変数であると仮定していると

Private Sub Calculate_Click() 
RAD = Sqr(DTCP^2 + OH^2) 
BES = DTCP/3 
AVHS1 = (0) 
AVHS2 = (Sqr(RAD^2 - (DTCP - BES)^2) - OH) 
AVHS3 = (Sqr(RAD^2 - (DTCP - BES - BES)^2) - (OH) + (Tan(30 * 3.14/180) * BES)) 
AVHS4 = (Sqr(RAD^2 - (DTCP - BES - BES - BES)^2) - (OH) + (Tan(30 * 3.14/180) * BES * 2)) 
AVHS5 = (Sqr(RAD^2 - (DTCP - BES - BES)^2) - (OH) + (Tan(30 * 3.14/180) * BES * 3)) 
AVHS6 = (Sqr(RAD^2 - (DTCP - BES)^2) - (OH) + (Tan(30 * 3.14/180) * BES * 4)) 
AVHS7 = (Sqr(RAD^2 - (DTCP)^2) - (OH) + (Tan(30 * 3.14/180) * BES * 5)) 
'VBA can solve all the above code. it cant solve the code below (AVHS8) 
AVHS8 = (Sqr(RAD^2 - (DTCP + BES)^2) - (OH) + (Tan(30 * 3.14/180) * BES * 6)) 

Answer 1

を変更しないだけで数字はどのだろう、です問題を説明してください。コントロールとして、内容はテキストで、実際に7.52.5（10ではなく）を返す(DTCP + BES)を使用すると、+は連結演算子としても機能するためです。

AVHS8 = (Sqr(RAD^2 - (CDbl(DTCP) + CDbl(BES))^2) - (OH) + (Tan(30 * 3.14/180) * BES * 6)) 

Answer 2

Sub Leverage() 

Dim i As Long 
Dim counter_less As Long 
Dim count_pos As Long 

Dim row_count As Long 
Dim num As Variant 

num = InputBox("Enter threshold") 


row_count = Cells(1, 1).CurrentRegion.Rows.Count - 2 

counter_pos = 0 
counter_less = 0 

For i = 1 To row_count 

If Abs(Cells(i + 2, 3)) > num And Cells(i + 3, 3) <> "" Then 

counter_less = counter_less + 1 
     If Cells(i + 3, 3) < 0 And i Then 
      counter_pos = counter_pos + 1 
    End If 
    End If 
    Next 
counter_pos = counter_pos/(counter_less) 
counter_less = counter_less/row_count 
MsgBox counter_pos & " %"`enter code here` 
End Sub 

I get error 6: Overflow. Anyone has any suggestions?