Đây là control gì? Excel có nó không?

[Hoàng Trọng Nghĩa]

Tôi thường thấy các trang web thường có các control như trong hình. Khi đặt trỏ vào nó tự động xổ danh sách, thường là dùng cho mục User Name.

Và khi gõ 1 ký tự đầu, nó sẽ lọc ra các cụm từ có ký tự đầu đó:

Nắm cái đuôi /// của nó mình có thể resize dễ dàng.

Vậy vui lòng cho hỏi, nó là Control gì, thuộc tính ra sao, và nó có thể có trong Excel hay không?


Cám ơn rất nhiều.

 

[paulsteigel]

Đây gọi là auto-complete combo hoặc autosearch combo. Nhìn chung là trong Excel không có cái này mà người ta có thể dùng Visual studiđê để thiết kế thêm tính năng đó thôi.

 

[Hoàng Trọng Nghĩa]

Đây gọi là auto-complete combo hoặc autosearch combo. Nhìn chung là trong Excel không có cái này mà người ta có thể dùng Visual studiđê để thiết kế thêm tính năng đó thôi.

Mình có thể cài đặt cho Excel như các control khác được không, giống như DTPicker chẳng hạn?

 

[paulsteigel]

Đáng tiếc là có thể bạn sẽ phải mua hoặc không thì tự viết một OCX bằng VB hoặc C sử dụng VS6. Cái này ngày xưa mình cũng từng viết rồi, hiện tại trên mạng có nhiều lắm:
http://www.supreme-web-design.org/AutoComplete/AutoComplete-screen-shot.htm
Một ví dụ modifê bằng VB
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=45914&lngWId=1
đây nữa này
http://www.vbforums.com/showthread.php?443461-Autocomplete-DB-combo.ocx-UPDATED&
Cái này cũng tốt
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=10&txtCodeId=2934

Trang này có tất cả những gì bạn cần đối với một điều khiển OCX dạng autocomplete
http://www.planet-source-code.com/v....asp?lngWId=1&txtCriteria=auto+complete+combo

Khi đã là OCX, bạn chỉ cần đưa vào C:\windows\system32 hoặc dùng regsvr là được

 

[OverAC]

hi anh Paul, lâu lắm mới thấy anh xuất hiện,

Em có từng suy nghĩ về cái này, nhưng không phải trên form mà là trên bảng tính.
Em nghĩ trên form thì cái này có thể thực hiện được, vụ scales kích thước của cái dropdown-list này thì em không tự tin vì chưa làm, nhưng em nghĩ không phải là không làm được.

Vấn đề là làm sao cho nó gắn kèm với môt ô hoặc một nhóm ô trên bảng tính thì sao?
Cũng có một số bài viết trên Giaiphapexcel này nhưng em chưa thấy thỏa mãn lắm. và em cũng google nhưng chưa có kết quả hơn gì.

 

[paulsteigel]

Trước đây tớ có làm cái như thế - đại loại là thế này -cho 1 cái float combobox -
Khi người dùng gõ thì có 1 textbox hiển thị và chiếm chỗ của ô để kích hoạt chế độ autocomplete với combobox. Có điểm đau khổ là trông nó không được ăn nhập lắm với excel và đặc biệt là nó chạy chậm vì thế sau này tớ bỏ ý tưởng đó.
Tuy nhiên, nếu mọi người quan tâm, có thể ta nghiên cứu lại để xem có cách nào ổn thỏa không.

 

[xuanha]

Tôi thường thấy các trang web thường có các control như trong hình. Khi đặt trỏ vào nó tự động xổ danh sách, thường là dùng cho mục User Name.
Và khi gõ 1 ký tự đầu, nó sẽ lọc ra các cụm từ có ký tự đầu đó:

Vậy vui lòng cho hỏi, nó là Control gì, thuộc tính ra sao, và nó có thể có trong Excel hay không?

Để giải quyết vấn đề này thì quá đơn giản, sử dụng ngay Combobox của Form2.0 tích hợp trên Excel.
Ta viết code cho combobox như sau:

Private Sub ComboBox1_Change()
Dim i%
If Len(ComboBox1.Text) > 0 Then
For i = 0 To ComboBox1.ListCount - 1
If Mid(ComboBox1.List(i), 1, Len(ComboBox1.Text)) = ComboBox1.Text Then
ComboBox1.ListIndex = i: Exit For
End If
Next
SendKeys "%{Down}"
End If
End Sub

