Excel VBA質問箱 IV

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

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


8971 / 76732 ←次へ | 前へ→

【73329】Re:セルの下の罫線と上の罫線
発言  ichinose  - 12/12/21(金) 7:02 -

引用なし
パスワード
   おはようございます。


>>罫線は同じですね、それを扱うオブジェクトが違うだけですね
>扱うオブジェクトが違うとは、どういう意味になるのでしょうか?
>もうすこし、詳しく説明が出来るのであれば、教えてください。

前回投稿の

> MsgBox "ただ、この罫線を扱うオブジェクトが違います" & vbCrLf & _
>       "セルA1の下段罫線オブジェクト Is セルA2の上段罫線オブジェクト =" > & (bdr1 Is bdr2

このコードの結果を言っているのですが、Falseと表示されませんでしたか?

私も最初混同していたんですが、

Rangeオブジェクト = セル ではない

Borderオブジェクト = 罫線 ではない

同じ罫線を扱っていても、窓口(Borderオブジェクト)が違うという
ことが有り得る ということなんです。

今回のばあい、セルA1の Borders(xlEdgeBottom)
セルA2のBorders(xlEdgeTop)、
見たとおり、オブジェクトが違いますが、同じ罫線を扱っている
ということです。

↑は、オブジェクトの記述が違うので何となく、違うオブジェクトだと
認識できると思いますが、もっとわかりにくい事例もあります。


新規ブックの標準モジュールに

Sub test2()
   Dim bdr1 As Border
   Dim bdr2 As Border
   Range("a:a").Delete
   With Range("a1")
    With .Borders(xlEdgeBottom)
      .LineStyle = xlContinuous
      .Weight = xlThick
      .ColorIndex = 3
    End With
    Set bdr1 = .Borders(xlEdgeBottom)
    Set bdr2 = .Borders(xlEdgeBottom)
   End With
   MsgBox "セルA1の下段罫線のオブジェクトbdr1 と 同じくセルA1の下段罫線のオブジェクトbdr2" & vbCrLf & _
      "を比較します"
   MsgBox "LineStyleプロパティ" & vbCrLf & _
      "bdr1=" & bdr1.LineStyle & vbCrLf & _
      "bdr2=" & bdr2.LineStyle & vbCrLf & vbCrLf & _
      "Weightプロパティ" & vbCrLf & _
      "bdr1=" & bdr1.Weight & vbCrLf & _
      "bdr2=" & bdr2.Weight & vbCrLf & vbCrLf & _
      "ColorIndexプロパティ" & vbCrLf & _
      "bdr1=" & bdr1.ColorIndex & vbCrLf & _
      "vdr2=" & bdr2.ColorIndex & vbCrLf & vbCrLf & _
      "と同じですが、"
   MsgBox "bdr1 is bdr2 = " & (bdr1 Is bdr2) & vbCrLf & _
      "違うという結果が表示されます"

End Sub

test2の結果とコードを照らし合わせてみてください

以前、目安箱でこんな投稿をしました。

www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=164;id=FAQ

これでも疑問が解決しなかったら、ピンポイントで追加質問をしてください
265 hits

【73313】セルの下の罫線と上の罫線 ブーチー 12/12/19(水) 20:42 質問
【73315】Re:セルの下の罫線と上の罫線 UO3 12/12/20(木) 5:41 発言
【73318】Re:セルの下の罫線と上の罫線 ブーチー 12/12/20(木) 8:45 お礼
【73320】Re:セルの下の罫線と上の罫線 UO3 12/12/20(木) 9:26 発言
【73321】Re:セルの下の罫線と上の罫線 ブーチー 12/12/20(木) 10:44 お礼
【73316】Re:セルの下の罫線と上の罫線 ichinose 12/12/20(木) 5:48 発言
【73319】Re:セルの下の罫線と上の罫線 ブーチー 12/12/20(木) 8:48 お礼
【73329】Re:セルの下の罫線と上の罫線 ichinose 12/12/21(金) 7:02 発言
【73331】Re:セルの下の罫線と上の罫線 ブーチー 12/12/21(金) 10:00 お礼
【73347】Re:セルの下の罫線と上の罫線 ichinose 12/12/22(土) 7:13 発言

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