Excel VBA質問箱 IV

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

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


451 / 13645 ツリー ←次へ | 前へ→

【80267】罫線が引けない ここな 18/12/14(金) 22:09 質問[未読]
【80268】Re:罫線が引けない マナ 18/12/14(金) 23:06 発言[未読]
【80269】Re:罫線が引けない ここな 18/12/15(土) 7:29 質問[未読]
【80270】Re:罫線が引けない マナ 18/12/15(土) 9:07 発言[未読]

【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

【80268】Re:罫線が引けない
発言  マナ  - 18/12/14(金) 23:06 -

引用なし
パスワード
   ▼ここな さん:

Option Explicit
を記述するようにしてください。

ht tp://officetanaka.net/excel/vba/beginner/11.htm

--------
ところで、

>「データ」シートの該当セルが空白なら
  
>If sh1.Range("AC" & i).Value = "" Then

内側のループより外側に記述すべきでは?

【80269】Re:罫線が引けない
質問  ここな  - 18/12/15(土) 7:29 -

引用なし
パスワード
   ご指摘ありがとうございます。

外側という意味が分かりませんので」
教えていただけませんでしょうか?

【80270】Re:罫線が引けない
発言  マナ  - 18/12/15(土) 9:07 -

引用なし
パスワード
   ▼ここな さん:

>教えていただけませんでしょうか?

もう必要ないですね。
ht tp://www.excel.studio-kazu.jp/kw/20181215071343.html

451 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free