Private Sub UserForm_Initialize()
Dim i%
For i = 1 To 10000
ComboBox1.AddItem i
Next
End Sub

 

[xuanha]

Để chứng minh cho chủ topic cũng như mọi người đã tham gia trả lời về sự kết hợp lọc Item theo điều kiện của Combobox hiển thị lên Listbox. Đoạn code dưới đây là sự kết hợp hài hoà và tài tình của 2 control trên, tuy nhiên cấp độ bài viết vẫn ở mức độ sơ sài, bạn nào có thời gian thì hãy chỉnh sửa thêm cho hợp lý.

Dim t%
Private Sub Cmd1_Click()
Application.Quit
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
Dim i%
If ComboBox1.Text = "" Then ListBox1.Visible = Flase Else ListBox1.Visible = True
If ListBox1.ListCount > 0 And t = 0 Then
While ListBox1.ListCount > 0
ListBox1.RemoveItem (0)
Wend
End If
With ComboBox1
If .ListCount > 0 Then
For i = 0 To .ListCount - 1
If Mid(.List(i), 1, Len(.Text)) = .Text Then ListBox1.AddItem .List(i)
Next
End If
End With
t = 0
End Sub
Private Sub ComboBox1_Click()
ListBox1.Visible = False
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then ListBox1.Visible = False
If KeyCode = Chr(13) Then ListBox1.Visible = False
End Sub

Private Sub ListBox1_Click()
t = 1
ComboBox1.Text = ListBox1.Text
ListBox1.Visible = False
End Sub

Private Sub UserForm_Initialize()
Dim i%
t = 0
For i = 1 To 100
ComboBox1.AddItem Rnd * i
Next
End Sub

 

[Hoàng Trọng Nghĩa]

Để chứng minh cho chủ topic cũng như mọi người đã tham gia trả lời về sự kết hợp lọc Item theo điều kiện của Combobox hiển thị lên Listbox. Đoạn code dưới đây là sự kết hợp hài hoà và tài tình của 2 control trên, tuy nhiên cấp độ bài viết vẫn ở mức độ sơ sài, bạn nào có thời gian thì hãy chỉnh sửa thêm cho hợp lý.

View attachment 89102

Dim t%
Private Sub Cmd1_Click()
Application.Quit
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
Dim i%
If ComboBox1.Text = "" Then ListBox1.Visible = Flase Else ListBox1.Visible = True
If ListBox1.ListCount > 0 And t = 0 Then
While ListBox1.ListCount > 0
ListBox1.RemoveItem (0)
Wend
End If
With ComboBox1
If .ListCount > 0 Then
For i = 0 To .ListCount - 1
If Mid(.List(i), 1, Len(.Text)) = .Text Then ListBox1.AddItem .List(i)
Next
End If
End With
t = 0
End Sub
Private Sub ComboBox1_Click()
ListBox1.Visible = False
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then ListBox1.Visible = False
If KeyCode = Chr(13) Then ListBox1.Visible = False
End Sub

Private Sub ListBox1_Click()
t = 1
ComboBox1.Text = ListBox1.Text
ListBox1.Visible = False
End Sub

Private Sub UserForm_Initialize()
Dim i%
t = 0
For i = 1 To 100
ComboBox1.AddItem Rnd * i
Next
End Sub

Đó là bạn mới thử về số, Bạn thử làm với chuỗi xem sao?

 

[Hoàng Trọng Nghĩa]

Sau khi thử nhiều cách để cho nó na ná giống cái AutoComplete Combo, tôi rút ra được rằng mình có thể làm trên combobox bình thường. Tuy nhiên, có 2 trường hợp:

Trường hợp 1, nếu dùng thuộc tính MatchEntry = fmMatchEntryComplete thì nó giống với cái "Web Search" hơn, tuy nhiên sẽ bị lỗi font nếu có dấu tiếng Việt (đây là 1 trong những lỗi khi gõ: không gõ được chữ LỮ nếu trước đó có chữ LƯU chẳng hạn). Nếu ta sử dụng cho nó, tốt nhất là dữ liệu không có dấu tiếng Việt.

