Can I use AND like this

[D]

like a bitwise and,

I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 , 10 , 20
etc

if CheckBox_Add.Value = True Then
lChecks = lChecks And const_Add
End If

If CheckBox_Sub.Value = True Then
lChecks = lChecks And const_Sub
End If


I'd like pass lChecks to a function and have that function do something like

if lChecks and const_add = true then
......


It all looks ok but my lines like lChecks = lChecks And const_Add don't set
lChecks to anything

Thanks

[Tom Ogilvy]

To set the bit, add the constant to lChecks

lChecks = lChecks + const_Sub

From the immediate window:

lchecks = lchecks + 4 + 8
? lchecks and 2
0
? lchecks and 4
4
? lchecks and 8
8
? lchecks and 16
0
? lchecks and 1
0

--
Regards,
Tom Ogilvy


"D" <[email protected]> wrote in message
news:%[email protected]...
> like a bitwise and,
>
> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 , 10 ,
20
> etc
>
> if CheckBox_Add.Value = True Then
> lChecks = lChecks And const_Add
> End If
>
> If CheckBox_Sub.Value = True Then
> lChecks = lChecks And const_Sub
> End If
>
>
> I'd like pass lChecks to a function and have that function do something
like
>
> if lChecks and const_add = true then
> .....
>
>
> It all looks ok but my lines like lChecks = lChecks And const_Add don't
set
> lChecks to anything
>
> Thanks
>
>

[Tushar Mehta]

You need to Or not And. An alternative would be to add the values as
in lChecks=lChecks + Const_Add

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article <#[email protected]>, [email protected]
says...
> like a bitwise and,
>
> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 , 10 , 20
> etc
>
> if CheckBox_Add.Value = True Then
> lChecks = lChecks And const_Add
> End If
>
> If CheckBox_Sub.Value = True Then
> lChecks = lChecks And const_Sub
> End If
>
>
> I'd like pass lChecks to a function and have that function do something like
>
> if lChecks and const_add = true then
> .....
>
>
> It all looks ok but my lines like lChecks = lChecks And const_Add don't set
> lChecks to anything
>
> Thanks
>
>
>

[D]

Thanks Tom that worked perfectly.

Happy New Year

Best Regards
Dave


"Tom Ogilvy" <[email protected]> wrote in message
news:%[email protected]...
> To set the bit, add the constant to lChecks
>
> lChecks = lChecks + const_Sub
>
> From the immediate window:
>
> lchecks = lchecks + 4 + 8
> ? lchecks and 2
> 0
> ? lchecks and 4
> 4
> ? lchecks and 8
> 8
> ? lchecks and 16
> 0
> ? lchecks and 1
> 0
>
> --
> Regards,
> Tom Ogilvy
>
>
> "D" <[email protected]> wrote in message
> news:%[email protected]...
>> like a bitwise and,
>>
>> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 , 10 ,
> 20
>> etc
>>
>> if CheckBox_Add.Value = True Then
>> lChecks = lChecks And const_Add
>> End If
>>
>> If CheckBox_Sub.Value = True Then
>> lChecks = lChecks And const_Sub
>> End If
>>
>>
>> I'd like pass lChecks to a function and have that function do something
> like
>>
>> if lChecks and const_add = true then
>> .....
>>
>>
>> It all looks ok but my lines like lChecks = lChecks And const_Add don't
> set
>> lChecks to anything
>>
>> Thanks
>>
>>
>
>

[D]

Actually it's not working like I thought

lchecks = lchecks + 2
?lchecks and 2
0


"Tom Ogilvy" <[email protected]> wrote in message
news:%[email protected]...
> To set the bit, add the constant to lChecks
>
> lChecks = lChecks + const_Sub
>
> From the immediate window:
>
> lchecks = lchecks + 4 + 8
> ? lchecks and 2
> 0
> ? lchecks and 4
> 4
> ? lchecks and 8
> 8
> ? lchecks and 16
> 0
> ? lchecks and 1
> 0
>
> --
> Regards,
> Tom Ogilvy
>
>
> "D" <[email protected]> wrote in message
> news:%[email protected]...
>> like a bitwise and,
>>
>> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 , 10 ,
> 20
>> etc
>>
>> if CheckBox_Add.Value = True Then
>> lChecks = lChecks And const_Add
>> End If
>>
>> If CheckBox_Sub.Value = True Then
>> lChecks = lChecks And const_Sub
>> End If
>>
>>
>> I'd like pass lChecks to a function and have that function do something
> like
>>
>> if lChecks and const_add = true then
>> .....
>>
>>
>> It all looks ok but my lines like lChecks = lChecks And const_Add don't
> set
>> lChecks to anything
>>
>> Thanks
>>
>>
>
>

