Excel VBA質問箱 IV

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

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


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

2112 / 76735

←次へ　｜　前へ→


	【80267】罫線が引けない

ここな - 18/12/14(金) 22:09 -


	引用なし

	パスワード

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

0 hits

▼

【80267】罫線が引けない ここな 18/12/14(金) 22:09