[[20181226182555]]　『特定シート以外に罫線設定』（やすえ）　ページの最後に飛ぶ

『特定シート以外に罫線設定』（やすえ）

複数シートがある中で特定シート以外に罫線を引くマクロを作成したいと考えます。

具体的には

DATAｼｰﾄ　基本情報ｼｰﾄ　請求書1ｼｰﾄ　請求書2ｼｰﾄ　請求書3ｼｰﾄ･･

というように請求書シートは請求内容に応じて変動する中で
DATAシート・基本情報シート以外の請求書シートのA14～L50までを範囲指定して
罫線をつけたいです。
※請求書シートは全て同一FMTになります。

特定シート以外を選択、がどうにもうまくいかずどのようにしたら良いかご教授いただければ幸いです。

＜使用 Excel：Excel2016、使用 OS：WindowsXP ＞

 ＞特定シート以外を選択、がどうにもうまくいかずどのようにしたら良いかご教授いただければ幸いです。
 とのことなので、その部分だけ

    Sub a()
        Dim ws As Worksheet
        For Each ws In Sheets
            If ws.Name <> "基本情報ｼｰﾄ" Then
                '罫線を引くコード
            End If
        Next ws
    End Sub

（稲葉） 2018/12/26(水) 18:48

 すでに稲葉さんから回答がありますがそのまま書きます。

 Sub test()

     Dim ws As Worksheet

     For Each ws In Worksheets
         If ws.Name Like "請求書*" Then
            ws.Range("A14:L50").Borders.LineStyle = True
         End If
     Next

 End Sub
（bi） 2018/12/26(水) 18:52

お二方ありがとうございます！出来ました。

複数シート除外でしたがandで複数条件設定することで解決です。
大変ありがとうございます！
（やすえ） 2018/12/26(水) 18:59

コメント返信：

[ 一覧(最新更新順) ]

[[20181226182555]] 『特定シート以外に罫線設定』（やすえ） ページの最後に飛ぶ

[[20181226182555]]　『特定シート以外に罫線設定』（やすえ）　ページの最後に飛ぶ