Someone knows what should i do? it says expected array
dim szamok As String
szamok = Range("f2")
Dim hossz As Integer
ReDim karakterek(1 To Len(szamok)) As Characters
For i = 1 To Len(szamok)
karakterek(i) = szamok(i)
Next i
2 Answers
I believe this is what you need:
Dim szamok As String
Dim hossz As Long
Dim karakterek As Variant
szamok = Range("F2").Value
ReDim karakterek(1 To Len(szamok))
For i = 1 To Len(szamok)
karakterek(i) = Mid(szamok, i, 1)
Next i
Changes to original code:
Dim karakterekasVariantbeforeRedimGet characters from
szamokusingMid
1 Comment
josthi
Thank you very much. Im working on a project where i convert binary to decimal but i cant deal with the fracture binaries so i decided to deal first with the integer and then calculate the fracture part here is my code yet
As described here, you can simply use
Dim bytes() as Byte
bytes = StrConv("Xmas", vbFromUnicode)
1 Comment
josthi
Thank you very much. Do you have any tip how to convert a fracture binary to a decimal?
Redimif you haven't dimmed in the first place; (2) I think your declaration should be of typeStringrather thanCharactersif it contains text.szamok(i)is wrong asszamokis a string not an array. So if F2 contains "Fred" do you want an array of 4 elements, "F", "R","E" and "D"?