Nhờ các bạn sửa giúp đoạn code

le_vis · 18/6/24

Đoạn code đang báo lỗi dòng đánh dấu mầu đỏ - đoạn dưới If Target.Column = 7 họa động bình thường
Nhờ các bạn sửa giúp - Trân trọng cảm ơn !
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim d, I, Vung, Ws

Set d = CreateObject("scripting.dictionary")

Set Ws = Sheets("DM_hang")

Vung = Ws.Range(Ws.[C8], Ws.[C200].End(xlUp)).Resize(, 4)

If Not Intersect(Target, Range("AA4:AA200")) Is Nothing Then

If Target.Count = 1 Then

For I = 1 To UBound(Vung)

d.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))

Next I

If d.exists(UCase(Target.Value)) Then

Target.Offset(, 2) = d.Item(UCase(Target.Value))(58)

End If

End If

End If

If Target.Column = 7 And Target.Row = 1 And Target.Row < 7 Then

Sheets("Form").Range("D3") = Selection.Text

End If

End Sub

Hoàng Tuấn 868 · 18/6/24

Nhpờ các bạn sửa giúp đoạn code

le_vis đã viết:
Đoạn code đang báo lỗi dòng đánh dấu mầu đỏ - đoạn dưới If Target.Column = 7 họa động bình thường
Nhờ các bạn sửa giúp - Trân trọng cảm ơn !
- - - - - - - - - - - - - - - - - - - - - - - - - - - -

Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim d, I, Vung, Ws Set d = CreateObject("scripting.dictionary") Set Ws = Sheets("DM_hang") Vung = Ws.Range(Ws.[C8], Ws.[C200].End(xlUp)).Resize(, 4) If Not Intersect(Target, Range("AA4:AA200")) Is Nothing Then If Target.Count = 1 Then For I = 1 To UBound(Vung) d.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4)) Next I If d.exists(UCase(Target.Value)) Then Target.Offset(, 2) = d.Item(UCase(Target.Value))(58) End If End If End If If Target.Column = 7 And Target.Row = 1 And Target.Row < 7 Then Sheets("Form").Range("D3") = Selection.Text End If End Sub

Sửa lại tiêu đề một chút đi bạn. Nên cho code vào trong thẻ code cho gọn.

le_vis · 18/6/24

Hoàng Tuấn 868 đã viết:
Nhpờ các bạn sửa giúp đoạn code

Sửa lại tiêu đề một chút đi bạn. Nên cho code vào trong thẻ code cho gọn.

Bạn sửa giúp mình với

Hoàng Tuấn 868 · 18/6/24

le_vis đã viết:
Bạn sửa giúp mình với

Bạn đưa file mẫu lên và diễn giải xem điều kiện ra sao, kết quả mong muốn như thế nào. Có gì viết mới có khi nhanh hơn đi dò để sửa đó.

CHAOQUAY · 18/6/24

le_vis đã viết:
Đoạn code đang báo lỗi dòng đánh dấu mầu đỏ - đoạn dưới If Target.Column = 7 họa động bình thường
Nhờ các bạn sửa giúp - Trân trọng cảm ơn !
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim d, I, Vung, Ws

Set d = CreateObject("scripting.dictionary")

Set Ws = Sheets("DM_hang")

Vung = Ws.Range(Ws.[C8], Ws.[C200].End(xlUp)).Resize(, 4)

If Not Intersect(Target, Range("AA4:AA200")) Is Nothing Then

If Target.Count = 1 Then

For I = 1 To UBound(Vung)

d.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))

Next I

If d.exists(UCase(Target.Value)) Then

Target.Offset(, 2) = d.Item(UCase(Target.Value))(58)

End If

End If

End If

If Target.Column = 7 And Target.Row = 1 And Target.Row < 7 Then

Sheets("Form").Range("D3") = Selection.Text

End If

End Sub

Thử sửa dòng trên thành dòng dưới xem còn báo lỗi không rồi tính tiếp

Mã:

'd.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))
d(Vung(I, 1))= Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))

Hoàng Tuấn 868 · 18/6/24

CHAOQUAY đã viết:
Thử sửa dòng trên thành dòng dưới xem còn báo lỗi không rồi tính tiếp

Mã:

'd.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4)) d(Vung(I, 1))= Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))

Em còn chưa hiểu ý tưởng của tác giả định làm gì.

le_vis · 18/6/24

Hoàng Tuấn 868 đã viết:
Bạn đưa file mẫu lên và diễn giải xem điều kiện ra sao, kết quả mong muốn như thế nào. Có gì viết mới có khi nhanh hơn đi dò để sửa đó.

