エクセル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 回答日時： 2009/02/06 09:19

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

この回答へのお礼

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

お礼日時：2009/02/07 17:30

No.2 回答者： CoalTar 回答日時： 2009/02/05 23:59

条件付き書式なら

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

No.1 回答者： n-jun 回答日時： 2009/02/05 23:51

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