エクセルで、特定の数値以上を入力した時、自動的に赤丸をつける方法

Question

エクセルで、
特定の数値以上を入力した時、
自動的に赤丸をつける方法があれば、
教えてください。

zuntac · Accepted Answer

No.5です。一応、「既に○が付いたセルに再入力しても正しく○が表示、非表示される。」ようにしてみました。
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sh As Shape
    On Error Resume Next
        Shapes(Target.Address).Delete
    If Target.Value > 10 Then
        Set sh = Shapes.AddShape(msoShapeOval, _
            Target.Left, _
            Target.Top, _
            Target.Width, _
            Target.Height)
        With sh
            .Line.Weight = 2#
            .Fill.Visible = msoFalse
            .Line.ForeColor.SchemeColor = 10
            .Name = Target.Address
        End With
        ActiveCell.Activate
    Else
        Shapes(Target.Address).Delete
    End If
End Sub

zuntac · Answer

とりあえず、以下のマクロをVisualBasicEditoを使ってSheet1とかSheet2に書き込めばお望みの動作をします。ここでは、10以上の数字を入力するとそのセルの周りに赤い楕円が表示されます。でも、これだと数字以外の文字列を書いても○がついちゃったり、いったん○が付いたセルに10以下の数字を入れても○は消えません。そのような処理を追加するとだんだん複雑になってきてしまいます。（これらの問題の解消方法がお分かりの方、いらっしゃいましたら教えてください。）

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value > 10 Then
        Shapes.AddShape(msoShapeOval, _
            Target.Left, _
            Target.Top, _
            Target.Width, _
            Target.Height).Select
        Selection.ShapeRange.Line.Weight = 2#
        Selection.ShapeRange.Fill.Visible = msoFalse
        Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
        ActiveCell.Activate
    End If
End Sub

nanasupra · Answer

#1&2です。
マクロについて全くやったことのない方でははっきり言って簡単ではありません。
作ってあげるにも質問文の内容ではセルの配置や○の付けたい場所などもわからずできませんし、他の方法で代用するのが無難な気がします。
マクロになると実行のタイミングや他人に渡す場合のデジタル署名などかなりいろいろな検討が必要です。
近くに詳しい人がいれば要望を伝えながら作ってもらうことができるかもしれませんが。。。

mshr1962 · Answer

赤丸だとＶＢＡを組むしかないのでは？
セルの塗りつぶしや、文字の書式（フォント・色）等でいいなら
「書式」「条件付き書式」で可能です。
元の状態を考えれば4通りの書式設定が可能です。
http://office.microsoft.com/ja-jp/assistance/HP051992781041.aspx

nanasupra · Answer

セル内の文字列を変更することはマクロを使わないとできません。
単純に条件付き書式では駄目なのでしょうか。
○ではなくでセルか文字の色を変えることになってしまいますが。。。

nanasupra · Answer

Ａ列に数値、Ｂ列に赤丸を付けるとするならば、
=IF(A1>=80,"●","")
とＢ列に打ち込めばできると思います。
上の式の場合８０以上で●がつきます。
しかし、Ｂ列の文字色を赤に変えておく必要があります。

エクセルで、特定の数値以上を入力した時、自動的に赤丸をつける方法

No.5です。

とりあえず、以下のマクロをVisualBasicEditoを使ってSheet1とかSheet2に書き込めばお望みの動作をします。

#1&2です。

赤丸だとＶＢＡを組むしかないのでは？

セル内の文字列を変更することはマクロを使わないとできません。

Ａ列に数値、Ｂ列に赤丸を付けるとするならば、

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング