エクセルVBAで罫線を入れたい

質問

1/25 A社　1000円
1/25 B社　500円
1/25 C社　1000円
1/25 A社　2000円　罫線（下線）を日付から金額まで入れたい
1/26 A社　3000円
1/26 C社　5000円　罫線（下線）を日付から金額まで入れたい
1/27 D社　3000円
1/27 A社　1000円
1/27 B社　1000円　罫線（下線）を日付から金額まで入れたい

データ入力で日付の変わるところで自動で罫線を入れたいのですが
よろしくお願いします。

回答No.3

merlionXX · ベストアンサー

VBAの一例です。
日付はA、社名がB、金額がCの列にある場合です。

Sub test01()
With ActiveSheet
For Each c In Intersect(.Range("A:A"), .UsedRange)
If c <> c.Offset(1) Then
With .Range(c, c.Offset(0, 2)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next
End With
End Sub

お礼

早々の回答ありがとうございます。
助かりました。

回答No.2

某HN クロメート(Chromate)（@CoalTar）

条件付き書式なら
数式が =$A1<>$A2 罫線(下線)でできます
VBAはわかりかねますm(_ _)m

回答No.1

n-jun

条件付き書式ではダメなのでしょうか？