Excel VBA質問箱 IV

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

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


42992 / 76732 ←次へ | 前へ→

【38801】Re:セルの罫線を認識して、色をつける方法
回答  Kein  - 06/6/10(土) 15:17 -

引用なし
パスワード
   例えばセルの四辺が各々、直線×4(-8280),点と直線×4(-8268),点×4(-24756)
の罫線で囲まれている(数値は LineStyle の数値定数の合計)場合

Sub MyLineStyle()
  Dim C As Range
  Dim X As Long, Col As Long
 
  For Each C In ActiveSheet.UsedRange
   X = 0: Col = 0
   For Each B In C.Borders
     X = X + B.LineStyle
   Next
   Debug.Print X
   Select Case X
     Case -8280: Col = 5
     Case -8268: Col = 3
     Case -24756: Col = 6
   End Select
   If Col > 0 Then C.Interior.ColorIndex = Col
  Next
End Sub

なお数値定数の合計は、四辺を同じ種類の罫線で囲っているセルを1つ選択し

Sub Test()
  Dim X As Long

  For Each B In ActiveCell.Borders
   X = X + B.LineStyle
  Next
  MsgBox X
End Sub

を実行すれば、取得できます。
7 hits

【38787】セルの罫線を認識して、色をつける方法 九州男児 06/6/10(土) 10:55 質問
【38788】Re:セルの罫線を認識して、色をつける方法 ぱっせんじゃー 06/6/10(土) 11:19 発言
【38789】Re:セルの罫線を認識して、色をつける方法 ぱっせんじゃー 06/6/10(土) 11:29 発言
【38790】Re:セルの罫線を認識して、色をつける方法 九州男児 06/6/10(土) 11:55 質問
【38795】Re:セルの罫線を認識して、色をつける方法 ぱっせんじゃー 06/6/10(土) 12:56 発言
【38796】Re:セルの罫線を認識して、色をつける方法 Kein 06/6/10(土) 12:58 回答
【38799】Re:セルの罫線を認識して、色をつける方法 九州男児 06/6/10(土) 14:21 質問
【38801】Re:セルの罫線を認識して、色をつける方法 Kein 06/6/10(土) 15:17 回答
【38802】Re:セルの罫線を認識して、色をつける方法 Kein 06/6/10(土) 15:19 発言
【39308】Re:セルの罫線を認識して、色をつける方法 九州男児 06/6/22(木) 7:50 お礼

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