[[20210217005333]]　『条件下でのセルの折り返して全体表示解除』（KNagi）　ページの最後に飛ぶ

『条件下でのセルの折り返して全体表示解除』（KNagi）

通常の行は全体を折り返して表示させるが、行内のあるセルに指定の文字を入れた際、折り返して全体表示を自動で解除したいです。
B10のセルに一定の文字を入力（例；Close）した際、B行のセルの折り返して全体表示を解除する条件を設定したいのですが、条件付き書式の書式設定には文字の色、フォント、塗りつぶし機能しかないため、設定方法を知りたいです。
どなたかご存じであれば、教えていただけますでしょうか。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 Option Explicit
Sub Macro1()
    With Range("B:B")
        If Range("B10") Like "[Cc][Ll][Oo][Ss][Ee]" Then
            .WrapText = False
        Else
            .WrapText = True
        End If
    End With
End Sub
とか、でせうか。。。＾＾；
。。。m(__)m
（隠居じーさん） 2021/02/17(水) 09:46

抜群のタイミングで編集ぶっちゃいましたが、そのまま。

断言はしませんが、通常機能だけだと無理かもしれません。

マクロを使えば可能ですが、「元に戻す」が使えなくなってしまうのであまりお勧めはできないです。
それでも構わないという場合は、「Changeイベント」について調べてみるとよいと思います。

（もこな２） 2021/02/17(水) 09:47

コメント返信：

[ 一覧(最新更新順) ]

[[20210217005333]] 『条件下でのセルの折り返して全体表示解除』（KNagi） ページの最後に飛ぶ

[[20210217005333]]　『条件下でのセルの折り返して全体表示解除』（KNagi）　ページの最後に飛ぶ