Liên quan đến cờ bạc: xin giúp đỡ ghép dữ liệu mảng (3 người xem)

[rem-cua-72h78]

em có dữ liệu mảng tù cột A,b,c,,,,đến ,,x,y,z,,,,vậy có code mảng nào ghép từ cột A đèn cột xyz,,,mà mỗi cột chỉ ghép với nhau 1 lần,,,,,không được gặp nhau 2 lần,,,,,VD ,,,,AB,,,AC,,,AX,,,AY,,,AZ,,,,----------,BC,,BX,,BY,,BZ,,,-----CX,,CY,,CZ,,,,,,Không được quay ngược lại,,,,,,????/,,, các bác giúp em với ,,, thank

 

[BuiQuangThuan]

em có dữ liệu mảng tù cột A,b,c,,,,đến ,,x,y,z,,,,vậy có code mảng nào ghép từ cột A đèn cột xyz,,,mà mỗi cột chỉ ghép với nhau 1 lần,,,,,không được gặp nhau 2 lần,,,,,VD ,,,,AB,,,AC,,,AX,,,AY,,,AZ,,,,----------,BC,,BX,,BY,,BZ,,,-----CX,,CY,,CZ,,,,,,Không được quay ngược lại,,,,,,????/,,, các bác giúp em với ,,, thank

Mô tả bằng file được không bạn

 

[rem-cua-72h78]

Mô tả bằng file được không bạn

được bác gúp em với ,,em mới học dữ liệu mảng ,,,cho lên ghép thủ công thì nâu lắm ,,,,

 

[Nhattanktnn]

em có dữ liệu mảng tù cột A,b,c,,,,đến ,,x,y,z,,,,vậy có code mảng nào ghép từ cột A đèn cột xyz,,,mà mỗi cột chỉ ghép với nhau 1 lần,,,,,không được gặp nhau 2 lần,,,,,VD ,,,,AB,,,AC,,,AX,,,AY,,,AZ,,,,----------,BC,,BX,,BY,,BZ,,,-----CX,,CY,,CZ,,,,,,Không được quay ngược lại,,,,,,????/,,, các bác giúp em với ,,, thank

Máy bạn kẹt phím dấu phẩy à.
Hướng dẫn thôi không làm, cũng đơn giản
Chạy 2 vòng lặp lồng nhau. Ngoài chạy từ A-Z. Trong chạy từ cột sau A (tức vị trí A+1) đến Z rồi nối giá trị lại với nhau. Đang không rõ cái A-Z là cái tên cột hay là chữ cái dữ liệu trong bảng nữa
Bài #1 thì ghi là cột. Đính kèm file thì lại thấy bỏ trống 1 khúc (cột làm gì bỏ trống), mà nếu bỏ trống thì điều kiện không xét cột nào chưa nói?

 

[befaint]

Nguồn cơn ở đây này.





--------

Chủ quản diễn đàn nên xem xét lại các chủ đề/ bài viết liên quan tới mấy trò số má này.

Theo tình trạng hiện tại thì đã bị dán nhãn cảnh báo đỏ lừ rồi. Nhanh tay xử lý mà tránh hậu quả.

 

[rem-cua-72h78]

Máy bạn kẹt phím dấu phẩy à.
Hướng dẫn thôi không làm, cũng đơn giản
Chạy 2 vòng lặp lồng nhau. Ngoài chạy từ A-Z. Trong chạy từ cột sau A (tức vị trí A+1) đến Z rồi nối giá trị lại với nhau. Đang không rõ cái A-Z là cái tên cột hay là chữ cái dữ liệu trong bảng nữa
Bài #1 thì ghi là cột. Đính kèm file thì lại thấy bỏ trống 1 khúc (cột làm gì bỏ trống), mà nếu bỏ trống thì điều kiện không xét cột nào chưa nói?

thank bác đáy là em VD ,,, có 1 mảng gồm nhiều dòng và nhiều cột dữ liệu ,,,,vd,,,1,2,3,4,5,6,7,8,9,,,,vậy ghép sao cho ,,12,,,13,,,14,,15,,,16,17,18,19,,,,23,24,25,26,27,28,29,,,,,34,35,36,,,,nếu ghép vòng lập lồng nhau ,,,,,,thì nó sẽ chạy vòng chòn,,,,,,vậy nò sẽ quay ngược lại ,,,,21,31,41,,,,,,vậy ko được?????,,,bác có code ,,, nào khác không cho em xin với,,, thank

 

[SA_DQ]

Option Explicit

Sub GhepDuLieu()
 Dim Col As Integer, J As Long, W As Integer, Z As Long
 Dim StrC As String

 Col = [B1].CurrentRegion.Columns.Count
 ReDim Arr(1 To (Col) ^ (7), 1 To 1) As String
 For J = 1 To Col - 1
    For W = J + 1 To Col
        StrC = Cells(1, J).Value & Cells(1, W).Value
        Z = Z + 1:      Arr(Z, 1) = IIf(Len(StrC) = 2, StrC, Space(0))
    Next W
 Next J
 Cells(1, Col + 5).Resize(Z).Value = Arr()
End Sub

 

[rem-cua-72h78]

Option Explicit

Sub GhepDuLieu()
 Dim Col As Integer, J As Long, W As Integer, Z As Long
 Dim StrC As String

 Col = [B1].CurrentRegion.Columns.Count
 ReDim Arr(1 To (Col) ^ (7), 1 To 1) As String
 For J = 1 To Col - 1
    For W = J + 1 To Col
        StrC = Cells(1, J).Value & Cells(1, W).Value
        Z = Z + 1:      Arr(Z, 1) = IIf(Len(StrC) = 2, StrC, Space(0))
    Next W
 Next J
 Cells(1, Col + 5).Resize(Z).Value = Arr()
