| |
VBA初心者です。
もうすでにいろいろマクロが組まれているエクセルに、
オートシェイプの表示・非表示のマクロを組み入れたいです。
指定したセルに「1」が入力されているときのみ、表示されるマクロです。
しかし、本当に入れたいシートに下記マクロを組み入れても動きません。
同じエクセル内に、新しくsheet1を作り、同じマクロを入れると
ちゃんと動きます。
何か、動かない要因が考えられますでしょうか。
Microsoft Excel Objects のシートで、Worksheet の Changeに
下記マクロを入れています。
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) = 1 Then
MsgBox "1が入力"
ActiveSheet.Shapes(テキストボックス1).Visible = True
Else
MsgBox "1以外が入力されてます"
ActiveSheet.Shapes(テキストボックス1).Visible = False
End If
End Sub
一緒にメッセージボックスを入れると、メッセージは出ているので、
プログラムは走っていると思います。
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
