Excel VBA質問箱 IV

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

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


10300 / 13644 ツリー ←次へ | 前へ→

【22567】罫線を操作したい まつ君 05/2/23(水) 22:44 質問[未読]
【22570】Re:罫線を操作したい ponpon 05/2/23(水) 23:35 回答[未読]
【22633】Re:罫線を操作したい まつ君 05/2/24(木) 23:37 お礼[未読]

【22567】罫線を操作したい
質問  まつ君 E-MAIL  - 05/2/23(水) 22:44 -

引用なし
パスワード
   下記のようにA2:3の値が1でA4:A5の値が2、A6:A7の値が3の時
A5(1から2)、A8(2から3)の所にC列まで横に罫線の太線を
引くにはどうすればよいですか
AのNo.の値はA2からA5まで1になるときもありまり、No.の同じ値の範囲は変動します。
よろしくお願いします。

 A  B   C 
1 No. 品名 単価
2 1  aaa  123
3 1  bbb  222
4 2  ccc  456
5 2  ddd  100
6 3  eee  50
7 3  fff  789

【22570】Re:罫線を操作したい
回答  ponpon  - 05/2/23(水) 23:35 -

引用なし
パスワード
   ▼まつ君 さん:
ponponです。こんばんは。
 NO.の変わるところで、線を引くということなら
Sub test()
  Dim myRng As Range
  Dim r As Range
  
  Set myRng = Range("A2", Range("A65536").End(xlUp))
  For Each r In myRng
   If r <> r.Offset(1, 0) Then
     r.Resize(1, 3).Borders(xlEdgeBottom).Weight = xlMedium
   End If
  Next
End Sub
こんな感じでいけるかな?
間違っていたらごめんなさい。


>下記のようにA2:3の値が1でA4:A5の値が2、A6:A7の値が3の時
>A5(1から2)、A8(2から3)の所にC列まで横に罫線の太線を
>引くにはどうすればよいですか
>AのNo.の値はA2からA5まで1になるときもありまり、No.の同じ値の範囲は変動します。
>よろしくお願いします。
>
> A  B   C 
>1 No. 品名 単価
>2 1  aaa  123
>3 1  bbb  222
>4 2  ccc  456
>5 2  ddd  100
>6 3  eee  50
>7 3  fff  789

【22633】Re:罫線を操作したい
お礼  まつ君 E-MAIL  - 05/2/24(木) 23:37 -

引用なし
パスワード
   まつ君です。こんばんは。
おかげさまで思ったことが出来ました。
どうもありがとうございました。

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