[Tushar Mehta]

How have you declard lchecks?

It works just fine for me for types byte, long, and variant.

If lchecks is a boolean, VBA treats the assignment as setting it to
true, i.e., -1 or all bits on or &HFFFF. The result is that all tests
(lchecks and {whatever}) will be true.

So, in no case can I duplicate your problem of getting zero.


--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article <[email protected]>, [email protected]
says...
> Actually it's not working like I thought
>
> lchecks = lchecks + 2
> ?lchecks and 2
> 0
>
>
> "Tom Ogilvy" <[email protected]> wrote in message
> news:%[email protected]...
> > To set the bit, add the constant to lChecks
> >
> > lChecks = lChecks + const_Sub
> >
> > From the immediate window:
> >
> > lchecks = lchecks + 4 + 8
> > ? lchecks and 2
> > 0
> > ? lchecks and 4
> > 4
> > ? lchecks and 8
> > 8
> > ? lchecks and 16
> > 0
> > ? lchecks and 1
> > 0
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> > "D" <[email protected]> wrote in message
> > news:%[email protected]...
> >> like a bitwise and,
> >>
> >> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 , 10 ,
> > 20
> >> etc
> >>
> >> if CheckBox_Add.Value = True Then
> >> lChecks = lChecks And const_Add
> >> End If
> >>
> >> If CheckBox_Sub.Value = True Then
> >> lChecks = lChecks And const_Sub
> >> End If
> >>
> >>
> >> I'd like pass lChecks to a function and have that function do something
> > like
> >>
> >> if lChecks and const_add = true then
> >> .....
> >>
> >>
> >> It all looks ok but my lines like lChecks = lChecks And const_Add don't
> > set
> >> lChecks to anything
> >>
> >> Thanks
> >>
> >>
> >
> >
>
>
>

[Tom Ogilvy]

lchecks = lchecks + 2
?lchecks and 2
2

Works for me.

I assume you are testing this in the immediate window.

--
Regards,
Tom Ogilvy
"D" <[email protected]> wrote in message
news:[email protected]...
> Actually it's not working like I thought
>
> lchecks = lchecks + 2
> ?lchecks and 2
> 0
>
>
> "Tom Ogilvy" <[email protected]> wrote in message
> news:%[email protected]...
> > To set the bit, add the constant to lChecks
> >
> > lChecks = lChecks + const_Sub
> >
> > From the immediate window:
> >
> > lchecks = lchecks + 4 + 8
> > ? lchecks and 2
> > 0
> > ? lchecks and 4
> > 4
> > ? lchecks and 8
> > 8
> > ? lchecks and 16
> > 0
> > ? lchecks and 1
> > 0
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> > "D" <[email protected]> wrote in message
> > news:%[email protected]...
> >> like a bitwise and,
> >>
> >> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 , 10
,
> > 20
> >> etc
> >>
> >> if CheckBox_Add.Value = True Then
> >> lChecks = lChecks And const_Add
> >> End If
> >>
> >> If CheckBox_Sub.Value = True Then
> >> lChecks = lChecks And const_Sub
> >> End If
> >>
> >>
> >> I'd like pass lChecks to a function and have that function do something
> > like
> >>
> >> if lChecks and const_add = true then
> >> .....
> >>
> >>
> >> It all looks ok but my lines like lChecks = lChecks And const_Add don't
> > set
> >> lChecks to anything
> >>
> >> Thanks
> >>
> >>
> >
> >
>
>

[D]

I am using longs

here look at this

Private Sub CommandButton1_Click()

Dim const_One As Long
Dim const_Two As Long
Dim const_Four As Long
Dim const_Eight As Long
Dim const_Ten As Long
Dim const_Twenty As Long

