Sub ki105()
Range("G11").Borders(xlBottom).Weight = xlThin
Range("H12").Borders(xlLeft).Weight = xlThin
Range("F12").Borders(xlRight).Weight = xlThin
Range("G13").Borders(xlTop).Weight = xlThin
'Excel95
  If Cells(12, 7).Borders(xlBottom).LineStyle <> xlNone Then
   MsgBox "あり"
  Else
   MsgBox "xlBottomで取得した場合[G12下側]線なし"
  End If

'Excel2000
  If Cells(12, 7).Borders(xlEdgeBottom).LineStyle <> xlNone Then
   MsgBox "xlEdgeBottomで取得した場合[G12下側]線有り"
  Else
   MsgBox "なし"
  End If
End Sub