- Công thức tổng quát tính số đoạn thẳng - Help

[dmtdmtbb]

- Có công thức nào tính ra số ô khi biết số đoạn thẳng.
- Tính ra số đoạn thẳng khi biết số ô.
+ Bác nào biết giải dùm 2 bài toán trên.

 

[anhtuan1066]

Dử liệu chưa đầy đủ... số đoan thẳng liên quan gì đến cell... 100 đoạn thẳng chưa chắc là 25 cell... lở như 10 đoạn thẳng này nằm rời rạc thì sao?

 

[dmtdmtbb]

Dử liệu chưa đầy đủ... số đoan thẳng liên quan gì đến cell... 100 đoạn thẳng chưa chắc là 25 cell... lở như 10 đoạn thẳng này nằm rời rạc thì sao?

- Về bài toán ngược thì đảm bảo đoạn thẳng được xếp thành cell như hình vd trên (có nhiều cách xếp thành cell ), không ngoại trừ trường hợp đoạn thẳng dư vd: 11 đt thành 3 cell dư 1.

- Xem ra vụ này khó ăn, vì giải ra tổng quát hong biết có được hong.
- Theo em nhớ thì lúc phổ thông có công thức nhưng lâu ngày quá nên quên.

 

[nvson]

Bạn thử tham khảo code sau:

Option Explicit
Public Sub Dem_Border()
Application.ScreenUpdating = False
Dim rngData As Range
Dim dem, cell_F
Set rngData = Selection
For Each cell_F In rngData
    cell_F.Select
    With Selection.Borders(xlEdgeLeft)
        If .LineStyle <> xlNone Then
            dem = dem + 1
            .LineStyle = xlNone
        End If
    End With
    With Selection.Borders(xlEdgeTop)
        If .LineStyle <> xlNone Then
            dem = dem + 1
            .LineStyle = xlNone
        End If
    End With
    With Selection.Borders(xlEdgeBottom)
        If .LineStyle <> xlNone Then
            dem = dem + 1
            .LineStyle = xlNone
        End If
    End With
    With Selection.Borders(xlEdgeRight)
        If .LineStyle <> xlNone Then
            dem = dem + 1
            .LineStyle = xlNone
        End If
    End With
Next cell_F
rngData.Select
Application.ScreenUpdating = True
MsgBox dem
End Sub

Chắc là còn rút gọn được code, nhưng hiện tại bây giờ thì mình có ít tgian lắm. Các bạn hoàn thiện nốt (nếu cần).
Cách sử dụng:
Chọn vùng đó, rồi chạy Macro trên.
Chúc thành công!