const_Ten = 10
const_Two = 2

Dim lchecks As Long

lchecks = lchecks + const_Ten

If (lchecks And const_Two) = const_Two Then
MsgBox ("it failed")
Else
MsgBox ("it worked")
End If

End Sub

the result of the IF line is 2 where I think it should be 0.

Thanks



"Tushar Mehta" <[email protected]> wrote in message
news:[email protected]...
> How have you declard lchecks?
>
> It works just fine for me for types byte, long, and variant.
>
> If lchecks is a boolean, VBA treats the assignment as setting it to
> true, i.e., -1 or all bits on or &HFFFF. The result is that all tests
> (lchecks and {whatever}) will be true.
>
> So, in no case can I duplicate your problem of getting zero.
>
>
> --
> Regards,
>
> Tushar Mehta
> www.tushar-mehta.com
> Excel, PowerPoint, and VBA add-ins, tutorials
> Custom MS Office productivity solutions
>
> In article <[email protected]>, [email protected]
> says...
>> Actually it's not working like I thought
>>
>> lchecks = lchecks + 2
>> ?lchecks and 2
>> 0
>>
>>
>> "Tom Ogilvy" <[email protected]> wrote in message
>> news:%[email protected]...
>> > To set the bit, add the constant to lChecks
>> >
>> > lChecks = lChecks + const_Sub
>> >
>> > From the immediate window:
>> >
>> > lchecks = lchecks + 4 + 8
>> > ? lchecks and 2
>> > 0
>> > ? lchecks and 4
>> > 4
>> > ? lchecks and 8
>> > 8
>> > ? lchecks and 16
>> > 0
>> > ? lchecks and 1
>> > 0
>> >
>> > --
>> > Regards,
>> > Tom Ogilvy
>> >
>> >
>> > "D" <[email protected]> wrote in message
>> > news:%[email protected]...
>> >> like a bitwise and,
>> >>
>> >> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 ,
>> >> 10 ,
>> > 20
>> >> etc
>> >>
>> >> if CheckBox_Add.Value = True Then
>> >> lChecks = lChecks And const_Add
>> >> End If
>> >>
>> >> If CheckBox_Sub.Value = True Then
>> >> lChecks = lChecks And const_Sub
>> >> End If
>> >>
>> >>
>> >> I'd like pass lChecks to a function and have that function do
>> >> something
>> > like
>> >>
>> >> if lChecks and const_add = true then
>> >> .....
>> >>
>> >>
>> >> It all looks ok but my lines like lChecks = lChecks And const_Add
>> >> don't
>> > set
>> >> lChecks to anything
>> >>
>> >> Thanks
>> >>
>> >>
>> >
>> >
>>
>>
>>

[D]

I was in the immediate window but I was changing the values of the first
line without hitting enter so it wasn't taking effect. My bad. Sorry


"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> lchecks = lchecks + 2
> ?lchecks and 2
> 2
>
> Works for me.
>
> I assume you are testing this in the immediate window.
>
> --
> Regards,
> Tom Ogilvy
> "D" <[email protected]> wrote in message
> news:[email protected]...
>> Actually it's not working like I thought
>>
>> lchecks = lchecks + 2
>> ?lchecks and 2
>> 0
>>
>>
>> "Tom Ogilvy" <[email protected]> wrote in message
>> news:%[email protected]...
>> > To set the bit, add the constant to lChecks
>> >
>> > lChecks = lChecks + const_Sub
>> >
>> > From the immediate window:
>> >
>> > lchecks = lchecks + 4 + 8
>> > ? lchecks and 2
>> > 0
>> > ? lchecks and 4
>> > 4
>> > ? lchecks and 8
>> > 8
>> > ? lchecks and 16
>> > 0
>> > ? lchecks and 1
>> > 0
>> >
>> > --
>> > Regards,
>> > Tom Ogilvy
>> >
>> >
>> > "D" <[email protected]> wrote in message
>> > news:%[email protected]...
>> >> like a bitwise and,
>> >>
>> >> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 ,
>> >> 10
> ,
>> > 20
>> >> etc
>> >>
>> >> if CheckBox_Add.Value = True Then
>> >> lChecks = lChecks And const_Add
>> >> End If
>> >>
>> >> If CheckBox_Sub.Value = True Then
>> >> lChecks = lChecks And const_Sub
>> >> End If
>> >>
>> >>
>> >> I'd like pass lChecks to a function and have that function do
>> >> something
>> > like
>> >>
>> >> if lChecks and const_add = true then
>> >> .....
>> >>
>> >>
>> >> It all looks ok but my lines like lChecks = lChecks And const_Add
>> >> don't
>> > set
>> >> lChecks to anything
>> >>
>> >> Thanks
>> >>
>> >>
>> >
>> >
>>
>>
>
>

