|
VBA初心者です。
「データ」シートの該当セルが空白なら
印刷用シートの罫線を引くということがしたいのですが
どうしても上手くいきません。
ググって修正はしてみたのですが、どうにもなりません。
(メッセージは変わりますが実行時エラー1004になる)
お知恵をお貸しください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh1 As Worksheet: Set sh1 = Worksheets("data")
Dim sh2 As Worksheet: Set sh2 = Worksheets("print")
Dim i As Long
Dim n As Long
For i = 12 To 186 Step 6
For n = 19 To 193 Step 6
ここがどう修正して良いかずっと悩んでいます。
With sh2.Range(sh2.Cells(n, 31), sh2.Cells(n + 1, 31)).Borders(xldialognalup)
If sh1.Range("AC" & i).Value = "" Then
.LineStyle = xlContinuous
Else
.LineStyle = xlNone
End If
End With
Next n
Next i
End Sub
|
|