Tích hợp code vào sheet

[nguyenvietviet]

Chào mọi người! Cho mình hỏi làm thế nào để khi mình chọn 1 sheet thì macro tích hợp trong sheet đó sẽ được kích hoạt ( update )

 

[bebo021999]

Chào mọi người! Cho mình hỏi làm thế nào để khi mình chọn 1 sheet thì macro tích hợp trong sheet đó sẽ được kích hoạt ( update )

Bạn để đoạn code đó trong sự kiện worksheet_Activate

 

[nguyenvietviet]

Cám ơn bạn. mình đã làm rùi nhưng không được. Mính gửi file lên bạn giúp mình nhé.
Ơ sheet INCT cột P mình muốn lọc 1 dánh sách duy nhất ở bên cột C của sheet NKC. Ví dụ: PN001.01, PN002.01, PX001.01 chẳng hạn để minh tích hợp vào cbox1.
Cám ơn
http://www.zshare.net/download/93345432afc8bc81/

 

[ndu96081631]

Cám ơn bạn. mình đã làm rùi nhưng không được. Mính gửi file lên bạn giúp mình nhé.
Ơ sheet INCT cột P mình muốn lọc 1 dánh sách duy nhất ở bên cột C của sheet NKC. Ví dụ: PN001.01, PN002.01, PX001.01 chẳng hạn để minh tích hợp vào cbox1.
Cám ơn
http://www.zshare.net/download/93345432afc8bc81/

Để gán list vào ComboBox thì cứ gán trực tiếp luôn, cần gì phải lọc sang cột nào chứ
Cho code này vào 1 module:

Function UniqueList(ParamArray sArray())
  Dim Item, TmpArr, SubArr
  On Error Resume Next
  With CreateObject("Scripting.Dictionary")
    For Each SubArr In sArray
      TmpArr = SubArr
      If TypeName(TmpArr) <> "Variant()" Then
        If TmpArr <> "" Then .Add TmpArr, ""
      Else
        For Each Item In TmpArr
          If Item <> "" Then
            If Not .Exists(Item) Then .Add Item, ""
          End If
        Next
      End If
    Next
    UniqueList = .Keys
  End With
End Function

Cho code này vào ComboBox

Private Sub CBox1_DropButtonClick()
  CBox1.List() = UniqueList(Sheets("NKC").Range("C6:C1000"))
End Sub

Xong!

 

[nguyenvietviet]

Được rùi.Cám ơn các pác nhiều nhé. Pác ghi chú giải thích bên ngoài các đoán mã code giúp em?
Pác cho em xin mail của pác để dễ liên lạc được không?
Pác giúp em cái này nữa được không?
http://www.zshare.net/download/93374849375e7248/

 

[ndu96081631]

Được rùi.Cám ơn pác nhiều nhé. Pác ghi chú giải thích bên ngoài các đoán mã code giúp em?

Bạn chỉ cần hiểu đại khái thế này: hàm UniqueList chuyên dùng để lấy 1 danh sách duy nhất từ 1 mảng hoặc 1 vùng. Cứ vậy mà áp dụng là được rồi

 

[nguyenvietviet]

Vâng. Cám ơn pác
Pác cho em xin mail của pác để dễ liên lạc được không?
Pác giúp em cái này nữa được không?

Pác tích hợp 2 dạng phiếu làm một nhé.

 

[ndu96081631]

Vâng. Cám ơn pác
Pác cho em xin mail của pác để dễ liên lạc được không?
Pác giúp em cái này nữa được không?
http://www.zshare.net/download/93374849375e7248/
Pác tích hợp 2 dạng phiếu làm một nhé.

Bạn nén file lại rồi post thằng lên đây luôn đi, còn không thì đưa lên mediafire nhé
Cái trang quỷ quái zshare ấy khó down quá

 

[nguyenvietviet]

Vâng. Cám ơn pác
Pác cho em xin mail của pác để dễ liên lạc được không?
Pác giúp em cái này nữa được không?

Pác tích hợp 2 dạng phiếu làm một nhé.
​

 

[ndu96081631]

Pác tích hợp 2 dạng phiếu làm một nhé.

Ôi.. mấy cái này chắc tôi... thua quá, vì hổng thuộc chuyên ngành. Xem mà chẳng hiểu gì cả

 

[nguyenvietviet]

Vâng. Lúc nãy chắc em gửi bản đó chắc pác không hiểu.
Em gửi bản khác lên pác xem rùi giúp em với.
Khi em nhập dữ liệu vào 1 trong 3 mẫu phiếu đó thì tự động dữ liệu chạy sang bảng sổ quỹ giống như em làm mẫu đấy.
Em cảm ơn pác.