Trường hợp 2, nếu dùng thuộc tính MatchEntry = fmMatchEntryNone, ta có thể sử dụng rộng rãi hơn, không cần phải tính toán SelLength, SelStart... và dễ dàng cho ta gõ vào tiếng Việt hơn.

Sau khi cân nhắc, tôi chọn trường hợp 2 là phương án tối ưu.

Các bạn xem file và bổ sung những gì thiếu sót cho mình nhé.

 

[xuanha]

Đó là bạn mới thử về số, Bạn thử làm với chuỗi xem sao?

Bạn hãy xem kỹ đoạn code mình viết, code trên là xử lý chuỗi đấy chứ, không liên quan gì đến số cả; số chỉ là ví dụ cho nhanh thôi (nhưng số được coi như chuỗi)

 

[Hoàng Trọng Nghĩa]

Bạn hãy xem kỹ đoạn code mình viết, code trên là xử lý chuỗi đấy chứ, không liên quan gì đến số cả; số chỉ là ví dụ cho nhanh thôi (nhưng số được coi như chuỗi)

Nói chung, nó cũng là một giải pháp, tuy nhiên nó không thể search để lọc như hàm Filter2DArray được, nó có thể lọc bất cứ cụm từ nào chứa trong chuỗi.

 

[lee chung]

Cám ơn bạn file bạn tạo mình thấy hay lắm,mình xin mượn file của bạn sữa đôi chút và nhờ bạn tạo thêm vài cái hộp con,mình có viết rỏ nội dung yêu cầu trong file đính kèm

 

[Hoàng Trọng Nghĩa]

Cám ơn bạn file bạn tạo mình thấy hay lắm,mình xin mượn file của bạn sữa đôi chút và nhờ bạn tạo thêm vài cái hộp con,mình có viết rỏ nội dung yêu cầu trong file đính kèm

Để có 4 danh sách hàng, tôi làm 4 sheet, mỗi sheet là một danh sách với cấu trúc giống nhau. Khi chạy form tôi tạo tên các danh sách này cho một combobox danh sách, và mặc định chạy Danh Sách 1:

Private Sub UserForm_Initialize()
    Dim i As Byte
    With ComboBox1
        For i = 1 To 4
            .AddItem "Danh Sách " & i
        Next
        .SetFocus
        .ListIndex = 0
    End With
    isDrop = False
End Sub

Khi đã gán tên cho ComboBox này, thì lập tức nó sẽ truyền List cho ComboBox để lựa chọn tên hàng như sau:

Private Sub ComboBox1_Change()
    On Error GoTo LOI
    Dim i As Byte
    i = ComboBox1.ListIndex + 1
    ComboBox2.Clear
        ComboBox2 = ""
            With Sheets("DanhSach" & i)
                sArray = Range(.[B2], .[B65536].End(xlUp)).Resize(, 5).Value
            End With
        ComboBox2.List = sArray
    ComboBox2.Locked = False
    Exit Sub
LOI:
    ComboBox2.Locked = True
    ComboBox2.Clear
    ComboBox2 = ""
End Sub

Và khi được nạp list, khi lựa chọn tên hàng, các gí trị sĩ lẻ gì đó sẽ hiện lên trên các TextBox:

Private Sub ComboBox2_Change()
    On Error GoTo LOI
    With ComboBox2
        If .ListRows <> 10 Then .ListRows = 10
        If isDrop = False Or Len(.Text) = 1 Then .DropDown
        For i = 1 To 4
            Controls("TextBox" & i).Text = .List(, i)
        Next
    End With
    isDrop = True
    Exit Sub
LOI:
    For i = 1 To 4
        Controls("TextBox" & i).Text = ""
    Next
End Sub

Bạn xem file và điều chỉnh theo file cụ thể của bạn nhé!

 

[lee chung]

