|
1.Sheet2にコマンドボタン作成
2.Sheet1のD11〜D41に""(空白)があるなら、B列の同じ列にマル(オートシェイプ)
を作成する。
作成してみましたがまったく動きません。
だれか教えてください。
Private Sub CommandButton1_Click()
Dim i As Long
Const 余白率 = 15 '余白の割合(%)
With Worksheets("Sheet1")
For i = 11 To 41
If .Cells(i, 4).Value = "" Then
.Cells(i, 4).Offset(, -2).Select
ActiveSheet.Shapes.AddShape(msoShapeOval, .Left + .Width * 余白率 / 100, _
.Top + .Height * 余白率 / 100, _
.Width * (100 - (余白率 * 2)) / 100, _
.Height * (100 - (余白率 * 2)) / 100) _
.Fill.Visible = msoFalse
End If
Next
End With
End Sub
|
|