|
はじめまして投稿いたします。
トグルボタンをフォーム上に設置。実行中にトグルボタンでいくつか配列し、押したボタンは指定したシートに「〇〇〇有り」と表示し、押していないボタンは「〇〇〇無し」と表示したいのですが、うまくいきません。
モジュールにて記述
Sub オプション判定()
If Form1.TogオプションA.Value = False Then
Sheet1.Range("Q4").Value = "特約Aあり"
Sheet1.Range("L4").Value = "TRUE"
ElseIf Form1.TogオプションA.Value = True Then
Sheet1.Range("Q4").Value = "特約Aなし"
Sheet1.Range("L4").Value = ""
ElseIf Form1.TogオプションB.Value = False Then
Sheet1.Range("Q5").Value = "特約Bあり"
Sheet1.Range("L5").Value = "TRUE"
ElseIf Form1.TogオプションB.Value = True Then
Sheet1.Range("Q5").Value = "特約Bなし"
Sheet1.Range("L5").Value = ""
・
・
・
ElseIf Form1.TogオプションE.Value = False Then
Sheet1.Range("Q7").Value = "特約Eあり"
Sheet1.Range("L7").Value = "TRUE"
ElseIf Form1.TogオプションE.Value = True Then
Sheet1.Range("Q7").Value = "特約Eなし"
Sheet1.Range("L7").Value = ""
End If
End Sub
シート上ではまったく反応なしでした。命令のやり方が駄目なのでしょうか?
|
|