| |
>できれば、A=2というかたちで取得て、他に利用したいのですが・・・
私のはmsgboxにしてありますが、
適当に処理したい内容を記述すればよいのでは？
>それともう一つ、エクセルシート上では、ｂが偶数ならiseven(b) = Trueとなると
>思うのですが、これをVBAで利用したいのですが（偶数か奇数かを確認して、
>それぞれの処理を行いたいのですが・・）どのようにしたらよいのでしょうか
if b mod 2 = 0 then
msgbox "b は偶数"
Else
msgbox "b は奇数"
end if
で良いと思います。
>ex)[フォーム上にOptionButton２があって・・]
> （OptionButton２にチェックが入ったらb=2という感じでボタンの数を所得）
> If isodd(b) = True Then
> Me.Controls("Frame" & b).BackColor = RGB(255, 0, 0)
> elseif iseven(b) = True then
> Me.Controls("Frame" & b).BackColor = RGB(0, 0,255)
>
>end if
>
>これを実施させたいのですがうまくいかないのです。
OptionButton は何個あるのでしょうか？
それほど多くなければ、select caseで書いてしまった方が簡単です。
それに b って何ですか？
OptionButtonのオブジェクトの番号ですか？
もし、オブジェクト番号の偶数・奇数で処理を分けたいのであれば、
select case "True"
Case OptionButton1.value,OptionButton3.value,OptionButton5.value
msgbox "奇数のOptionButton にチェック"
Case OptionButton2.value,OptionButton4.value,OptionButton6.value
msgbox "偶数のOptionButton にチェック"
End Select
で出来ると思いますが・・・
|
|
INA
- 03/12/16(火) 14:19 -
