Nhờ tư vấn giúp về VBA

[huynhdinh89]

Em có 1 file cần mọi người hướng dẫn với

Vốn là có 2 sheet, sheet Chi tiết sửa và sheet Sua

Bên sheet sửa e nhập thông tin Số hiệu, ngày, nội dung, tổng tiền
Còn bên sheet Chi tiết chọn vào ô số hiệu, sẽ cho ra 1 list các số hiệu không trùng bên sheet Sửa
Khi có số hiệu, ô ngày sửa sẽ có list những ngày sửa của số hiệu đã chọn để mình chọn vào, khi chọn vào ngày nào thì nội dung sửa sẽ hiện ra bên nội dung và tổng tiền



Xem nhiều bài rồi mà chưa tìm ra phương pháp nên nhờ mọi người chỉ điểm dùm e ạ

 

[SA_DQ]

Trong file của bạn đã có sẵn Form;
Bạn có thể dùng form để nhập mới hay chỉnh sửa dòng dữ liệu nào đó bất kỳ mà.
(Mình cho rằng yêu cầu sửa của bạn thực hiện trên Form thì vẫn hay hơn.

 

[huynhdinh89]

Em cám ơn ý kiến của SA_DQ để em tìm thêm tài liệu

 

[SA_DQ]

Em cám ơn ý kiến của SA_DQ để em tìm thêm tài liệu

Đây là file giới thiệu ban đầu đến bạn & mong bạn vui!

(Cập nhật file lúc 12H0 07/06/23)

 

[huynhdinh89]

Đây là file giới thiệu ban đầu đến bạn & mong bạn vui!

Cám ơn a/c nhiều nhé

 

[huynhdinh89]

Nhờ a/c gì thêm tý nữa với. Em đỗi qua rồi, cơ bản ok rồi mà sao có chỗ code này nó ko báo lỗi gì mà ko chịu chạy
Nhờ a/c xem chỉ điểm giúp với @@

 

[bebo021999]

Nhờ a/c gì thêm tý nữa với. Em đỗi qua rồi, cơ bản ok rồi mà sao có chỗ code này nó ko báo lỗi gì mà ko chịu chạy
Nhờ a/c xem chỉ điểm giúp với @@

1- Đúng là nó không báo lỗi
2- "Ko chịu chạy": Như thế nào là không chịu chạy, bạn cho ví dụ nhé
Mình test, nhập thử data vô form thì thấy chạy OK

 

[huynhdinh89]

cái Combox thông tin biển số, nó không show ra được ạ, sau khi nó show ra được mình click vào thì nó hiện thông tin ra listbox ạ

 

[SA_DQ]

Nguồn của ComboBox (biển số xe) bạn đang gán là 'BSo'; Nhưng khắp cả trang tính lẫn tham biến (dùng chung) nào có thấy bóng dáng nó mô tê gì đâu?

 

[huynhdinh89]

A/C gì SA_DQ ơi, xem dùm e, e đã được Combobox rồi, nhưng còn chỗ code _change và _lick trên CBbox lại ko chạy, nhờ tư vấn e với

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

A/C gì SA_DQ ơi, xem dùm e, e đã được Combobox rồi, nhưng còn chỗ code _change và _lick trên CBbox lại ko chạy, nhờ tư vấn e với

Thanks mọi người ạ, e đã tìm ra đáp án rồi

 

[huhumalu]

1. Bạn cần tìm hiểu về việc khai báo biến.
As Long là số nguyên
As object là đối tượng (khi chưa rõ cụ thể loại).
2. Như bên trên hình thì phải sửa thành "Dim Rws as object"
3. Mình thấy dòng đầu thì Set Rws = Dictionary ? Nhưng ngay sau đó thì lại gán giá trị dòng cuối.
Mình sửa lại:

    Dim Rws As Long, W As Integer, J As Long, Col As Integer
    'Set Rws = CreateObject("Scripting.Dictionary")
        Rws = .Range("B" & Rows.Count).End(xlUp).Row

 

[Maika8008]

1. Bạn cần tìm hiểu về việc khai báo biến.
As Long là số nguyên
As object là đối tượng (khi chưa rõ cụ thể loại).
2. Như bên trên hình thì phải sửa thành "Dim Rws as object"
3. Mình thấy dòng đầu thì Set Rws = Dictionary ? Nhưng ngay sau đó thì lại gán giá trị dòng cuối.
Mình sửa lại:

    Dim Rws As Long, W As Integer, J As Long, Col As Integer
    'Set Rws = CreateObject("Scripting.Dictionary")
        Rws = .Range("B" & Rows.Count).End(xlUp).Row

Tác giả nhầm nên thừa 1 dòng gán biến thôi, chứ ai lại dùng Rws để gán cho Dictionary.

 

[SA_DQ]

Em có 1 file cần mọi người hướng dẫn với
Vốn là có 2 sheet, sheet Chi tiết sửa và sheet Sua
Bên sheet sửa e nhập thông tin Số hiệu, ngày, nội dung, tổng tiền
Còn bên sheet Chi tiết chọn vào ô số hiệu, sẽ cho ra 1 list các số hiệu không trùng bên sheet Sửa . . . . . .

Phải nói là chủ bài đăng rất chịu khó & tìm tòi; Mong bạn sẽ đạt nhiều thành công!

 

[huynhdinh89]

Phải nói là chủ bài đăng rất chịu khó & tìm tòi; Mong bạn sẽ đạt nhiều thành công!

Cám ơn mọi người nhiều ạ, nhất là thành viên SA_DQ đã giúp e rất nhiều. Chúc mọi người nhiều mạnh khỏe, thành công trong cuộc sống