[Tushar Mehta]

The reason you are getting two will become obvious once you write 10 in
binary! {g} If I were in your shoes, I would stick to powers of 2. (1,
2, 4, 8, 16, etc., and, of course, zero)

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article <[email protected]>, [email protected]
says...
> I am using longs
>
> here look at this
>
> Private Sub CommandButton1_Click()
>
> Dim const_One As Long
> Dim const_Two As Long
> Dim const_Four As Long
> Dim const_Eight As Long
> Dim const_Ten As Long
> Dim const_Twenty As Long
>
> const_Ten = 10
> const_Two = 2
>
> Dim lchecks As Long
>
> lchecks = lchecks + const_Ten
>
> If (lchecks And const_Two) = const_Two Then
> MsgBox ("it failed")
> Else
> MsgBox ("it worked")
> End If
>
> End Sub
>
> the result of the IF line is 2 where I think it should be 0.
>
> Thanks
>
>
>
> "Tushar Mehta" <[email protected]> wrote in message
> news:[email protected]...
> > How have you declard lchecks?
> >
> > It works just fine for me for types byte, long, and variant.
> >
> > If lchecks is a boolean, VBA treats the assignment as setting it to
> > true, i.e., -1 or all bits on or &HFFFF. The result is that all tests
> > (lchecks and {whatever}) will be true.
> >
> > So, in no case can I duplicate your problem of getting zero.
> >
> >
> > --
> > Regards,
> >
> > Tushar Mehta
> > www.tushar-mehta.com
> > Excel, PowerPoint, and VBA add-ins, tutorials
> > Custom MS Office productivity solutions
> >
> > In article <[email protected]>, [email protected]
> > says...
> >> Actually it's not working like I thought
> >>
> >> lchecks = lchecks + 2
> >> ?lchecks and 2
> >> 0
> >>
> >>
> >> "Tom Ogilvy" <[email protected]> wrote in message
> >> news:%[email protected]...
> >> > To set the bit, add the constant to lChecks
> >> >
> >> > lChecks = lChecks + const_Sub
> >> >
> >> > From the immediate window:
> >> >
> >> > lchecks = lchecks + 4 + 8
> >> > ? lchecks and 2
> >> > 0
> >> > ? lchecks and 4
> >> > 4
> >> > ? lchecks and 8
> >> > 8
> >> > ? lchecks and 16
> >> > 0
> >> > ? lchecks and 1
> >> > 0
> >> >
> >> > --
> >> > Regards,
> >> > Tom Ogilvy
> >> >
> >> >
> >> > "D" <[email protected]> wrote in message
> >> > news:%[email protected]...
> >> >> like a bitwise and,
> >> >>
> >> >> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8 ,
> >> >> 10 ,
> >> > 20
> >> >> etc
> >> >>
> >> >> if CheckBox_Add.Value = True Then
> >> >> lChecks = lChecks And const_Add
> >> >> End If
> >> >>
> >> >> If CheckBox_Sub.Value = True Then
> >> >> lChecks = lChecks And const_Sub
> >> >> End If
> >> >>
> >> >>
> >> >> I'd like pass lChecks to a function and have that function do
> >> >> something
> >> > like
> >> >>
> >> >> if lChecks and const_add = true then
> >> >> .....
> >> >>
> >> >>
> >> >> It all looks ok but my lines like lChecks = lChecks And const_Add
> >> >> don't
> >> > set
> >> >> lChecks to anything
> >> >>
> >> >> Thanks
> >> >>
> >> >>
> >> >
> >> >
> >>
> >>
> >>
>
>
>

[D]

ahh I see now. I must of been thinking 10 in hexidecimal.