Tuyệt quá bạn ơi ::: ,mình rất cám ơn và khâm phục bạn lắm,mình xin hỏi thêm:ở hộp chọn danh sách thuốc bạn có thể gộp 4 danh sách thuốc thành 1 thôi ,ý của mình là thay vì phải chọn danh sách thuốc trước rồi mới gỏ vào hộp chọn tên thuốc thì mình gỏ trực tiếp hộp chọn tên thuốc luôn thì nó tự động dò tìm trong 4 danh sách rồi trích xuất liệt kê vào list xổ ra của hộp chọn tên thuốc,mình ví dụ nhé:ở 4 danh sách có 4 mặt hàng ampi khác nhau,khi mình gỏ chử a thì list xổ ra sẻ có đủ đồng loạt tất cả các mặt hàng gồm: ampi an,ampi ao của danh sách 1, ampi Việt nam của danh sách 2, ampi Thái của danh sách 3, ampi Mỹ của danh sách 4... Mụch đích là bớt thao tác và thời gian dò tìm, với lại danh sách thực tế của mình rất nhiều hơn 2000 mặt hàng mình không nhớ hết các mặt hàng nằm ở danh sách nào.
Câu hỏi thứ 2 : thực tế 4 danh sách trên lại không có trên cùng một file mà ở riêng trên 4 file và 4 file này lại nằm ở máy chủ, vậy bạn có cách nào liên kết từ hộp dò tìm đến những file đó không, lý do là giá luôn cập nhật hằng ngày từ máy chủ, mình chỉ có thể share 4 file đó để mở xem ở máy con và phải copy sheet danh sách giá ở từng file rồi mới dán vào file bạn tạo, như vậy cứ mổi lần muốn cập nhật giá là phải thực hiện một giai đoạn dài dòng và chưa kể lở copy sai sót hoặc không hay biết có giá vừa mới thay đổi để copy cập nhật thì củng khổ.
Mình chờ tin vui từ bạn đấy

 

[Hoàng Trọng Nghĩa]

Tuyệt quá bạn ơi ::: ,mình rất cám ơn và khâm phục bạn lắm,mình xin hỏi thêm:ở hộp chọn danh sách thuốc bạn có thể gộp 4 danh sách thuốc thành 1 thôi ,ý của mình là thay vì phải chọn danh sách thuốc trước rồi mới gỏ vào hộp chọn tên thuốc thì mình gỏ trực tiếp hộp chọn tên thuốc luôn thì nó tự động dò tìm trong 4 danh sách rồi trích xuất liệt kê vào list xổ ra của hộp chọn tên thuốc,mình ví dụ nhé:ở 4 danh sách có 4 mặt hàng ampi khác nhau,khi mình gỏ chử a thì list xổ ra sẻ có đủ đồng loạt tất cả các mặt hàng gồm: ampi an,ampi ao của danh sách 1, ampi Việt nam của danh sách 2, ampi Thái của danh sách 3, ampi Mỹ của danh sách 4... Mụch đích là bớt thao tác và thời gian dò tìm, với lại danh sách thực tế của mình rất nhiều hơn 2000 mặt hàng mình không nhớ hết các mặt hàng nằm ở danh sách nào.
Câu hỏi thứ 2 : thực tế 4 danh sách trên lại không có trên cùng một file mà ở riêng trên 4 file và 4 file này lại nằm ở máy chủ, vậy bạn có cách nào liên kết từ hộp dò tìm đến những file đó không, lý do là giá luôn cập nhật hằng ngày từ máy chủ, mình chỉ có thể share 4 file đó để mở xem ở máy con và phải copy sheet danh sách giá ở từng file rồi mới dán vào file bạn tạo, như vậy cứ mổi lần muốn cập nhật giá là phải thực hiện một giai đoạn dài dòng và chưa kể lở copy sai sót hoặc không hay biết có giá vừa mới thay đổi để copy cập nhật thì củng khổ.
Mình chờ tin vui từ bạn đấy

Vì không có các file thật cũng như nguyên tắc kết nối, đường dẫn của file bạn đến các file khác như thế nào nên tôi không thể thực hiện cho bạn ở câu hỏi thứ 2.

Tuy nhiên tôi có giải pháp cho bạn ở file này là: Copy các danh sách ở các sheet về 1 sheet ở danh sách tổng hợp, sắp xếp lại theo thứ tự tên thuốc, gán mảng này vào cobobox.

