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