Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
197 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81634】セル書式の線が引いてあるかを知りたい TDS 21/1/31(日) 12:47 質問[未読]
【81635】Re:セル書式の線が引いてあるかを知りたい F-Rain 21/1/31(日) 16:03 回答[未読]
【81636】Re:セル書式の線が引いてあるかを知りたい TDS 21/1/31(日) 18:29 お礼[未読]
【81634】セル書式の線が引いてあるかを知りたい
質問  TDS  - 21/1/31(日) 12:47 -
引用なし
パスワード
   初めまして、よろしくお願いします。

１か月分の勤務表（予定）を作成しており、翌月に予定→実績を作成しております。
勤務変更がなければ、予定をコピーし、実績に張り付けて完成ですが。

勤務予定変更が発生したとき、セル書式の斜め罫線を赤色で×にしています。

ＶＢＡで、セル書式の斜め線（赤色）まではできましたが、
With Range("B3")
　　.Borders(xlDiagonalDown).LineStyle = xlContinuous
　　.Borders(xlDiagonalUp).LineStyle = xlContinuous
End With

実績を作成する時に、セルに斜め線があるかどうかの判定方法を
教えていただきたいです。
【81635】Re:セル書式の線が引いてあるかを知りたい
回答  F-Rain  - 21/1/31(日) 16:03 -
引用なし
パスワード
   こんにちは。

罫線なしの場合、BorderオブジェクトのLineStyleプロパティには
xlLineStyleNoneが設定されているので、それを判定すればよいかと思います。

If Range("B3").Borders(xlDiagonalUp).LineStyle = xlLineStyleNone Then
MsgBox "右上り斜め罫線は無いよ"
Else
MsgBox "右上り斜め罫線は有るよ"
End If


If Range("B3").Borders(xlDiagonalDown).LineStyle = xlLineStyleNone Then
MsgBox "右下り斜め罫線は無いよ"
Else
MsgBox "右下り斜め罫線はあるよ"
End If
【81636】Re:セル書式の線が引いてあるかを知りたい
お礼  TDS  - 21/1/31(日) 18:29 -
引用なし
パスワード
   ▼F-Rain さん、ご回答ありがとうございます。
教えていただいた内容で、実績データが作成できるようになります。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
197 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free