□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
図形を表示非表示

    [195967] 図形を表示非表示-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ かつ -(2023/10/02(14:24))
    □U R L/

      セルJ12にあるデータが、180以下なら図8を表示して図11は表示しない
      180を超えるなら図11を表示して図8を表示しないというようにしたいのですが、よろしくご教授くださいませ。



    [195968] Re[1]: 図形を表示非表示-

    ■記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2023/10/02(16:11))
    □U R L/ 
      こんな事かな？

Sub test()
    With ActiveSheet
        If .Range("J12").Value <= 180 Then
            
            .Shapes("図 8").Visible = True
            .Shapes("図11").Visible = False
        Else
            .Shapes("図11").Visible = True
            .Shapes("図 8").Visible = False
        End If
    End With
End Sub

＞図8
  図 8 (上のコードは、半角スペースが入っているものにしています)
  　↑
　　


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195969] Re[2]: 図形を表示非表示-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ かつ -(2023/10/03(11:37))
    □U R L/

      スペースあるのがデフォルトなんですね。
      スペースないパターンだとエラーになるのを想定していただきありがとうございます。

      問題なくいけました。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

- Child Forum -
Edit:ゆう-Ｇ