Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44799 / 76732

←次へ　｜　前へ→


	【36944】Re:楕円をセル移動

サトル - 06/4/18(火) 18:15 -


	引用なし

	パスワード

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

どうもありがとうございました。

1 hits

▼

【36939】楕円をセル移動 サトル 06/4/18(火) 16:51