|
▼Kein さん:
ありがとうございます。
>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
>
現状の知識だと上記ソースがどのような処理を
行っているのか、全く分からないため
色々と考えてみます。
どうもありがとうございました。
|
|