よねさんのWordとExcelの小部屋　なんでも掲示板 [One Message View / Re[3]: 勤務表に斜線を引きたい]

よねさんのWordとExcelの小部屋　なんでも掲示板

■13166 / 3階層)

　勤務表に斜線を引きたい

□投稿者/ よねさん -(2017/06/05(Mon) 13:35:13)

罫線があるのが　C2～I2セル　から　C32～I32セルの場合です。
こんな感じでいかがでしょうか?

Sub test2()
Dim i As Long
    For i = 2 To 32
        With Range(Cells(i, 3), Cells(i, 9))
            .Borders(xlDiagonalDown).LineStyle = xlLineStyleNone
            .Borders(xlDiagonalUp).LineStyle = xlLineStyleNone
        End With
  Next i
    
End Sub

記事引用 削除キー/

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←Re[2]: 勤務表に斜線を引きたい /ぺこ	→Re[4]: 勤務表に斜線を引きたい /ぺこ
勤務表に斜線を引きたい / ぺこ (17/06/03(Sat) 23:26) #13163
`└` Re[1]: 勤務表に斜線を引きたい / よねさん (17/06/04(Sun) 10:49) #13164
`└` Re[2]: 勤務表に斜線を引きたい / ぺこ (17/06/05(Mon) 13:19) #13165
`└` 勤務表に斜線を引きたい / よねさん (17/06/05(Mon) 13:35) #13166 ←Now
`└` Re[4]: 勤務表に斜線を引きたい / ぺこ (17/06/05(Mon) 14:44) #13167
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用可能です。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
メールアドレスには自動でNo-の文字が挿入されます。メール収集対策。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No13166に返信(よねさんさんの記事) > 罫線があるのが　C2～I2セル　から　C32～I32セルの場合です。 > こんな感じでいかがでしょうか? > > Sub test2() > Dim i As Long > For i = 2 To 32 > With Range(Cells(i, 3), Cells(i, 9)) > .Borders(xlDiagonalDown).LineStyle = xlLineStyleNone > .Borders(xlDiagonalUp).LineStyle = xlLineStyleNone > End With > Next i > > End Sub >
削除キー	/ (半角8文字以内)
ガード用キー(必須)	/ 1357と半角で入力
プレビュー/

HOME HELP 新規作成新着記事ツリー表示トピック表示検索過去ログ

- Child Tree -