|
決して初歩的な質問じゃないですよ。
1〜9までの数値(全角)に限定して対応するコードになりますが・・
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
仮に3までしか無かった場合、3に○がついていればボタンクリックすると
いったん楕円は消えます。もう一度クリックしたとき、1のところに戻って
楕円が表示されます。
|
|