ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Convert a number upto 100 to binary (https://www.excelbanter.com/excel-programming/383992-convert-number-upto-100-binary.html)

Mark Dullingham

Convert a number upto 100 to binary
 
Has anybody got a piece of code that can convert a nuber in a cell, say A1
and display it as a 7 digit binary number in B1?
I have tried to do this working from the 7th digit backwards using
combinations of 'if' and 'and' functions, but by the time I get to the 5/4
digits I am losing the will to live!

Many thanks in advance

Gary''s Student

Convert a number upto 100 to binary
 
In be enter:

=DEC2BIN(A1) and copy down
--
Gary''s Student
gsnu200708


"Mark Dullingham" wrote:

Has anybody got a piece of code that can convert a nuber in a cell, say A1
and display it as a 7 digit binary number in B1?
I have tried to do this working from the 7th digit backwards using
combinations of 'if' and 'and' functions, but by the time I get to the 5/4
digits I am losing the will to live!

Many thanks in advance


Bob Phillips

Convert a number upto 100 to binary
 
=DEC2BIN(A21)

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Mark Dullingham" wrote in
message ...
Has anybody got a piece of code that can convert a nuber in a cell, say A1
and display it as a 7 digit binary number in B1?
I have tried to do this working from the 7th digit backwards using
combinations of 'if' and 'and' functions, but by the time I get to the 5/4
digits I am losing the will to live!

Many thanks in advance




RB Smissaert

Convert a number upto 100 to binary
 
Look at the function dec2bin in the VBA help.

RBS

"Mark Dullingham" wrote in
message ...
Has anybody got a piece of code that can convert a nuber in a cell, say A1
and display it as a 7 digit binary number in B1?
I have tried to do this working from the 7th digit backwards using
combinations of 'if' and 'and' functions, but by the time I get to the 5/4
digits I am losing the will to live!

Many thanks in advance



Gary''s Student

Convert a number upto 100 to binary
 
=DEC2BIN(A1,7)
if you always want 7 binary "digits"
--
Gary''s Student
gsnu200708


"Mark Dullingham" wrote:

Has anybody got a piece of code that can convert a nuber in a cell, say A1
and display it as a 7 digit binary number in B1?
I have tried to do this working from the 7th digit backwards using
combinations of 'if' and 'and' functions, but by the time I get to the 5/4
digits I am losing the will to live!

Many thanks in advance


Tim Williams

Convert a number upto 100 to binary
 
=DEC2BIN(100,7)

Requires analysis toolpack.

--
Tim Williams
Palo Alto, CA


"Mark Dullingham" wrote in message
...
Has anybody got a piece of code that can convert a nuber in a cell, say A1
and display it as a 7 digit binary number in B1?
I have tried to do this working from the 7th digit backwards using
combinations of 'if' and 'and' functions, but by the time I get to the 5/4
digits I am losing the will to live!

Many thanks in advance




Mark Dullingham

Convert a number upto 100 to binary
 
WOW thanks for the quick response.

Tried this but get a #NAME? error.

Is there an add on or a definition I need to make this work?



"Gary''s Student" wrote:

In be enter:

=DEC2BIN(A1) and copy down
--
Gary''s Student
gsnu200708


"Mark Dullingham" wrote:

Has anybody got a piece of code that can convert a nuber in a cell, say A1
and display it as a 7 digit binary number in B1?
I have tried to do this working from the 7th digit backwards using
combinations of 'if' and 'and' functions, but by the time I get to the 5/4
digits I am losing the will to live!

Many thanks in advance


NickHK

Convert a number upto 100 to binary
 
Mark,
You need the Analysis Tool pack add-in installed.

Or you can make your own version. This seems to work:

Public Function MyDec2Bin(DecIn As Long, Optional MaxBin As Long = 7) As
String
Dim TempStr As String
Dim i As Long

Do Until Len(TempStr) = MaxBin
If (DecIn And 2 ^ i) = 2 ^ i Then
TempStr = "1" & TempStr
Else
TempStr = "0" & TempStr
End If
i = i + 1
Loop

MyDec2Bin = TempStr

End Function

NickHK

"Mark Dullingham" wrote in
message ...
WOW thanks for the quick response.

Tried this but get a #NAME? error.

Is there an add on or a definition I need to make this work?



"Gary''s Student" wrote:

In be enter:

=DEC2BIN(A1) and copy down
--
Gary''s Student
gsnu200708


"Mark Dullingham" wrote:

Has anybody got a piece of code that can convert a nuber in a cell,

say A1
and display it as a 7 digit binary number in B1?
I have tried to do this working from the 7th digit backwards using
combinations of 'if' and 'and' functions, but by the time I get to the

5/4
digits I am losing the will to live!

Many thanks in advance





All times are GMT +1. The time now is 01:15 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com