Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8984 / 76732

←次へ　｜　前へ→


	【73316】Re:セルの下の罫線と上の罫線

ichinose - 12/12/20(木) 5:48 -


	引用なし

	パスワード

おはようございます
>ちょっと教えてください。
>
>セルA1の下側の罫線と、セルA2の上側の罫線は、同じ罫線でしょうか？
>それとも、それぞれ別の罫線として存在しているのでしょうか？
新規ブックの標準モジュールで以下のコードの結果を調べてみると・・・・、

Sub test1()
　　Dim bdr1 As Border
　　Dim bdr2 As Border
　　Range("a:a").Delete
　　With Range("a1")
　　　 Set bdr1 = .Borders(xlEdgeBottom)
　　　 With bdr1
　　　　　.LineStyle = xlContinuous
　　　　　.Weight = xlThick
　　　　　.ColorIndex = 3
　　　 End With
　　End With
　　MsgBox "セルA1の下段罫線を設定しました" & vbCrLf & "セルA1の下段罫線（Borders(xlEdgeBottom)と" & _
　　　　　 "セルA2の上段罫線（Borders(xlEdgeTop)　を比較します"
　　Set bdr2 = Range("a2").Borders(xlEdgeTop)
　　MsgBox "LineStyleプロパティ" & vbCrLf & _
　　　　　 "セルA1の下段罫線=" & bdr1.LineStyle & vbCrLf & _
　　　　　 "セルA2の上段罫線=" & bdr2.LineStyle & vbCrLf & vbCrLf & _
　　　　　 "Weightプロパティ" & vbCrLf & _
　　　　　 "セルA1の下段罫線=" & bdr1.Weight & vbCrLf & _
　　　　　 "セルA2の上段罫線=" & bdr2.Weight & vbCrLf & vbCrLf & _
　　　　　 "ColorIndexプロパティ" & vbCrLf & _
　　　　　 "セルA1の下段罫線=" & bdr1.ColorIndex & vbCrLf & _
　　　　　 "セルA2の上段罫線=" & bdr2.ColorIndex & vbCrLf & vbCrLf & _
　　　　　 "と同じです"
　　MsgBox "ただ、この罫線を扱うオブジェクトが違います" & vbCrLf & _
　　　　　 "セルA1の下段罫線オブジェクト Is セルA2の上段罫線オブジェクト =" & (bdr1 Is bdr2)
End Sub

罫線は同じですね、それを扱うオブジェクトが違うだけですね

273 hits

▼

【73313】セルの下の罫線と上の罫線 ブーチー 12/12/19(水) 20:42