●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

378:デフォルトの名無しさん
07/07/12 23:35:57
Sub Bound()
ActiveSheet.UsedRange.Clear
Columns("A:AO").ColumnWidth = 2

n = 1
Range("A1").Select
Do While IsEmpty(ActiveCell.Offset(n, 0))
x = ActiveCell.Offset(n, 0).Row
If x < 2 Or 30 < x Then n = -n
For chien = 1 To 30
ActiveCell = ""
ActiveCell.Offset(n, 0) = "○"
Next chien
ActiveCell.Offset(n, 0).Activate
Loop
End Sub

上下運動を2回繰り返して止めるにはどうしたらよいでしょうか?
ご教授願います。

次ページ

続きを表示

1を表示