Private Sub UserForm_Click()

‘I‘ð”͈Í
With Range(Cells(y1, x1), Cells(y2, x2))

If .Borders(xlEdgeTop).LineStyle = xlContinuous Then
Label1.Visible = True
Else
Label1.Visible = False
End If

If .Borders(xlInsideHorizontal).LineStyle = xlContinuous Then
Label2.Visible = True
Else
Label2.Visible = False
End If

If .Borders(xlEdgeBottom).LineStyle = xlContinuous Then
Label3.Visible = True
Else
Label3.Visible = False
End If

If .Borders(xlEdgeLeft).LineStyle = xlContinuous Then
Label4.Visible = True
Else
Label4.Visible = False
End If

If .Borders(xlInsideVertical).LineStyle = xlContinuous Then
Label5.Visible = True
Else
Label5.Visible = False
End If

If .Borders(xlEdgeRight).LineStyle = xlContinuous Then
Label6.Visible = True
Else
Label6.Visible = False
End If

If .Borders(xlDiagonalUp).LineStyle = xlContinuous Then
Image1.Visible = True
Else
Image1.Visible = False
End If

If .Borders(xlDiagonalDown).LineStyle = xlContinuous Then
Image2.Visible = True
Else
Image2.Visible = False
End If
End With

End Sub