سوال در مورد یک مقدار بولین

[saber2q]

سلام
من تو برنامم یه کدی شبیه به کد زیر دارم:

c.Offset(20, 0) = Acounts.CheckBox1.Value

حالا فرض کنید مقدار چک باکس مربوطه صحیح شده (true) و در سلول c این مقدار رو قرار میده اما من میخوام به جای اینکه در سلول کلمه true یا false نوشته بشه, مقدار 1 یا 0 قرار بگیره, این کد رو چجوری میتونم بدون استفاده از شرط بنویسم؟

با تشکر

[MEYTI]

RE: سوال در مورد یک مقدار بولین

با سلام
دوست عزیز شما با تعریف یک مقدار از نوع integer مشکلت حل میشه

Dim i As Integer

i = -(CheckBox1.Value)

c.Offset(20, 0) = i