Thanks




"Tushar Mehta" <[email protected]> wrote in message
news:[email protected]...
> The reason you are getting two will become obvious once you write 10 in
> binary! {g} If I were in your shoes, I would stick to powers of 2. (1,
> 2, 4, 8, 16, etc., and, of course, zero)
>
> --
> Regards,
>
> Tushar Mehta
> www.tushar-mehta.com
> Excel, PowerPoint, and VBA add-ins, tutorials
> Custom MS Office productivity solutions
>
> In article <[email protected]>, [email protected]
> says...
>> I am using longs
>>
>> here look at this
>>
>> Private Sub CommandButton1_Click()
>>
>> Dim const_One As Long
>> Dim const_Two As Long
>> Dim const_Four As Long
>> Dim const_Eight As Long
>> Dim const_Ten As Long
>> Dim const_Twenty As Long
>>
>> const_Ten = 10
>> const_Two = 2
>>
>> Dim lchecks As Long
>>
>> lchecks = lchecks + const_Ten
>>
>> If (lchecks And const_Two) = const_Two Then
>> MsgBox ("it failed")
>> Else
>> MsgBox ("it worked")
>> End If
>>
>> End Sub
>>
>> the result of the IF line is 2 where I think it should be 0.
>>
>> Thanks
>>
>>
>>
>> "Tushar Mehta" <[email protected]> wrote in message
>> news:[email protected]...
>> > How have you declard lchecks?
>> >
>> > It works just fine for me for types byte, long, and variant.
>> >
>> > If lchecks is a boolean, VBA treats the assignment as setting it to
>> > true, i.e., -1 or all bits on or &HFFFF. The result is that all tests
>> > (lchecks and {whatever}) will be true.
>> >
>> > So, in no case can I duplicate your problem of getting zero.
>> >
>> >
>> > --
>> > Regards,
>> >
>> > Tushar Mehta
>> > www.tushar-mehta.com
>> > Excel, PowerPoint, and VBA add-ins, tutorials
>> > Custom MS Office productivity solutions
>> >
>> > In article <[email protected]>, [email protected]
>> > says...
>> >> Actually it's not working like I thought
>> >>
>> >> lchecks = lchecks + 2
>> >> ?lchecks and 2
>> >> 0
>> >>
>> >>
>> >> "Tom Ogilvy" <[email protected]> wrote in message
>> >> news:%[email protected]...
>> >> > To set the bit, add the constant to lChecks
>> >> >
>> >> > lChecks = lChecks + const_Sub
>> >> >
>> >> > From the immediate window:
>> >> >
>> >> > lchecks = lchecks + 4 + 8
>> >> > ? lchecks and 2
>> >> > 0
>> >> > ? lchecks and 4
>> >> > 4
>> >> > ? lchecks and 8
>> >> > 8
>> >> > ? lchecks and 16
>> >> > 0
>> >> > ? lchecks and 1
>> >> > 0
>> >> >
>> >> > --
>> >> > Regards,
>> >> > Tom Ogilvy
>> >> >
>> >> >
>> >> > "D" <[email protected]> wrote in message
>> >> > news:%[email protected]...
>> >> >> like a bitwise and,
>> >> >>
>> >> >> I've definded constants const_add 1, const_sub 2, const_div 4 ,, 8
>> >> >> ,
>> >> >> 10 ,
>> >> > 20
>> >> >> etc
>> >> >>
>> >> >> if CheckBox_Add.Value = True Then
>> >> >> lChecks = lChecks And const_Add
>> >> >> End If
>> >> >>
>> >> >> If CheckBox_Sub.Value = True Then
>> >> >> lChecks = lChecks And const_Sub
>> >> >> End If
>> >> >>
>> >> >>
>> >> >> I'd like pass lChecks to a function and have that function do
>> >> >> something
>> >> > like
>> >> >>
>> >> >> if lChecks and const_add = true then
>> >> >> .....
>> >> >>
>> >> >>
>> >> >> It all looks ok but my lines like lChecks = lChecks And const_Add
>> >> >> don't
>> >> > set
>> >> >> lChecks to anything
>> >> >>
>> >> >> Thanks
>> >> >>
>> >> >>
>> >> >
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>