Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


310 / 74430 ←次へ | 前へ→

【79762】セル値によってオートシェイプの表示非表示
質問  Kazu  - 18/4/5(木) 16:47 -

引用なし
パスワード
   初めまして。
題名の件で、以下のVBAを作成してみました。
が、上手く動作しません。
どこが間違ってるのか、教えていただけますと幸いです。

セル番号 C14に【True・False】のどちらかを表示させて
Trueなら表示、Falseなら非表示としたいです。

オートシェイプの名前は、四角1.です。

Sub 入力()

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address = "$C$14" Then
    
    Select Case Range("C14").Value
      
      Case "True"
        ActiveSheet.Shapes("四角1.").Visible = True
      
      Case "False"
        ActiveSheet.Shapes("四角1.").Visible = False
    
    End Select
  
  End If
  
End Sub

よろしくお願いします。

75 hits

【79762】セル値によってオートシェイプの表示非表示 Kazu 18/4/5(木) 16:47 質問[未読]
【79763】Re:セル値によってオートシェイプの表示非... 亀マスター 18/4/5(木) 18:41 発言[未読]
【79767】Re:セル値によってオートシェイプの表示非... Kazu 18/4/6(金) 13:45 質問[未読]
【79769】Re:セル値によってオートシェイプの表示非... マナ 18/4/6(金) 19:41 発言[未読]
【79764】Re:セル値によってオートシェイプの表示非... マナ 18/4/5(木) 19:10 発言[未読]
【79765】Re:セル値によってオートシェイプの表示非... γ 18/4/5(木) 20:46 発言[未読]
【79772】Re:セル値によってオートシェイプの表示非... γ 18/4/8(日) 5:55 回答[未読]
【79774】Re:セル値によってオートシェイプの表示非... Kazu 18/4/9(月) 13:36 お礼[未読]

310 / 74430 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free