Rắc rối trong việc dò giá trị trùng (1 người xem)

[toanlonely1990]

Chào các bạn, mình có 1 vấn đề nan giải muốn nhờ các bạn giúp đỡ
Mình có 1 CSDL và 1 form Hóa đơn (bao gồm: Ngày HĐ, Số HĐ, KH, SP, ĐG...)
Yêu cầu của mình là khi mình gõ 1 con số bất kỳ(nhưng có trong CSDl) vào ô Số HĐ trong form thì các ô còn lại sẽ hiện những thông tin tương ứng như trong CSDL. Tuy nhiên, có những HĐ mình bán nhiều loại SP thì làm sao để hiện hết được.
Mình có đính kèm file, mong các cao thủ ra tay chỉ dạy
Thnks

 

[alexdn]

Chào các bạn, mình có 1 vấn đề nan giải muốn nhờ các bạn giúp đỡ
Mình có 1 CSDL và 1 form Hóa đơn (bao gồm: Ngày HĐ, Số HĐ, KH, SP, ĐG...)
Yêu cầu của mình là khi mình gõ 1 con số bất kỳ(nhưng có trong CSDl) vào ô Số HĐ trong form thì các ô còn lại sẽ hiện những thông tin tương ứng như trong CSDL. Tuy nhiên, có những HĐ mình bán nhiều loại SP thì làm sao để hiện hể được
Mình có đính kèm file, mong các cao thủ ra tay chỉ dạy
Thnks

bạn viết chương trình trên nền tảng nào excel hay access hay dot net hay java?
bạn có thể nói rõ hơn mình sẽ hướng dẫn bạn sử lý vấn đề này. bạn có thể liên hệ với mình qua email.

 

[langthangmang]

bạn viết chương trình trên nền tảng nào excel hay access hay dot net hay java?
bạn có thể nói rõ hơn mình sẽ hướng dẫn bạn sử lý vấn đề này. bạn có thể liên hệ với mình qua email.

chào bạn
File đính kèm ở trên là EXCEL bạn không thấy à ? bạn làm ơn sử lý vấn đề ngay tại đây nhé, cho các bạn học tập.
thân chào

 

[SA_DQ]

Bạn hãy xài thử macro này nha

Bạn phải chuột vô thanh SheetName có tên là 'Form'; Chọn dòng cuối trong cửa sổ mới xuất hiện;
Bạn Copy macro này vô CS vừa xuất hiện.
Nhập thử HĐ theo yêu cầu của bạn, & mong bạn sẽ như ý!

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [b4]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   Dim MyAdd As String
   
   Set Sh = Sheets("CSDL"):               Application.ScreenUpdating = False
   Set Rng = Sh.Range(Sh.[c1], Sh.[c65500].End(xlUp))
   Range("B14:G" & [B65500].End(xlUp).Row).ClearContents
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         [b5].Value = sRng.Offset(, -2).Value
         [B7].Value = sRng.Offset(, 1).Value
         [B8].Value = sRng.Offset(, 2).Value
         [B65500].End(xlUp).Offset(1).Resize(, 6).Value = _
            sRng.Offset(, 3).Resize(, 6).Value
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If:                                Set Sh = Nothing
 End If
End Sub

 

[toanlonely1990]

Cám ơn bạn nha, Nhưng nếu bạn nào chỉ mình thành lập công thức thì mình thank you very much bởi vì mình chưa hề biết qua visual basic. còn dữ liệu mình đính kèm cho các bạn coi chỉ là CSDL mẫu thôi, còn cái thiệt thì bí mật quân sự. hihihi
P/s: Thnks All

 

[huuthang_bd]

Cám ơn bạn nha, Nhưng nếu bạn nào chỉ mình thành lập công thức thì mình thank you very much bởi vì mình chưa hề biết qua visual basic. còn dữ liệu mình đính kèm cho các bạn coi chỉ là CSDL mẫu thôi, còn cái thiệt thì bí mật quân sự. hihihi
P/s: Thnks All

Đây là cách làm bằng công thức cho bạn.

 

[Hoàng Trọng Nghĩa]

Đây là cách làm bằng công thức cho bạn.

Bạn HuuThang ui, bạn cũng nên bẫy lỗi #N/A cho bạn ấy đi, giả sữ những số ngoài danh sách thì sẽ bị lỗi đấy.

 

[langthangmang]

Thnks All
Sẵn tiện có ai rành về vụ này thì hướng dẫn mình các bước làm nha
P/s: Mình ngu excel lắm

Có nhiều cách dùng hàm ISNA , ISERROR theo mình bạn thử cách này nha
chèn trước công thức cần xử lí lỗi.
VD :

=IF(COUNTIF(CSDL!C:C,Form!B4)=0,"",INDEX(OFFSET(Data,,,,1),TT))

Thân chào

 

[Hoàng Trọng Nghĩa]

Thnks All
Sẵn tiện có ai rành về vụ này thì hướng dẫn mình các bước làm nha
P/s: Mình ngu excel lắm

Mình đã thêm phần bẫy lỗi #N/A trong file của bạn HuuThang gửi bạn đấy.

 

[thanhthao_acc]

Bạn huuthang_bd có thể giải thích cho mình biết công thức ở sheet Form được không?
=INDEX(OFFSET(Data,,,,1),TT)hàm này là như thế nào?mình thì chưa rành excel lắm. Mình vẫn chưa hiểu TT là gì?
Nhân tiện các bác ở đây có ai hiểu công thức này là thế nào thì giải thích cho em với!!!!!

 

[huuthang_bd]

Bạn huuthang_bd có thể giải thích cho mình biết công thức ở sheet Form được không?
=INDEX(OFFSET(Data,,,,1),TT)hàm này là như thế nào?mình thì chưa rành excel lắm. Mình vẫn chưa hiểu TT là gì?
Nhân tiện các bác ở đây có ai hiểu công thức này là thế nào thì giải thích cho em với!!!!!

TT là name - Tên dùng để đại diện cho một đoạn công thức. Ctrl + F3 để xem name và công thức trong name.

 

[toanlonely1990]

Re: Rắc rối trong việc dò tìm giá trị trùng 2

Cũng với mục đích như trong bài "Rắc rối trong việc dò tìm giá trị trùng" mà mình đã đăng lần trước. Nhưng về nhà ngâm cứu hoài vẫn không ra (Vì mình dốt excel mà). Nay mình đính kèm file thực của mình.
Mong các bạn giúp lần 2
Thnks
P/s: mình thấy cách sử dụng ham của bạn HuuThang la hay nhat, cho nen mong cac ban ap dung cach do vao file cua minh nha.

 

[huuthang_bd]

Cũng với mục đích như trong bài "Rắc rối trong việc dò tìm giá trị trùng" mà mình đã đăng lần trước. Nhưng về nhà ngâm cứu hoài vẫn không ra (Vì mình dốt excel mà). Nay mình đính kèm file thực của mình.
Mong các bạn giúp lần 2
Thnks
P/s: mình thấy cách sử dụng ham của bạn HuuThang la hay nhat, cho nen mong cac ban ap dung cach do vao file cua minh nha.

Không hiểu sao bạn lại thêm nhiều cột phụ như vậy, những cột "... by text". Chỉ rắc rối thêm.