チェックボックスで「いずれか1つを選べる」

質問

Excelのチェックボックスについて
ご質問致します。

チェックボックスは「これかこれかこれ」というふうに選べて、
オプションボタンは「いずれか1つを選べる」というものですよね。

チェックボックスで「いずれか1つを選べる」ようには出来ませんか？

依頼主からデザイン的に四角ボタンがイイと言うことなので…。

バージョンは
作成するときは２０１０ですが
色んな人に配布して使用するので
２０００～２０１３で使用できるようにしたいです。

回答No.1

kybo · ベストアンサー

フォームコントロールのチェックボックスだとして。
全てのチェックボックスに以下のマクロを登録。

Sub macro()
Dim N As String, C As CheckBox
N = ActiveSheet.CheckBoxes(Application.Caller).Name
For Each C In ActiveSheet.CheckBoxes
If C.Name <> N Then
C.Value = IIf(ActiveSheet.CheckBoxes(N).Value, False, True)
End If
Next C
End Sub

お礼

ご回答ありがとうございますー。とっても参考になりました。これからもよろしくお願いします。