Private Sub UserForm_Initialize()
      Dim i As Long, sArray
      Sheets("DanhSachTongHop").Cells.Clear
      For i = 1 To 4
            With Sheets("DanhSach" & i)
                  sArray = Range(.[B2], .[B65536].End(xlUp)).Resize(, 5).Value
            End With
            Sheets("DanhSachTongHop").Range("A65536").End(xlUp).Offset(1) _
            .Resize(UBound(sArray, 1), UBound(sArray, 2)).Value = sArray
      Next
      With Sheets("DanhSachTongHop")
            With Range(.[A2], .[A65536].End(xlUp)).Resize(, 5)
                  .Sort Sheets("DanhSachTongHop").[A2], xlAscending, , , , , , xlNo
                  GenArray = .Value
            End With
            .Cells.Clear
      End With
      ComboBox2.List = GenArray
      isDrop = False
End Sub

Tùy vào trường hợp mà ứng biến thôi. Nếu không thể kết nối, bạn buộc phải copy từ máy chủ để làm việc với file của mình.

 

[lee chung]

Vì không có các file thật cũng như nguyên tắc kết nối, đường dẫn của file bạn đến các file khác như thế nào nên tôi không thể thực hiện cho bạn ở câu hỏi thứ 2.

Tuy nhiên tôi có giải pháp cho bạn ở file này là: Copy các danh sách ở các sheet về 1 sheet ở danh sách tổng hợp, sắp xếp lại theo thứ tự tên thuốc, gán mảng này vào cobobox.

Private Sub UserForm_Initialize()
      Dim i As Long, sArray
      Sheets("DanhSachTongHop").Cells.Clear
      For i = 1 To 4
            With Sheets("DanhSach" & i)
                  sArray = Range(.[B2], .[B65536].End(xlUp)).Resize(, 5).Value
            End With
            Sheets("DanhSachTongHop").Range("A65536").End(xlUp).Offset(1) _
            .Resize(UBound(sArray, 1), UBound(sArray, 2)).Value = sArray
      Next
      With Sheets("DanhSachTongHop")
            With Range(.[A2], .[A65536].End(xlUp)).Resize(, 5)
                  .Sort Sheets("DanhSachTongHop").[A2], xlAscending, , , , , , xlNo
                  GenArray = .Value
            End With
            .Cells.Clear
      End With
      ComboBox2.List = GenArray
      isDrop = False
End Sub

Tùy vào trường hợp mà ứng biến thôi. Nếu không thể kết nối, bạn buộc phải copy từ máy chủ để làm việc với file của mình.

Bạn giỏi thật 4 danh sách bây giờ đã nằm gọn trong list rồi cám ơn bạn nhé, mình còn thắc mắc theo hướng dẫn của bạn vì sao mình copy danh sách thuốc vào sheet DanhSachTongHop (vào file đính kèm KeyUp2_THU_NGHIEM_2.xls ) xong qua sheet Danhsach1 bấm nút show form nó không ra thêm phần danh sách mới copy vào, quay về sheet DanhsachTongHop danh sách copy vào lúc nảy tự động xóa mất tiêu rồi, còn nếu copy vào 1 trong 4 sheet danhsach 1-4 thì danh sách thuốc copy thêm, được thêm vào như vậy mình có làm gì sai không bạn ? Còn phần mảng code bạn bảo mình gán thêm vào combobox gì đó mình không rành VBA mình không biết làm.
Phần câu hỏi 2 mình đành bó tay vì không được can thiệp trực tiếp máy chủ, nhưng mình sẻ dùng record Macro để ghi lại thao tác chép thủ công để xử dụng tiếp cho lần copy sau tuy nhiên cách này sẻ gặp rắc rối trong trường hợp danh sách thuốc thêm bớt mặt hàng, macro không được chỉ định chép ở dòng kế cuối danh sách của sheet trứơc mà chép chồng lên 1 trong những dòng cuối cua danh sách trước như vậy dử liệu không còn đầy đủ chính xác nữa,mình chỉ mới suy luận thôi chưa record thử bạn trợ giúp mình trường hợp này luôn nhé.

 

[Hoàng Trọng Nghĩa]

