Excel2000 VBA セルの値によって右側に矢印アイコンを表示する実験

Excel2000 VBA  セルの値によって右側に矢印アイコンを表示する実験

Sub test2()
'数値を調べてゼロ以上なら↑アイコンを表示
'
Dim xRange As Range
'選択範囲から１つずつセルを調べる
For Each xRange In Selection

    If xRange > 0 Then
        xRange.Offset(0, 1).Activate
        Call face(38)
    End If
    
    If xRange = 0 Then
        xRange.Offset(0, 1).Activate
        Call face(39)
    End If
    
    If xRange < 0 Then
        xRange.Offset(0, 1).Activate
        Call face(40)
    End If
Next xRange

End Sub
    

Function face(num As Integer)
'face(num)で受け取ったFaceIDをセルに表示
'
Dim myCB As Variant

'コマンドバーの作成と表示
    Set myCB = CommandBars.Add(Name:="FaceID")
    myCB.Visible = True
'Face（アイコン）の設定とコピー
    With myCB.Controls.Add
        .FaceId = num
        .CopyFace
    End With
'シートに貼り付け
    'ActiveSheet.Select
    ActiveSheet.PasteSpecial Format:="ビットマップ", Link:=False, DisplayAsIcon:=False
'作成したコマンドバーの削除
    myCB.Delete
    Set myCB = Nothing
End Function

タグ：Excel2000 VBA