Vẽ hình chữ nhật thì cứ vẽ thôi, sao phải nối 4 đường thẳng lại thành hình chữ nhật cho tốn công?
Tôi làm như sau:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet, dL As Double, dT As Double, dW As Double, dH As Double
On Error Resume Next
If Target.Address =...