Giúp mình tạo Form để tra mã hiệu !!! (1 người xem)

[matran25251325]

Mình muốn tra tạo 1 form giống ảnh dưới, mà code cũ mình muốn giữ nguyên vì code cũ khi mình đá mã hiệu ở cột A của sheet Tienluong nó sẽ copy sang 1 hạng mục mình đánh mã hiệu đó. Vì mình không biết làm thế nào để tra nhanh mã hiệu công việc nên mong AE giúp mình với. Có thể Right-click ở cột A hoặc tạo 1 nút lệnh cũng được. Cám ơn AE GPE nhiều.

 

[quoc nhat]

Dạ file thật hơn 2mb mà sao em up lên ko được, toàn quá số kb nên e mới làm từng giai đoạn.
Em đã chỉnh được rồi anh quốc nhật, em cảm ơn nhiều. sẵn e hỏi 1 tí là khi em tra được 2 ( nhiều hơn) mã hiệu, thì có cách nào copy các giá trị và công thức các cột không liền nhau của sheet 'Tluong DT' (bôi xanh) sang sheet 'DG DT XD TRUOC THUE' không ạ. Nghĩa là khi em đánh AF.11111 bên sheet 'DG DT XD TRUOC THUE' thì dữ liệu sẽ copy bên sheet Tluong ở mã hiệu đó ạ. Vì trước giờ e dùng vlookup ở hàng đầu tiên sheet 'DG DT XD TRUOC THUE' , còn hàng thứ 2 trở đi e toàn dùng thủ công nên dễ sai sót và chậm.

chưa hiểu ý bạn lắm. nhưng chắc bạn có thể làm bằng giấu (=) cũng được

 

[matran25251325]

Dạ ko phải. E gởi lại file này cho dễ hiểu. Anh xem giùm chú thích cột A12 sheet DG DT TRUOC THUE

 

[be_09]

Dạ ko phải. E gởi lại file này cho dễ hiểu. Anh xem giùm chú thích cột A12 sheet DG DT TRUOC THUE

Ở sheet TLuong DT em không có mã hiệu làm sao nó hiểu, vậy em cứ gõ đại 1 ký tự hoặc 1 mã số vào A10 rồi sang sheet DG DT XD TRUOC THUE xem kết quả thế nào.

 

[matran25251325]

Dạ mã hiệu AF.18182 đó anh. ý em hỏi là có công thức nào để cột A12 sheet DG DT = A15 sheet tiên lượng không? Vì 1 dự toán có thể có nhiều hạng mục và mã hiệu, và mã hiệu thứ 3 có thể ở A20 sheet Tlluong thì cột A13 sheet DG DT sẽ = cột A20. Ý em hỏi là vậy .Các mã hiệu thường cách nhau các hàng vì thế nên e mới nhờ các Anh giúp đỡ vì khả năng e chưa xử lý được.

 

[quoc nhat]

Dạ mã hiệu AF.18182 đó anh. ý em hỏi là có công thức nào để cột A12 sheet DG DT = A15 sheet tiên lượng không? Vì 1 dự toán có thể có nhiều hạng mục và mã hiệu, và mã hiệu thứ 3 có thể ở A20 sheet Tlluong thì cột A13 sheet DG DT sẽ = cột A20. Ý em hỏi là vậy .Các mã hiệu thường cách nhau các hàng vì thế nên e mới nhờ các Anh giúp đỡ vì khả năng e chưa xử lý được.

Bạn xem dữ liệu của bạn nhiều nhất là mấy hàng thì sau đó chia hàng ra rồi cứ đánh dấu (=) vào là được
VD:Sheet DGDT A12 = cell A15 sheet tiên lượng . Vậy thôi chức cần công thức gì đâu

 

[matran25251325]

ở file bài này "Bạn xem file rồi cho ý kiến thêm nhé trang 2" của anh quoc nhat, cho em hỏi code có thể bổ sung sao cho khi right-click vào vị trí cột A8 trở đi thì hiện lên Form Tra mã không ạ? Em cảm ơn nhiều.

 

