Decimal to Binary

[neo_q8]

hello,
i am trying to do Decimal to 7bit binary conversion, my function is working fine when i use it in excel, but when i include it to a sub routine, i only shows 1 digit,


Function dectobin1(DeciValue As Long, Optional NoOfBits As Integer = 7) As String
Dim i As Integer

Do While DeciValue > (2 ^ NoOfBits) - 1
NoOfBits = NoOfBits + 8
Loop
dectobin1 = vbNullString
For i = 0 To (NoOfBits - 1)
dectobin1 = CStr((DeciValue And 2 ^ i) / 2 ^ i) & dectobin1
Next i


End Function
Sub generate()

Dim dec(1 To 100) As Integer
Dim bin(1 To 100) As String
Dim i As Long
For i = 1 To 100 Step 1
Sheet1.Cells(13 + i, 1).Value = i
bin(i) = dectobin1(i)
Sheet1.Cells(13 + i, 4).Value = bin(i)
Next i

End Sub

[kaliman79912]

I think this is VBA

[Shaggy Hiker]

Ask a moderator via PM to move this thread to the VBA section. It certainly isn't .NET.

[neo_q8]

Hello,
i am sorry i posted this in the wrong forums, please if there is moderator who can move it.

Thanks

[Joacim Andersson]

Thread moved to the Office Development forum.

[dmaruca]

There is nothing wrong with your code that I can see. You need to format your cells to text or excel will remove the leading zeroes.

[neo_q8]

How can I format my cells to text in vba?


Thanks

[dmaruca]

Sheet1.Cells(13 + i, 4).Numberformat = "@"