ray88 https://blog.hatena.ne.jp/ray88/ ray88’s diary https://ray88.hatenablog.com/ Private Sub CommandButton1_Click() Dim i As Long Dim strResult As String Dim wb As Workbook Set wb = ThisWorkbook '-------------------------------------------------------- 'オプションボタンの状態を確認する For i = 1 To 3 If Controls("OptionButton" & i).Value = True Then strResult = Controls("OptionButton" & i).Capt… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fray88.hatenablog.com%2Fentry%2F2020%2F10%2F15%2F210855" title="Excel VBA オプションボタン（ラジオボタン）の状態を確認する - ray88’s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/r/ray88/20201015/20201015211233.png Hatena Blog https://hatena.blog 2020-10-15 21:08:55 rich https://ray88.hatenablog.com/entry/2020/10/15/210855 1.0 100%