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

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

=DEC2BIN(A21)

--
---
HTH

Bob

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



"Mark Dullingham" <(E-Mail Removed)> wrote in
message news:F7FFE808-11BB-442A-849A-(E-Mail Removed)...
> 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

Look at the function dec2bin in the VBA help.

RBS

"Mark Dullingham" <(E-Mail Removed)> wrote in
message news:F7FFE808-11BB-442A-849A-(E-Mail Removed)...
> 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

=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

=DEC2BIN(100,7)

Requires analysis toolpack.

--
Tim Williams
Palo Alto, CA


"Mark Dullingham" <(E-Mail Removed)> wrote in message
news:F7FFE808-11BB-442A-849A-(E-Mail Removed)...
> 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

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

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" <(E-Mail Removed)> wrote in
message news:BE2D6A2D-4080-4EDD-B31E-(E-Mail Removed)...
> 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