0

エクセル2007のマクロの設定と計算について教えてください！ 以下の通りに『チェックボックス代わりの長方形23をクリックすると、Q15の値×200の計算値をS15にあてはめる。長方形38をクリックすると、Q15の値×1200の計算値をS15にあてはめる。ただし、各々の上限値は1000、6000とする。』という意味合いでマクロ登録致しました（ほとんどこちらで教わったままですが…）。

Sub 正方形長方形23_Click()

With ActiveSheet.Shapes(Application.Caller).DrawingObject
If .Text <> "" Then
.Text = ""
Else
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
.Font.Bold = True
.Text = "レ"
End If
End With

Dim Enzan As Variant

Enzan = Range("Q15").Value * 200

If Enzan <= 1000 Then
Range("S15").Formula = "=Q15*200"
Else
Range("S15").Value = 1000
End If
End Sub


Sub 正方形長方形38_Click()

With ActiveSheet.Shapes(Application.Caller).DrawingObject
If .Text <> "" Then
.Text = ""
Else
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
.Font.Bold = True
.Text = "レ"
End If
End With

Dim Enzan As Variant

Enzan = Range("Q15").Value * 1200

If Enzan <= 6000 Then
Range("S15").Formula = "=Q15*1200"
Else
Range("S15").Value = 6000
End If
End Sub


できれば、このコマンドに以下の内容を付け加えたいのですが、可能でしょうか。
可能だとすれば、どこをどのように変更すべきなのでしょうか。
お手間ではありますが、教えていただけると助かります。

付け加えたいコマンド内容
① 『長方形23、38どちらにおいても、Q15の値が空欄である場合は、1×200or1×1200としたい（単純にS15の値を200か1200にするだけでも良いのですが…）』
② 『”レ”の文字は、長方形38に点いている時に長方形23をクリックして点ければ長方形38の”レ”は消える。長方形23に点いている時に長方形38をクリックして点ければ長方形23の”レ”は消える。』

実は同じシート上に他の同じような働きをさせている長方形（クリックすると”レ”）がありますので、そちらに影響が内容にもしたいのですが…
かなり分かりづらい文で、ここまで読んでいただいただけでも感謝ですが、もし可能であればよろしくお願いいたします。

質問者が選んだベストソリューション

Yahoo!知恵袋 5221日前