Bạn giỏi thật 4 danh sách bây giờ đã nằm gọn trong list rồi cám ơn bạn nhé, mình còn thắc mắc theo hướng dẫn của bạn vì sao mình copy danh sách thuốc vào sheet DanhSachTongHop (vào file đính kèm KeyUp2_THU_NGHIEM_2.xls ) xong qua sheet Danhsach1 bấm nút show form nó không ra thêm phần danh sách mới copy vào, quay về sheet DanhsachTongHop danh sách copy vào lúc nảy tự động xóa mất tiêu rồi, còn nếu copy vào 1 trong 4 sheet danhsach 1-4 thì danh sách thuốc copy thêm, được thêm vào như vậy mình có làm gì sai không bạn ? Còn phần mảng code bạn bảo mình gán thêm vào combobox gì đó mình không rành VBA mình không biết làm.
Phần câu hỏi 2 mình đành bó tay vì không được can thiệp trực tiếp máy chủ, nhưng mình sẻ dùng record Macro để ghi lại thao tác chép thủ công để xử dụng tiếp cho lần copy sau tuy nhiên cách này sẻ gặp rắc rối trong trường hợp danh sách thuốc thêm bớt mặt hàng, macro không được chỉ định chép ở dòng kế cuối danh sách của sheet trứơc mà chép chồng lên 1 trong những dòng cuối cua danh sách trước như vậy dử liệu không còn đầy đủ chính xác nữa,mình chỉ mới suy luận thôi chưa record thử bạn trợ giúp mình trường hợp này luôn nhé.

DanhSachTongHop là một sheet tạm để copy dữ liệu từ các sheet DanhSachX, sau khi đưa tất cả danh sách về một đầu mối rồi truyền danh sách tổng đó cho list của ComboBox thì sheet này sẽ bị xóa dữ liệu ngay sau đó nên bạn sẽ không thấy gì được.

Vì bạn có 4 danh sách từ 4 file khác nhau nên bạn cứ copy lên 4 sheet tương ứng với 4 file đó, đừng đụng gì tới sheet DanhSachTongHop cả, nó chẳng liên quan với nhau, chép vào sẽ bị xóa cũng vậy à.

Việc dùng macro cho việc sao chép này, tôi không nghĩ là khó, tuy nhiên cấu trúc của mỗi file có giống nhau không? Bạn có thể copy 1 sheet có cấu trúc thật và post lên đây hay không? Tên các file thật đó là gì? Ít nhiều gì tôi cũng nghiên cứu làm được cho bạn.

 

[lee chung]

DanhSachTongHop là một sheet tạm để copy dữ liệu từ các sheet DanhSachX, sau khi đưa tất cả danh sách về một đầu mối rồi truyền danh sách tổng đó cho list của ComboBox thì sheet này sẽ bị xóa dữ liệu ngay sau đó nên bạn sẽ không thấy gì được.

Vì bạn có 4 danh sách từ 4 file khác nhau nên bạn cứ copy lên 4 sheet tương ứng với 4 file đó, đừng đụng gì tới sheet DanhSachTongHop cả, nó chẳng liên quan với nhau, chép vào sẽ bị xóa cũng vậy à.

Việc dùng macro cho việc sao chép này, tôi không nghĩ là khó, tuy nhiên cấu trúc của mỗi file có giống nhau không? Bạn có thể copy 1 sheet có cấu trúc thật và post lên đây hay không? Tên các file thật đó là gì? Ít nhiều gì tôi cũng nghiên cứu làm được cho bạn.

Mình gởi file lên bạn xem giúp nhé cám ơn trước nhe

 

[lee chung]

DanhSachTongHop là một sheet tạm để copy dữ liệu từ các sheet DanhSachX, sau khi đưa tất cả danh sách về một đầu mối rồi truyền danh sách tổng đó cho list của ComboBox thì sheet này sẽ bị xóa dữ liệu ngay sau đó nên bạn sẽ không thấy gì được.

Vì bạn có 4 danh sách từ 4 file khác nhau nên bạn cứ copy lên 4 sheet tương ứng với 4 file đó, đừng đụng gì tới sheet DanhSachTongHop cả, nó chẳng liên quan với nhau, chép vào sẽ bị xóa cũng vậy à.

Việc dùng macro cho việc sao chép này, tôi không nghĩ là khó, tuy nhiên cấu trúc của mỗi file có giống nhau không? Bạn có thể copy 1 sheet có cấu trúc thật và post lên đây hay không? Tên các file thật đó là gì? Ít nhiều gì tôi cũng nghiên cứu làm được cho bạn.

Bạn Hoàng Trọng Nghĩa ơi mình đã post file thật lên rồi cấu trúc giống nhau cả bạn giúp mình nhé