Sub ラジオボタン1() Sheets("Sheet1").Range("C4").Value = "●" Sheets("Sheet1").Range("C5").ClearContents If Range("C4") = "●" Then Range("E4").Value = "A" If Range("C4") = "●" Then Range("E5").Value = "" End Sub ------------------------------------------------------------- Sub ラジオボタン2() Sheets("Sheet1").Range("C5").Value = "●" Sheets("Sheet1").Range("C4").ClearContents If Range("C5") = "●" Then Range("E5").Value = "B" If Range("C5") = "●" Then Range("E4").Value = "" End Sub