[[20180524104623]]　『入力規則で書式を変えたい』（そんなばなな）　ページの最後に飛ぶ

『入力規則で書式を変えたい』（そんなばなな）

Ａ１・Ｂ１・Ｃ１セルがあります。
それぞれに同じ入力規則のリストが設定されています。
リストの内容は【○,判定なし】の２種類です

Ａ１・Ｂ１・Ｃ１セルのどのセルからでも
判定なしを選んだ際に
Ａ１Ｂ１Ｃ１セルを結合し、中央揃えで、
判定なしを記入させたいのですが、できますでしょうか。

マクロの記録でやってみましたが
うまくできませんでした。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

中央揃えは予め設定しておけば良いかと思いますが、一応マクロで指定するとして、シートモジュールの例なぞ。
セル連結するのは良いのですが、解除しなくても良いのですかね？使いにくいインターフェースだと思いますよ。

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R As Range
    If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub

    Application.EnableEvents = False
    Application.DisplayAlerts = False

    For Each R In Target
        If R.Column <= 3 Then
            If R.Value = "判定なし" Then
                If Cells(R.Row, "A").MergeCells = False Then
                    With Range(Cells(R.Row, "A"), Cells(R.Row, "C"))
                        .Merge
                        .Value = "判定なし"
                        .HorizontalAlignment = xlCenter
                    End With
                End If
            End If
        End If
    Next R

    Application.EnableEvents = True
    Application.DisplayAlerts = True
 End Sub
（???） 2018/05/24(木) 11:08

コメント返信：

[ 一覧(最新更新順) ]

[[20180524104623]] 『入力規則で書式を変えたい』（そんなばなな） ページの最後に飛ぶ

[[20180524104623]]　『入力規則で書式を変えたい』（そんなばなな）　ページの最後に飛ぶ