Tôi muốn sửa được thì tốt, vì file gồm nhiều Sheet liên kết với nhau - bạn xem giúp

CHAOQUAY · 18/6/24

Hoàng Tuấn 868 đã viết:
Em còn chưa hiểu ý tưởng của tác giả định làm gì.

Đau đâu chữa đấy thôi.

le_vis · 18/6/24

CHAOQUAY đã viết:
Thử sửa dòng trên thành dòng dưới xem còn báo lỗi không rồi tính tiếp

Mã:

'd.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4)) d(Vung(I, 1))= Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))

Trân trọng cảm ơn bạn - Tôi sửa thử có gì xin được phúc đáp lại bạn sau mấy phút nhé

Bài đã được tự động gộp: 18/6/24

CHAOQUAY đã viết:
Thử sửa dòng trên thành dòng dưới xem còn báo lỗi không rồi tính tiếp

Mã:

'd.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4)) d(Vung(I, 1))= Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))

Vẫn báo lỗi thế bạn ạ - Nhờ ban bắt bệnh và chữa giúp

Hoàng Tuấn 868 · 18/6/24

le_vis đã viết:
file gồm nhiều Sheet liên kết với nhau

Nhìn sơ qua thì liên quan Sheets khác cũng chỉ có ô D3 tại Sheets Form định dạng sang Text thôi bạn.

CHAOQUAY · 18/6/24

le_vis đã viết:
Trân trọng cảm ơn bạn - Tôi sửa thử có gì xin được phúc đáp lại bạn sau mấy phút nhé

Bài đã được tự động gộp: 18/6/24

Vẫn báo lỗi thế bạn ạ - Nhờ ban bắt bệnh và chữa giúp

Báo lỗi thế nào bạn chụp hình gửi lên xem

huhumalu · 18/6/24

Bạn thử sửa thêm và sửa những nội dung sau:

Mã:

Dim Vung As Variant
...
Vung = Ws.Range(Ws.[C8], Ws.[C200].End(xlUp)).Resize(, 4).Value
...

le_vis · 18/6/24

CHAOQUAY đã viết:
Báo lỗi thế nào bạn chụp hình gửi lên xem

Lỗi báo thế này - Bạn xem giúp

CHAOQUAY · 18/6/24

le_vis đã viết:
Lỗi báo thế này - Bạn xem giúp

Chỗ -->> (58) sửa thành -->> (0)

Có thể bạn trích mảng trong item vượt quá giới hạn
Nếu không lỗi thì tính tiếp

le_vis · 18/6/24

huhumalu đã viết:
Bạn thử sửa thêm và sửa những nội dung sau:

Mã:

Dim Vung As Variant ... Vung = Ws.Range(Ws.[C8], Ws.[C200].End(xlUp)).Resize(, 4).Value ...

Cảm ơn bạn mình loay hoay mãi nhưng vẫn không tìm ra hướng xử lý - Vì trình thấp quá

Bài đã được tự động gộp: 18/6/24

CHAOQUAY đã viết:
Chỗ -->> (58) sửa thành -->> (0)

Có thể bạn trích mảng trong item vượt quá giới hạn
Nếu không lỗi thì tính tiếp

Vậy dữ liệu Nó ở cột thứ 58 thì sửa ra sao ? bạn chỉ giúp !

CHAOQUAY · 18/6/24

le_vis đã viết:
Cảm ơn bạn mình loay hoay mãi nhưng vẫn không tìm ra hướng xử lý - Vì trình thấp quá

Bài đã được tự động gộp: 18/6/24

Vậy dữ liệu Nó ở cột thứ 58 thì sửa ra sao ? bạn chỉ giúp !

Vùng dữ liệu của bạn có 4 cột ( Resize(,4)

Mã:

Vung = Ws.Range(Ws.[C8], Ws.[C200].End(xlUp)).Resize(, 4)

Nạp vào dic là 1 mảng có 3 phần tử

Mã:

d.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))

Nếu lấy cột 58:
1- Phải mở rộng Vùng rộng 58 cột ( Phải chứa cột cần tra cứu )
2- Khi nạp vào dic phải nạp giá trị của cột này: Array(...., Vung(i,58))

le_vis · 18/6/24

CHAOQUAY đã viết:
Vùng dữ liệu của bạn có 4 cột ( Resize(,4)

Mã:

Vung = Ws.Range(Ws.[C8], Ws.[C200].End(xlUp)).Resize(, 4)

Nạp vào dic là 1 mảng có 3 phần tử

Mã:

d.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))