End Sub

em cảm ơn bác,,,,bác giúp em code ,, chay nhiều dòng nhiều cột được không,,,ra như excel đính kèm,,,,,em làm thủ công thì chạy được ,,,,nhưng nhiều dòng code lắm,,,,,bác ghép hộ em nhiều dòng và cột nhé,,,ra kết quả như em ghép ,,nhưng ít code,,,,,thank bác

 

[SA_DQ]

Bạn xem hàm mảng tự tạo như trong hình dưới đây:

 

[rem-cua-72h78]

thank bác ,,, em mới học code,,, lên vẫn chưa hiểu bác có thể cho em ít code nhé


em làm thế này nhưmg vẫn bị sai bác ạ,,
Sub GhepDuLieu444()
Sheet4.Range("I2:ae30").ClearContents
Dim All_Col As Integer, cot1 As Long, cot2 As Integer, i As Long
Dim Arr As String, Arr1 As String, Arr2 As String

All_Col = [A3].CurrentRegion.Columns.Count
ReDim kq(1 To (All_Col) ^ (7), 1 To 5) As String
For cot1 = 1 To All_Col - 1
For cot2 = cot1 + 1 To All_Col
Arr = Cells(3, cot1).Value & Cells(3, cot2).Value
Arr1 = Cells(4, cot1).Value & Cells(4, cot2).Value
Arr2 = Cells(5, cot1).Value & Cells(5, cot2).Value
i = i + 1
kq(i, 1) = IIf(Len(Arr) = 2, Arr, Space(0))
kq(i, 2) = IIf(Len(Arr1) = 2, Arr1, Space(0))
kq(i, 3) = IIf(Len(Arr2) = 2, Arr2, Space(0))
Next cot2
Next cot1
Cells(3, All_Col + 4).Resize(i, 1).Value = kq
Cells(4, All_Col + 5).Resize(i, 2).Value = kq
Cells(5, All_Col + 6).Resize(i, 3).Value = kq

End Sub

 

[VetMini]

Máy bạn kẹt phím dấu phẩy à.
...

Trò đùa của những kẻ thiếu suy nghĩ.
Nhờ người ta vặn óc giúp mình mà còn bắt người ta phải bỏ ra một phần não để lọc 25-30% rác trong lới diến tả vấn đề.
Loại đùa giỡn gây thiệt hại cho cả hai bên.

Tôi mà như ông bạn viết code bài #7 thì tôi cũng đáp lại bằng một đống rác trong code. Code vẫn chạy được, nhưng chứa một đống code thừa.

 

[Hoàng Tuấn 868]

Sub GhepDuLieu444()
    Sheet4.Range("I2:ae30").,,ClearContents
     Dim All_Col As Integer,,,cot1 As Long,,,cot2 As Integer,,,i As Long
     Dim Arr As String,,, Arr1 As String,,,Arr2 As String
        All_Col = [A3].CurrentRegion.Columns.Count
            ReDim kq(1 To (All_Col) ^ (7),,,1 To 5) As String
                 For cot1 = 1 To All_Col - 1
                        For cot2 = cot1 + 1 To All_Col
                            Arr = Cells(3,,, cot1).Value & Cells(3,,,cot2).Value
                                Arr1 = Cells(4,,,cot1).Value & Cells(4,,,cot2).Value
                                    Arr2 = Cells(5,,, cot1).Value & Cells(5,,, cot2).Value
                                        i = i + 1
                                    kq(i,,,1) = IIf(Len(Arr) = 2,,, Arr,,, Space(0))
                                kq(i,,,2) = IIf(Len(Arr1) = 2,,,Arr1,,,Space(0))
                            kq(i,,, 3) = IIf(Len(Arr2) = 2,,,Arr2,,,Space(0))
                        Next cot2
                 Next cot1
            Cells(3,,, All_Col + 4).Resize(i,,,1).Value = kq
        Cells(4,,,All_Col + 5).Resize(i,,,2).Value = kq
     Cells(5,,,All_Col + 6).Resize(i,,,3).Value = kq
End Sub

(em làm thế này nhưmg vẫn bị sai bác ạ,,)
Thử.

 

[rem-cua-72h78]

thank các bác các bác biết thì chỉ bảo em
chứ còn lém đá em làm gì, em không biết thì mới hỏi

 

[VetMini]

thank các bác các bác biết thì chỉ bảo em
chứ còn lém đá em làm gì, em không biết thì mới hỏi

"không biết thì mới hỏi":
Không biết phép lịch sự sao không hỏi?

Phân trần mà còn cố tình nhét từ ngữ móc ngoéo. Muốn chứng minh thái độ cà cuống chết đến đít còn cay?
Mấy người ở bài #9, #12 mới vừa uống thuốc kháng, hết dị ứng với tiếng Tây. Chứ tôi thì thuốc vào mồm lại ói ra.

 

[SA_DQ]

. . . . .
Mấy người ở bài #9, #12 mới vừa uống thuốc kháng, hết dị ứng với tiếng Tây. Chứ tôi thì thuốc vào mồm lại ói ra.

#9 (& chắc #12 cũng vậy) thường dành cho những người không quen xài tiếng Tây tham khảo.

 

[rem-cua-72h78]

alo có bác nào xiêu về vba ,,cho em học hỏi với,,, có nhận dậy em không ,cho em xin số đt" zalo nhé,,, đêm 11:40,,tồi ngày 29/8/2022

 

[SA_DQ]

Có ngay: 0808800008, Tên thường dùng: Lão Mất Dạy