部品表ごとに枠線を引く方法教えてください。。。

質問

知恵をおかし下さい。
以下の部品表があるとします。(初めは枠線は無いとします)
例えば、親品目AはX,Yによって製造されます。
ボタン一つで親品目ごと枠線を自動で引く方法を教えてください。
　　　A列　　　　Ｂ　　　
１　親品目　　　子品目
　 ＿＿＿＿＿＿＿　
　｜　Ａ　　　　Ｘ　　｜　　　　
３｜　Ａ　　　　Ｙ　　｜　
　｜＿＿＿＿＿　｜
　 ＿＿＿＿＿＿＿　　
４｜　　Ｂ　　　Ｘ　　｜
５｜　　Ｂ　　　Ｙ　　｜　
６｜ 　Ｂ　　　Ｚ　　　｜　
　｜＿＿＿＿＿＿｜
VBAを使って作成したいと思っています。よろしくお願いします。

回答No.1

zap35 · ベストアンサー

以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

Sub Macro1()
Dim ptrS, idx As Long
　ptrS = 2
　For idx = 2 To Range("A65536").End(xlUp).Row
　　If Cells(idx, 1) <> Cells(idx + 1, 1) Then
　　　Range(Cells(ptrS, 1), Cells(idx, 2)).Borders(xlEdgeTop).LineStyle = xlContinuous
　　　Range(Cells(ptrS, 1), Cells(idx, 2)).Borders(xlEdgeBottom).LineStyle = xlContinuous
　　　Range(Cells(ptrS, 1), Cells(idx, 2)).Borders(xlEdgeLeft).LineStyle = xlContinuous
　　　Range(Cells(ptrS, 1), Cells(idx, 2)).Borders(xlEdgeRight).LineStyle = xlContinuous
　　　ptrS = idx + 1
　　End If
　Next idx
End Sub

マクロをボタンに割り付けるにはシート上にオートシェイプの四角形を描き、シェイプ右クリック→マクロの登録→マクロ名選択で行うことができます

お礼

参考になりました。有難うございます。

回答No.2

imogasi

＞VBAを使って作成したいと思っています
VBAでなくてもできます。
下記操作をマクロの記録で、VBA化もできます。
例データ　A1:B10
a x
a y
a z
a u
b z
b y
b u
c x
c y
d z
書式ー条件付き書式ー式が　で式に
=$A1<>$A2
＄を付ける位置と有無が大切です。
書式に罫線の下（底）線を指定
OK
上例でA4:B4、A7:B7、A9:B9,A10:B10に線が引かれます。
外枠は別途引く。