| |
Selection
↓
Range("C10:G20")
とかに直せば良いです。
Un = .Cells(.Count).Cells.Offset(1).Top
↓修正
Un = .Cells(.Count).Offset(1).Top
また、セルに値を入力するとよりボタンの方がいいと思いますけどね。
ただ、何個も同じ所に重ねて作るようになるから、最初に消した方が良いです。
On Error Resume Next
ActiveSheet.Shapes("線１").Delete
ActiveSheet.Shapes("線２").Delete
作る時は、
ActiveSheet.Shapes.AddLine(Lt, Tp, Rt, Un).Select
Selection.Name = "線１"
Selection.ShapeRange.Flip msoFlipHorizontal
ActiveSheet.Shapes.AddLine(Lt, Tp, Rt, Un).Select
Selection.Name = "線２"
>Ｊ２７に数値を入力するだけ
にこだわるなら、シートモジュールのWorksheet_Changeを
使ったら良いと思います。
一応
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "J27" Then
If Not IsEmpty(Target.Value) Then
ここに線を書くコード
End If
End If
End Sub
|
|
Jaka
- 08/5/16(金) 16:16 -
