| |
決して初歩的な質問じゃないですよ。
１〜９までの数値(全角)に限定して対応するコードになりますが・・
Private Sub CommandButton1_Click()
Dim FR As Range
Dim Lp As Single, Tp As Single, Hp As Single
Static SetNum As Integer
With ActiveSheet.Ovals
If .Count = 0 Then
SetNum = -32176
Else
SetNum = SetNum + 1
.Delete: If SetNum = -32167 Then Exit Sub
End If
Set FR = Cells.Find(Chr(SetNum) & "*", , xlValues, xlPart)
If FR Is Nothing Then Exit Sub
Lp = FR.Left: Tp = FR.Top: Hp = FR.Height
.Add(Lp, Tp, Hp, Hp).Interior.ColorIndex = xlNone
End With
Set FR = Nothing
End Sub
仮に３までしか無かった場合、３に○がついていればボタンクリックすると
いったん楕円は消えます。もう一度クリックしたとき、１のところに戻って
楕円が表示されます。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
