excel - Excel VBA将断裂二进制转换为十进制问题

Question

在此处输入图像描述我想首先计算“。”的左侧部分 与 bin2dec。但我的右侧有问题。它总是说 0。我的期望是把两边相加，所以我得到一个 15.something 数字

Sub Konvertálás_Kattintás()
Dim szamok As String
Dim hossz As Long
Dim karakterek As Variant
Dim sum As Integer
Dim ss As Integer
Dim hatvany As Integer
szamok = Range("F2").Value
ReDim karakterek(1 To Len(szamok))

For i = 1 To Len(szamok)
karakterek(i) = Mid(szamok, i, 1)
Next i

For j = 1 To Len(karakter)
If (karakter(i) = "1") Then
hatvany = hatvany * 2
sum = 2 ^ (-hatvany)
End If
Next j

MsgBox (WorksheetFunction.Bin2Dec(Range("E2") + sum))

End Sub

标签： excelvba