Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71479 / 76738

←次へ　｜　前へ→


	【9752】Re:チェックを入れたフォーム上のオプションボタンの番号の取得

みけ - 03/12/16(火) 13:40 -


	引用なし

	パスワード

▼INA さん：
>こんな感じで如何でしょうか？
>
>select case "True"
>Case OptionButton1.value
>　msgbox"1 にチェック"
>Case OptionButton2.value
>　msgbox"2 にチェック"
>Case OptionButton3.value
>　msgbox"3 にチェック"
>End Select
早速、回答頂きありがとうございました。
できれば、A=2というかたちで取得て、他に利用したいのですが・・・
それともう一つ、エクセルシート上では、ｂが偶数ならiseven(b) = Trueとなると思うのですが、これをVBAで利用したいのですが（偶数か奇数かを確認して、それぞれの処理を行いたいのですが・・）どのようにしたらよいのでしょうか

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

これを実施させたいのですがうまくいかないのです。
どうかよろしくお願いします。

0 hits

▼

【9742】チェックを入れたフォーム上のオプションボタンの番号の取得 みけ 03/12/16(火) 11:36