Nếu lấy cột 58:
1- Phải mở rộng Vùng rộng 58 cột ( Phải chứa cột cần tra cứu )
2- Khi nạp vào dic phải nạp giá trị của cột này: Array(...., Vung(i,58))

Bạn làm giúp luôn tý với

huhumalu · 18/6/24

le_vis đã viết:
Cảm ơn bạn mình loay hoay mãi nhưng vẫn không tìm ra hướng xử lý - Vì trình thấp quá

Vấn đề của bạn nằm ở khâu trình bày thôi

Bài này chưa có gì để làm khó. Mọi người có gợi ý các cách làm mà bạn đang có vẻ "bảo mật":
1. Bạn trình bày ý tưởng mong muốn của bạn, mọi người sẽ gợi ý cách làm cho bạn. Lựa chọn vẫn của bạn mà.
2. Gửi file và lỗi lên thì mọi người mới hình dung ra lỗi gì. Một cái dòng tô vàng nó không có ý nghĩa quá nhiều. Khi có file có thể biết là bạn khai báo biến gì, lỗi gì, object nào có khai báo mà rỗng, thiếu khai báo sai.
3. Bạn báo lỗi tại dòng d(Vung(I, 1))= Array(Vung(I, 2), Vung(I, 3), Vung(I, 4)) mà sao chụp ra nó lỗi dòng khác

CHAOQUAY · 18/6/24

@le_vis
Tạm thời dừng các câu lệnh không cần thiết.
Bạn test code bên dưới xem sao.

Các chỉ số khi khai báo Vung, khi nạp vào dic, khi tra cứu bạn cần lưu ý

Mã:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim d, I, Vung, Ws

Set d = CreateObject("scripting.dictionary")
Set Ws = Sheets("DM_hang")

'Vung = Ws.Range(Ws.[C8], Ws.[C200].End(xlUp)).Resize(, 4)
Vung = Ws.Range(Ws.[C8], Ws.[C200].End(xlUp)).Resize(, 58)

If Not Intersect(Target, Range("AA4:AA200")) Is Nothing Then
    If Target.Count = 1 Then
        For I = 1 To UBound(Vung)
            If d.exists(Vung(I, 1)) = False Then
                'd.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))
                d.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 58))
            End If
        Next I
       
        If d.exists(UCase(Target.Value)) Then
            'Target.Offset(, 2) = d.Item(UCase(Target.Value))(58)
            Target.Offset(, 2) = d.Item(UCase(Target.Value))(2)
        End If
    End If
End If

'If Target.Column = 7 And Target.Row = 1 And Target.Row < 7 Then
'    Sheets("Form").Range("D3") = Selection.Text
'End If

End Sub

---
Sửa phần nạp dic

le_vis · 18/6/24

huhumalu đã viết:
Vấn đề của bạn nằm ở khâu trình bày thôi
Bài này chưa có gì để làm khó. Mọi người có gợi ý các cách làm mà bạn đang có vẻ "bảo mật":
1. Bạn trình bày ý tưởng mong muốn của bạn, mọi người sẽ gợi ý cách làm cho bạn. Lựa chọn vẫn của bạn mà.
2. Gửi file và lỗi lên thì mọi người mới hình dung ra lỗi gì. Một cái dòng tô vàng nó không có ý nghĩa quá nhiều. Khi có file có thể biết là bạn khai báo biến gì, lỗi gì, object nào có khai báo mà rỗng, thiếu khai báo sai.
3. Bạn báo lỗi tại dòng d(Vung(I, 1))= Array(Vung(I, 2), Vung(I, 3), Vung(I, 4)) mà sao chụp ra nó lỗi dòng khác

Khi giải quyết theo hướng của bạn CHAOQUAY thành d.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))
thi xảy ra lỗi này : Target.Offset(, 2) = d.Item(UCase(Target.Value))(58) chứ bạn

Nhờ các bạn sửa giúp đoạn code

Thành viên tích cực

Đăng ký hôm qua

Nhpờ các bạn sửa giúp đoạn code​

Thành viên tích cực

Nhpờ các bạn sửa giúp đoạn code​

Đăng ký hôm qua

Thành viên gắn bó

Đăng ký hôm qua

Thành viên tích cực

Thành viên gắn bó

Thành viên tích cực

Đăng ký hôm qua

Thành viên gắn bó

Thành viên tiêu biểu

Thành viên tích cực

File đính kèm

Thành viên gắn bó

Thành viên tích cực

Thành viên gắn bó

Thành viên tích cực

Thành viên tiêu biểu

Thành viên gắn bó

Thành viên tích cực

Facebook

Group

Nhpờ các bạn sửa giúp đoạn code

Nhpờ các bạn sửa giúp đoạn code