Tìm 4 số bất kỳ theo điều kiện

[emgaingayngo]

Có bài tóan như sau :
Có 01 bảng gồm 100 ô (10x10) chứa nhiều số gồm 2 chữ số bất kỳ, yêu cầu :
- Tìm ra được những bộ 4 số tạo thành hình vuông hoặc hình chữ nhật?
Mong các bạn chỉ giúp.

 

[Po_Pikachu]

Sửa theo cách của Po_Picachu và Mr_Okebab thì Cell(r, 12) vẫn nhận giá trị trên cell, có cách nào lưu kết quả trực tiếp vào bien luôn không? Hoặc add các kết quả tìm được vào trong comment của 01 cell nào đó?

... If .Offset(, j)  "" And .Offset(i, 0)  "" And .Offset(i, j)  "" Then [COLOR=red]temp = temp & [COLOR=blue]([/COLOR].Value & "-" & .Offset(, j) & "-" & .Offset(i, j) & "-" & .Offset(i, 0)[COLOR=blue])[/COLOR] & Chr(13) [/COLOR]r = r + 1 End If ....

Tại bạn không chịu động não thôi, theo bạn thấy đó chỗ nào có thể gán vào được thì cứ đặt vào, nếu không chạy thì hãy tìm hiểu xem nó sai chổ nào và tìm cách cho nó đừng rơi vào tình huống sai đó là được! Cặp ngoặc xanh đó hồi nãy là Cells(r, 12) vậy hãy xem lúc đầu nó bằng gì và giờ thì được thay bằng gì! (Thêm 1 chú ý cho bạn: Nếu bạn muốn 1 kết thúc như thế nào thì hãy để các đề tài gần nhau chứ đứng chia ra như vậy. Giống như 1 bài toán người ta thường có câu a, b, c để dẫn đắt người làm đi đến 1 kết quả theo ý muốn. Nếu 1 người có kiến thức tổng quát cao thì họ nhìn vào câu cuối thì đã có đáp án cho bạn rồi. Không những vậy mà còn dễ hơn bạn nghĩ và ngắn hơn hướng mà bạn muốn người ta đi. Vậy sẽ rất tốt cho bạn và cho tôi!) Chúc bạn vui với diễn đàn. Thân

 

[SA_DQ]

Đây, xin mời & chúc mừng xuân mới!

Hôm nay em lại bí nữa rồi, đó là tìm 03 số tạo thành tam giác vuông (có hình trong file đính kèm). Bác giúp em một lần nữa nha. Cảm ơn Bác rất nhiều!

Option Explicit
Dim MyColor As Byte
Sub BaSoDinhTamGiac()
 Const gN As String = "-"
 Dim Hg As Byte:                Dim Cot As Byte
 Dim Rng As Range, Cll0 As Range, Cll2 As Range, sRng As Range
 Set Rng = Range("A1:J10").SpecialCells(xlCellTypeConstants, 3)
 Range("L1:L99").ClearContents
 MyColor = [l2].Interior.ColorIndex + 1:        If MyColor = 41 Then MyColor = 34
 For Each Cll0 In Rng
    Cot = Cll0.Column:          Hg = Cll0.Row
    If Hg = 10 Then GoTo GPE
    Set sRng = Range(Cells(Hg + 1, 1), Cells(10, Cot))
    For Each Cll2 In sRng
        If Not Intersect(Cll2, Rng) Is Nothing And Not Intersect(Cells(Cll2.Row, _
            Cot), Rng) Is Nothing And Cll2.Column < Cll0.Column Then
            [l65500].End(xlUp).Offset(1) = Cll2.Value & gN & Cll0.Value _
                & gN & Cells(Cll2.Row, Cot).Value
        End If
    Next Cll2
GPE: Next Cll0
Range("L2:l" & [l65500].End(xlUp).Row).Interior.ColorIndex = MyColor
End Sub