[matran25251325]

Có ai giúp em với Định lập chủ đề mới mà e úp file winrar có 31kb mà ko được.

 

[Ba Tê]

Dạ ko phải. E gởi lại file này cho dễ hiểu. Anh xem giùm chú thích cột A12 sheet DG DT TRUOC THUE

Thử xem file này coi có dùng được không.
--------------
Uả! mà bài này trong box lập trình sao không dùng VBA ta?
Thử cái này cho sheet2 xem sao.

Private Sub Worksheet_Activate()
Dim Rng(), Arr(), I As Long, J As Long, K As Long
With Sheets("TLuong DT")
    Rng = .Range(.[A9], .[A65000].End(xlUp)).Resize(, 8).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 8)
   For I = 1 To UBound(Rng, 1)
        If Rng(I, 1) <> "" Then
            K = K + 1
            For J = 1 To 3
                Arr(K, J) = Rng(I, J)
            Next J
            For J = 5 To 8
                Arr(K, J - 1) = Rng(I, J)
                Next J
        End If
    Next I
[A11:G1000].ClearContents
If K Then [A11].Resize(K, 7).Value = Arr
End Sub

 

[matran25251325]

code thì bị lỗi rồi anh, chạy vào file không hoạt động được. Còn công thức của small của anh xài được, mà sao em copy công thức đó vào file chính thì bị lỗi. Small(dòng;1) cái dòng đó theo công thức là array mà sao e làm ko được. Anh hướng dẫn em chỗ công thức small với.

 

[matran25251325]

copy công thức từ file bác Ba Te thì sử dụng được, còn đánh 1 hàm giống thế thì không được. Bác Ba Tê giải thích giùm em 1 tí được ko ạ

 

[nguyentunhitung]

Bác nào giúp e code tạo form cập nhật Trong Vb excel với !!!

 

[be_09]

Bác nào giúp e code tạo form cập nhật Trong Vb excel với !!!
View attachment 96397

Cái này bạn phải có File dữ liệu thì nay ra mới có người giúp, vì không ai ở không để tạo ra dữ liệu rồi mới đi tạo Form giùm cho bạn.
Với yêu cầu như Form bạn nêu thì File dữ liệu bạn phải tạo ra 1 sheet để chứa thông tin khách hàng (chứa khoảng 10 dòng dữ liệu là tạm đủ), 1 sheet trong đó có 1 cột bạn liệt kê loại khách hàng, 1 cột bạn liệt kê loại tài khoản, 1 cột bạn liệt kê kỳ hạn tiền gửi 6 tháng, 12 tháng, 24 tháng......
Về phàn tìm thì phải tạo thêm 1 Form nữa đê tìm các nội dung như đã kê ở sheet liệt kê các cột.

 

[Ba Tê]

code thì bị lỗi rồi anh, chạy vào file không hoạt động được. Còn công thức của small của anh xài được, mà sao em copy công thức đó vào file chính thì bị lỗi. Small(dòng;1) cái dòng đó theo công thức là array mà sao e làm ko được. Anh hướng dẫn em chỗ công thức small với.

Hoặc là bạn chưa biết sử dụng VBA,
Hoặc là bạn chưa biết sử dụng Name,
Bạn tìm hiểu 2 cái này rồi sẽ thấy code và hàm bên trên đều xài được.

 

[matran25251325]

Dạ em hiểu rồi. Cảm ơn anh Ba Tê nhiều. Em hỏi 1 câu nữa thôi ạ, anh có thể giúp em bổ sung 1 việc là khi right-click vào cột A sheet TLuong DT thì nó hiện Form Tra mã và lick vào thì nó sẽ hiện bảng tra giống như lick vào Form tra mã vậy. Vì nhiều lúc e làm nhiều hạng mục thì khi làm ở hang A100 thì việc kéo lên nhấp vào chữ Tra mã ở trên thì hơi bất tiện.